K3 计划订单投放时，将“关联物料”传递到采购和生产订单的“组部件”字段（触发器）

参考K/3 WISE 中MRP计算投放过程中 销售订单自定义字段怎么携带到任务单这篇文章，进行优化。

在表ICMrpDestBills下增加触发器，代码如下

CREATE TRIGGER [dbo].[ICMrpDestBills_update]
   ON  [dbo].[ICMrpDestBills]
   AFTER INSERT,UPDATE
AS 
BEGIN

SET NOCOUNT ON;


----当计划单中投放时,将“关联物料”传递到“组部件”


---获取标识，70采购，85生产
	DECLARE @Status int;
	select @Status=ftrantype from inserted

--处理投放生产任务单
if @Status=85
begin
update t1 set t1.FHeadSelfJ01105=T4.FItemID,t1.FHeadSelfJ01107=t4.FNumber,FHeadSelfJ01104=t4.FName
from 
icmo t1
inner join inserted t2 on T1.FInterID=T2.FDestBillInterID 
inner join ICMrpResult t3 on t2.FInterID=t3.FRunID AND T1.FPlanOrderInterID=T3.FInterID
inner join t_item t4 on t4.FItemClassID=4 and  t3.FHeadSelfJ0554=t4.FItemID
end

--处理投放采购申请单
if @Status=70
begin
update t1 set t1.FEntrySelfP0140=T4.FItemID,t1.FEntrySelfP0141=t4.FNumber,T1.FEntrySelfP0137=t4.FName
from 
PORequestEntry t1
inner join inserted t2 on T1.FInterID=T2.FDestBillInterID 
inner join ICMrpResult t3 on t2.FInterID=t3.FRunID AND T1.FPlanOrderInterID=T3.FInterID
inner join t_item t4 on t4.FItemClassID=4 and  t3.FHeadSelfJ0554=t4.FItemID
end

END

生产任务的计划订单

生产任务单

采购任务的计划订单

采购申请单