八度空間

用友U8+中 調撥單、組裝拆卸單、盤點單審核后，自動審核對應的其他出入庫單。

1.打庫存管理補丁(ST)

select * from AccInformation where cSysID='ST' and cCaption like '%自動審核%'

查詢后，將“是否自動審核庫存生成的單據”的cValue自動改為“true”，即執行修改語句：

update AccInformation set cValue=true where cSysID='ST' and cCaption like '%自動審核%' 

PS：
1、棄審的時候，還是需要先將對應的其他出入庫單據進行棄審后，再棄審原單據。
2、如果其他出入庫單啟用審批流，則不支持自動審核。 

第二種方法：改觸發器 

1.其他入庫單主表RdRecord08的觸發器

USE [UFDATA_801_2022]
GO
/****** Object: Trigger [dbo].[tri_RdRecord08_DbCheck_zrq] Script Date: 2023-04-17 13:05:22 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[tri_RdRecord08_DbCheck_zrq] ON [dbo].[RdRecord08]
FOR UPDATE
as

IF UPDATE(cCode)
BEGIN
IF (SELECT count(1) FROM deleted WHERE CAST(ID AS NVARCHAR(30))=cCode AND ( csource='調撥' or csource='盤點' or csource='形態轉換') )>0
BEGIN
DECLARE @ID INT,@iswfcontrolled INT,@csource NVARCHAR(50),@cHandler NVARCHAR(20),@SPID NVARCHAR(20)
SELECT @ID=ID,@iswfcontrolled=iswfcontrolled,@cHandler=cMaker FROM inserted

IF @iswfcontrolled=1
BEGIN
UPDATE RdRecord08 SET iswfcontrolled=0 WHERE ID=@ID
END
UPDATE RdRecord08 WITH (UPDLOCK) Set cHandler=@cHandler, dVeriDate=dDate,dNVerifyTime=getdate() WHERE Id=@ID
UPDATE mainbatch set chandler=@cHandler where cvouchtype=N'08' and rdmid=@ID

IF (SELECT count(1) FROM AccInformation WHERE cName='bOtherInCheck' AND cvalue='True')>0
BEGIN
EXEC ST_VerForStock N'08',@ID,0,1,1

SELECT @SPID='spid_'+CAST(@@SPID AS NVARCHAR(10))

insert into SCM_Item(cInvCode,cfree1,cfree2,cfree3,cfree4,cfree5,cfree6,cfree7,cfree8,cfree9,cfree10)
select distinct cInvCode,cfree1,cfree2,cfree3,cfree4,cfree5,cfree6,cfree7,cfree8,cfree9,cfree10 from SCM_EntryLedgerBuffer a with (nolock)
where a.transactionid=@SPID and not exists (select 1 from SCM_Item Item where Item.cInvCode=a.cInvCode and Item.cfree1=a.cfree1
and Item.cfree2=a.cfree2 and Item.cfree3=a.cfree3 and Item.cfree4=a.cfree4 and Item.cfree5=a.cfree5
and Item.cfree6=a.cfree6 and Item.cfree7=a.cfree7 and Item.cfree8=a.cfree8 and Item.cfree9=a.cfree9 and Item.cfree10=a.cfree10 )

EXEC Usp_SCM_CommitGeneralLedgerWithCheck N'ST',1,2,1,1,0,0,2,1,1,0,0,0,0 ,1,@SPID
END
END
END

2.

1.其他出庫單主表RdRecord09的觸發器

USE [UFDATA_801_2022]
GO
/****** Object: Trigger [dbo].[tri_RdRecord09_DbCheck_zrq] Script Date: 2023-04-17 13:06:59 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[tri_RdRecord09_DbCheck_zrq] ON [dbo].[RdRecord09]
FOR UPDATE
as

IF UPDATE(cCode)
BEGIN
IF (SELECT count(1) FROM deleted WHERE CAST(ID AS NVARCHAR(30))=cCode AND ( csource='調撥' or csource='盤點' or csource='形態轉換') )>0
BEGIN
DECLARE @ID INT,@iswfcontrolled INT,@csource NVARCHAR(50),@cHandler NVARCHAR(20),@SPID NVARCHAR(20)
SELECT @ID=ID,@iswfcontrolled=iswfcontrolled,@cHandler=cMaker FROM inserted

IF @iswfcontrolled=1
BEGIN
UPDATE RdRecord09 SET iswfcontrolled=0 WHERE ID=@ID
END
UPDATE Rdrecord09 WITH (UPDLOCK) Set cHandler=@cHandler, dVeriDate=dDate,dNVerifyTime=getdate() WHERE Id=@ID
UPDATE mainbatch set chandler=@cHandler where cvouchtype=N'09' and rdmid=@ID

IF (SELECT count(1) FROM AccInformation WHERE cName='bOtherInCheck' AND cvalue='True')>0
BEGIN
EXEC ST_VerForStock N'09',@ID,0,1,1

SELECT @SPID='spid_'+CAST(@@SPID AS NVARCHAR(10))

insert into SCM_Item(cInvCode,cfree1,cfree2,cfree3,cfree4,cfree5,cfree6,cfree7,cfree8,cfree9,cfree10)
select distinct cInvCode,cfree1,cfree2,cfree3,cfree4,cfree5,cfree6,cfree7,cfree8,cfree9,cfree10 from SCM_EntryLedgerBuffer a with (nolock)
where a.transactionid=@SPID and not exists (select 1 from SCM_Item Item where Item.cInvCode=a.cInvCode and Item.cfree1=a.cfree1
and Item.cfree2=a.cfree2 and Item.cfree3=a.cfree3 and Item.cfree4=a.cfree4 and Item.cfree5=a.cfree5
and Item.cfree6=a.cfree6 and Item.cfree7=a.cfree7 and Item.cfree8=a.cfree8 and Item.cfree9=a.cfree9 and Item.cfree10=a.cfree10 )

EXEC Usp_SCM_CommitGeneralLedgerWithCheck N'ST',1,2,1,1,0,0,2,1,1,0,0,0,0 ,1,@SPID
END
END
END