update t_uploadData set Memo='数量填入不正确'where MainTable=@MainTable and DocID=@DocID and isnumeric(S1)=0;
update t_uploadData set Memo='料号未填入'where MainTable=@MainTable and DocID=@DocID andisnull(S0,'')='';
declare @LineTableCreate type_LineTableCreate;
declare @Sqlnvarchar(max),@LineTable nvarchar(500);
declare @SrcSql nvarchar(max)
set @LineTable=@MainTable+'Line';
set @SrcSql=''set @Sql='select S0 as ItemCode,isnull(S1,0) as FF1 from t_uploadData aa where MainTable='''+@MainTable+''' and DocID='+cast(@DocID asvarchar(100));
exec p_DocCreateLine @MainTable,null,@user,@DocID,@LineTable,@LineTableCreate,@Sql,@SrcSql
update a set a.Price=cast(isnull(b.FF1,0) asfloat)
from SM_CusPriceApplyLine a
innerjoin t_type_LineTableCreate b on a.ID = b.ID
where a.Pid = @DocID
update a set a.Memo=casewhencast(S1 asdecimal(18, 6))>b.Qty then'仅处理:'+dbo.f_torealstr(b.Qty) else'完成!'endfrom t_uploadData a innerjoin (select ItemCode,sum(Qty) as Qty from PM_PurchaseOrderLine where Pid=@DocID groupby ItemCode) b on a.S0=b.ItemCode
where a.MainTable=@MainTable and a.DocID=@DocID
delete SM_CusPriceApplyLine where Pid=@DocID and Qty=0
exec p_DocExe '保存','SM_CusPriceApply',@DocID,@User,@userName;
select'OK'as zt,'执行完成!'as msg
---------------------------------------------------------------------update t_uploadData set Memo='数量填入不正确'where MainTable=@MainTable and DocID=@DocID and isnumeric(S1)=0;
update t_uploadData set Memo='料号未填入'where MainTable=@MainTable and DocID=@DocID andisnull(S0,'')='';
declare @LineTableCreate type_LineTableCreate;
declare @Sqlnvarchar(max),@LineTable nvarchar(500);
declare @SrcSql nvarchar(max)
set @LineTable=@MainTable+'Line';
declare @Customer nvarchar(50),@Wh varchar(50),@Binvarchar(50),@_OrgShip nvarchar(50),@_OrgSc nvarchar(50);
set @SrcSql=''set @Sql='select S0 as ItemCode,S1 as Qty,0 as FF2,S2 as FF4,S3 as FF3,isnull(S4,0) as FF1 from t_uploadData aa where MainTable='''+@MainTable+''' and DocID='+cast(@DocID asvarchar(100));
exec p_DocCreateLine @MainTable,null,@user,@DocID,@LineTable,@LineTableCreate,@Sql,@SrcSql
update a set a.Price=cast(isnull(b.FF1,0) asfloat),a.NeedDate=cast(b.FF4 asdate),a.PMMemo = cast(b.FF3 asvarchar)
from PM_PurchaseOrderLine a
innerjoin t_type_LineTableCreate b on a.ID = b.ID
where a.Pid = @DocID
update a set a.Memo=casewhencast(S1 asdecimal(18, 6))>b.Qty then'仅处理:'+dbo.f_torealstr(b.Qty) else'完成!'endfrom t_uploadData a innerjoin (select ItemCode,sum(Qty) as Qty from PM_PurchaseOrderLine where Pid=@DocID groupby ItemCode) b on a.S0=b.ItemCode
where a.MainTable=@MainTable and a.DocID=@DocID
delete PM_PurchaseOrderLine where Pid=@DocID and Qty=0
exec p_DocExe '保存','PM_PurchaseOrder',@DocID,@User,@userName;
select'OK'as zt,'执行完成!'as msg