编辑代码

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 and isnull(S0,'')='';


declare @LineTableCreate type_LineTableCreate;
declare @Sql nvarchar(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 as varchar(100));
exec p_DocCreateLine @MainTable,null,@user,@DocID,@LineTable,@LineTableCreate,@Sql,@SrcSql

update a set a.Price=cast(isnull(b.FF1,0) as float)
from SM_CusPriceApplyLine a 
inner join t_type_LineTableCreate b on a.ID = b.ID
where a.Pid = @DocID

update a set a.Memo=case when cast(S1 as decimal(18, 6))>b.Qty then '仅处理:'+dbo.f_torealstr(b.Qty) else '完成!' end
from t_uploadData a inner join (select ItemCode,sum(Qty) as Qty from PM_PurchaseOrderLine where Pid=@DocID group by 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 and isnull(S0,'')='';


declare @LineTableCreate type_LineTableCreate;
declare @Sql nvarchar(max),@LineTable nvarchar(500);
declare @SrcSql nvarchar(max)
set @LineTable=@MainTable+'Line';

declare @Customer nvarchar(50),@Wh varchar(50),@Bin varchar(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 as varchar(100));
exec p_DocCreateLine @MainTable,null,@user,@DocID,@LineTable,@LineTableCreate,@Sql,@SrcSql

update a set a.Price=cast(isnull(b.FF1,0) as float),a.NeedDate=cast(b.FF4 as date),a.PMMemo = cast(b.FF3 as varchar)
from PM_PurchaseOrderLine a 
inner join t_type_LineTableCreate b on a.ID = b.ID
where a.Pid = @DocID

update a set a.Memo=case when cast(S1 as decimal(18, 6))>b.Qty then '仅处理:'+dbo.f_torealstr(b.Qty) else '完成!' end
from t_uploadData a inner join (select ItemCode,sum(Qty) as Qty from PM_PurchaseOrderLine where Pid=@DocID group by 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