销售订单到生产任务单单据自定义
- 格式：docx
- 大小：193.17 KB
- 文档页数：6
SET QUOTED_IDENTIFIER ON
GO SET ANSI_NULLS ON
GO
IF EXISTS(select * from sysobjects where name='ICMrpDestBills_Insert_SynFields' and
type='TR')
Drop TRIGGER ICMrpDestBills_Insert_SynFields
GO
CREATE TRIGGER [ICMrpDestBills_Insert_SynFields] ON [dbo].[ICMrpDestBills]
FOR INSERT
AS
update v1
set v1.FHeadSelfJ0158 = u2.FBillNo -- FHeadSelfJ0160 产品预测单号
, v1.FHeadSelfJ0159 = u4.FName -- FHeadSelfJ0161 产品预测单表体物料名称 from ICMO v1
left join ICMrpDestBills u1 on v1.FInterID = u1.FDestBillInterID
left outer join PPOrder u2 on v1.FPPOrderInterID = u2.FInterID --产品预测单表头
left outer join PPOrderEntry u3 on u2.FInterID = u3.FInterID --产品预测单表体
left outer join T_ICItem u4 on u3.FItemID = u4.FItemID
where u1.FTranType in (54,85) and u3.FEntryID = v1.FSourceEntryID
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
MPS订单自定义携带到MRP订单样例：
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
IF EXISTS(select * from sysobjects where name='ICMRPResult_Insert' and type='TR')
Drop TRIGGER ICMRPResult_Insert
GO
CREATE TRIGGER [ICMRPResult_Insert] ON [dbo].[ICMRPResult]
FOR INSERT
AS
update v1
set v1.FHeadSelfJ0538 = T3.FHeadSelfJ0538
from ICMRPResult v1
inner join inserted u1 on u1.FInterID = V1.FInterID
inner join (SELECT T1.FInterID,T1.FHeadSelfJ0538 FROM ICMRPResult t1
INNER JOIN inserted T2 ON T2.FSrcPlanOrderInterID =
T1.FInterID) T3
ON V1.FSrcPlanOrderInterID = T3.FInterID
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
