Index: DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml
===================================================================
diff -u -r54995 -r55001
--- DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml	(.../Cache05GeproduceerdEventData.cls.xml)	(revision 54995)
+++ DOM/AKP/event/Cache05GeproduceerdEventData.cls.xml	(.../Cache05GeproduceerdEventData.cls.xml)	(revision 55001)
@@ -35,8 +35,12 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="OrderLijnId">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringID:%String="",ToeleveringLijnCode:%String="",ProductID:%String="",LeverancierID:%String="",ReceptieTijdstip:%String="",Aantal:%Integer=0,AxConfigId:%String="",AxInventTransId:%String="",AxMaatwerkGenerischItemId:%String="",OrderId:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String="",ToeleveringLijnCode:%String="",ProductID:%String="",LeverancierID:%String="",ReceptieTijdstip:%String="",Aantal:%Integer=0,AxConfigId:%String="",AxInventTransId:%String="",AxMaatwerkGenerischItemId:%String="",OrderId:%String="",OrderLijnId:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -47,6 +51,7 @@
 	Set ..AxInventTransId = AxInventTransId
 	Set ..AxMaatwerkGenerischItemId = AxMaatwerkGenerischItemId
 	Set ..OrderId = OrderId
+	Set ..OrderLijnId = OrderLijnId
 	
 	Do ##super(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
 	
@@ -90,6 +95,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderLijnId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderLijnId
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>Cache05GeproduceerdEventDataState</State>
@@ -125,6 +136,9 @@
 <Value name="10">
 <Value>OrderId</Value>
 </Value>
+<Value name="11">
+<Value>OrderLijnId</Value>
+</Value>
 </Data>
 <Data name="ProductToelevLijnEventDataState">
 <Subscript>"DOM.AKP.event.ProductToelevLijnEventData"</Subscript>
Index: EWTOE.mac.rou
===================================================================
diff -u -r54995 -r55001
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 54995)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 55001)
@@ -174,7 +174,7 @@
  If 'AantBo Do
  .Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
  .Do KILL(TOENr,TLNr)
- .Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27))
+ .Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),Besteld,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27),,$P(Rec,D,28))
  If AantBo Do
  .Set Rec=^KTO(LEVNr,TOENr,TLNr) Set:'$P(Rec,D,23) $P(Rec,D,23)=$P(Rec,D,3)
  .Set $P(Rec,D,9)=$J(($P(Rec,D,9)/$P(Rec,D,3)*AantBo),0,2)
@@ -210,7 +210,7 @@
  ...New r Set r=$P(Rec,D,28),$P(r,";")=OLNr,$P(Rec,D,28)=r
  ...Set ^KTO(LEVNr,TOENr,TLNr)=Rec
  ...Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LEVNr,TOENr,TLNr)
- ...Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27))
+ ...Do Cache05Geproduceerd(LEVNr,TOENr,ToeleveringLijnCode,PRNr,$P(Rec,D,30),AantWMS,$P(Rec,D,56),$P(Rec,D,55),$P(Rec,D,57),$P(Rec,D,27),$P(Rec,D,28))
  ..Do REMOVE^vhLock("^KOD(KLNr,""F"",ORDNr)")
  If ORDNr Do
  .Quit:'$D(^KO1(ORDNr,"F"))
@@ -296,13 +296,13 @@
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
  Quit
  
-Cache05Geproduceerd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId)
+Cache05Geproduceerd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId, OrderLijnId)
  New Cache05GeproduceerdEventData,Cache05GeproduceerdEvent
  If ProductID{	 
 	 Set LeverancierID = "L||"_LeverancierNummer
-	 Set Cache05GeproduceerdEventData = ##class(DOM.AKP.event.Cache05GeproduceerdEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId)
+	 Set Cache05GeproduceerdEventData = ##class(DOM.AKP.event.Cache05GeproduceerdEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId, OrderId, OrderLijnId)
 	 Set Cache05GeproduceerdEvent = ##class(DOM.AKP.event.Cache05GeproduceerdEvent).%New(Cache05GeproduceerdEventData)
-	 Set ^TVE(+$H,$I(^TVE(+$H)))=$H_"\Cache05GeproduceerdEvent\"_ProductID_"\"_Aantal_"\"_ToeleveringID_"\"_ToeleveringLijnCode_"\"_ProductID_"\"_LeverancierID_"\"_ReceptieTijdstip_"\"_Aantal_"\"_AxConfigId_"\"_AxInventTransId_"\"_AxMaatwerkGenerischItemId_"\"_OrderId
+	 Set ^TVE(+$H,$I(^TVE(+$H)))=$H_"\Cache05GeproduceerdEvent\"_ProductID_"\"_Aantal_"\"_ToeleveringID_"\"_ToeleveringLijnCode_"\"_ProductID_"\"_LeverancierID_"\"_ReceptieTijdstip_"\"_Aantal_"\"_AxConfigId_"\"_AxInventTransId_"\"_AxMaatwerkGenerischItemId_"\"_OrderId_"\"_OrderLijnId
 	 Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Cache05GeproduceerdEvent)
 	 Set ^TVE(+$H,$I(^TVE(+$H)))=$H_"\Cache05GeproduceerdEvent geraised"
  }