|
发表于 2007-4-30 13:37:53
|
显示全部楼层
功能:删除由工序倒冲生成的材料出库单和工序移单--------------
--注意: 1.如果材料出库单已审核,请取消审核再使用此功能--------
-- 2.如果工序转移到下道工序,请先返向转移,再使用此功能--
--使用方法:1.把所有的文字复制到查询分析器中执行---------
-- 2.exec hz_proc_deloptransform '0000000022'-------
-- '0000000022'为工序转移单的单据编号------------------------
Create proc hz_proc_deloptransform (@DocCode varchar(20))
--alter proc hz_proc_deloptransform (@DocCode varchar(20))--
as
declare @cCheck nvarchar(10)
declare @ID integer
declare @InMoRoutingDId integer,@MoDId integer
declare @count integer
declare @v_transformid int
set @cCheck=''
set @count=0
select @ID=ID,@cCheck=isnull(cHandler,'') from rdrecord where cBusType='生产倒冲' and cSource='工序转移单' and cBusCode=@DocCode
select @MoDId=MoDId,@InMoRoutingDId=InMoRoutingDId from sfc_optransform where DocCode=@DocCode
select @count=isnull(TransOutQty,0) from sfc_optransform where MoDId=@MoDId and MoRoutingDId=@InMoRoutingDId and TransformType=1 and OpStatus=1
if (@cCheck='' ) and @count=0
begin
select @v_transformid=TransformId from sfc_optransform where DocCode=@DocCode
exec Usp_SF_UpdMoRoutingBalQtyByTransFrom @v_transformid , 2
delete from rdrecords where id=@ID
delete from rdrecord where id=@ID
delete from sfc_optransform where DocCode=@DocCode
end
else
PRINT '材料出库单已审核或本道工序已转入下道工序,不能删除' |
|