Index: EWTOE.mac.rou
===================================================================
diff -u -r54159 -r61967
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 54159)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 61967)
@@ -162,6 +162,7 @@
  Set LevTW=$TR($$EXTDATE^vhDTyp(RCPDate,"DW4"),"/","")
  Set R=^($O(^KPR(PRNr,"J")))
  Set CifPPL=$$CifPPL(PRNr)
+ Do ReceptiePalletEventRaisen(PRNr,$P($G(WMS(1)),"\"),ORDNr,OLNr,AantWMS)
  Do HIST(LEVNr,TOENr,TLUNr,PRNr,AantWMS,RCPODate,HistRef,.WMS,,,OverKind)
  Do KWNODE^FLOWTOE(LEVNr,TOENr,TLNr)
  Do ProductToeleveringLijnIngeboekt^EWRCPS2(LEVNr,TOENr,TLNr)
@@ -174,7 +175,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))
+ .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 +211,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))
+ ...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"))
@@ -241,6 +242,15 @@
  Do REMOVE^vhLock("^KTO(LEVNr,TOENr)")
  Quit
  
+ ;
+ReceptiePalletEventRaisen(PRNr,PalId,ORDNr,OLUNr,Qty)
+ New ReceptiePalletEventData,ReceptiePalletEvent
+ Set ReceptiePalletEventData = ##class(APPS.MAG.Receptie.event.ReceptiePalletEventData).%New(PRNr, PalId, ORDNr, OLUNr, Qty)
+ Set ReceptiePalletEvent = ##class(APPS.MAG.Receptie.event.ReceptiePalletEvent).%New(ReceptiePalletEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ReceptiePalletEvent)
+ Quit
+ ;
+ 
  ; Om KOM-links op niveau van een kind van het product uit het order-lijn te ondersteunen...
 WijzigAantalIndienKind(AantalInToelevering,PRNrUitToelevering,PRNrUitOrder)
 	&SQL(SELECT KindBSKey INTO :Sleutel 
@@ -296,13 +306,14 @@
  .Do:$$HasHalfFabr^PRBS(PRNr) HADPR^PRHF(TOENr,TLUNr,PRNr,AantWMS,RCPODate) ; Verwerking halffabrikaten
  Quit
  
-Cache05Geproduceerd(LeverancierNummer, ToeleveringID, ToeleveringLijnCode, ProductID, ReceptieTijdstip, Aantal, AxConfigId, AxInventTransId, AxMaatwerkGenerischItemId)
+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)
+	 Do Cache05GeproduceerdEventData.SetOrderIdEnOrderlijnId(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
+	 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"
  }
@@ -533,7 +544,7 @@
  .....If ORDNr,OLNr Set KLNr=$P(^KO1(ORDNr,"F"),D),R=^KOD(KLNr,"F",ORDNr,OLNr),OLUNr=$P(R,D,15)
  .....Do RCPPAL^EWPAL(PRNr,$G(C("PALETID")),ORDNr,OLUNr,Aantal)
  .....Do TOELINE(,TOENr,TLUNr,,Aantal,BOAantal,"",1,.WMS)
- .....Do MARKTBXFINISHED(TOENr,TLUNr,Aantal,BOAantal,PRNr)
+ .....Do MARKTBXFINISHED(TOENr,TLUNr,Aantal,BOAantal,PRNr,ORDNr,OLUNr)
  .....Do CHKDEL^FLOWTOE(TOENr)
  .....If $G(KLNr),ORDNr,LEVNr=$$$LevHalux,'$D(^KTO1(TOENr)) Do
  ......If $$GetPickDatum^EWORDS6(ORDNr)'<$H Quit:$$IsVoorVandaagOfMorgen^EWORDS6(ORDNr)'=1
@@ -553,7 +564,7 @@
  Else  Do ERROR^EWLOG($T(UPTOEL))
  Quit
  
-MARKTBXFINISHED(TOENr,TLUNr,Aantal,BOAantal,PRNr)
+MARKTBXFINISHED(TOENr,TLUNr,Aantal,BOAantal,PRNr,ORDNr,OLUNr)
 	New rset,BatchID
 	Set rset = ##class(%ResultSet).%New("DOM.PM.Maatwerk.TBX.HaluxWerkoverzichtHelper:qGeefQueueIDs")
 	Do rset.Execute(TOENr,TLUNr)
@@ -567,7 +578,7 @@
 			GROUP BY TOENr)
 	For i=1:1:Aantal
 	{
-		Set LadeGerecepteerdEventData = ##class(TECH.Events.LadeGerecepteerdEventData).%New(TOENr,TLUNr,PRNr,BatchID,"-1")
+		Set LadeGerecepteerdEventData = ##class(TECH.Events.LadeGerecepteerdEventData).%New(TOENr,TLUNr,PRNr,BatchID,"-1",ORDNr,OLUNr)
 		Set LadeGerecepteerdEvent = ##class(TECH.Events.LadeGerecepteerdEvent).%New(LadeGerecepteerdEventData)
 		;Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(LadeGerecepteerdEvent)
 		Do EventQueue.AddEvent(LadeGerecepteerdEvent)