Index: EWORDS2.mac.rou
===================================================================
diff -u -r2974 -r2992
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 2974)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 2992)
@@ -41,6 +41,7 @@
  ...Set AutoCons=AutoCons+1 Set:Qty<0 CredCnt=CredCnt+1
  ..Else  Do  ; Doorgeven aan WMS
  ...Do BLDOL(KLNr,CONSNr,ORDNr,OLUNr,Qty,BOQty,BOLwk)
+ ..Do WachtendOpPicking(ORDNr,OLUNr,CONSNr)
  .Lock -^KOD(KLNr,"F",ORDNr)
  Set $P(^ORDW("D",CONSNr),D,6)=$S(CredCnt=OLCnt:"C",CredCnt:"G",1:"F")
  Set $P(^ORDW("D",CONSNr),D,25)=$G(QU(1))  ; opslaan wie bon effectief heeft doorgestuurd
@@ -170,6 +171,30 @@
  .Set $P(^ORDW("D",CONSNr),D,20)="" ; Niet volledig dus partieel afgewerkt
  Quit
  
+ ; Event bij het doorsturen van een lijn naar het WMS
+WachtendOpPicking(OrderID,OrderLijnCode,ConsolidatieID)
+ New WachtendOpPickingEventData,WachtendOpPickingEvent
+ Set WachtendOpPickingEventData = ##class(DOM.MAG.event.WachtendOpPickingEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
+ Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(WachtendOpPickingEvent)
+ Quit
+ 
+ ; Event bij het op bon zetten van een lijn
+ProductLijnOpBon(OrderID,OrderLijnCode,BonID)
+ New ProductLijnOpBonEventData,ProductLijnOpBonEvent
+ Set ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(OrderID, OrderLijnCode, BonID)
+ Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductLijnOpBonEvent)
+ Quit
+ 
+ ; Event bij het terugtrekken van een lijn uit het WMS
+PickingAnnulatie(OrderID,OrderLijnCode,ConsolidatieID)
+ New PickingAnnulatieEventData,PickingAnnulatieEvent
+ Set PickingAnnulatieEventData = ##class(DOM.MAG.event.PickingAnnulatieEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
+ Set PickingAnnulatieEvent = ##class(DOM.MAG.event.PickingAnnulatieEvent).%New(PickingAnnulatieEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(PickingAnnulatieEvent)
+ Quit
+ 
 CHKCONS(CONSNr,ChkBeletDone) 
  New CONSRec,OLRec,SubRec,ORDNr,OLUNr,SubOLNr,OLUStat,SubStat,Check,Rembours
  Set ORDNr=$O(^ORDW("D",CONSNr,"D",""))