Index: EWBON.mac.rou
===================================================================
diff -u -r2952 -r2992
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 2952)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 2992)
@@ -162,7 +162,7 @@
  ;Do REMLINE^EWORDST(CONSNr,ORDNr,OLUNr)
  Do ADDRES(CONSNr,ORDNr,OLUNr)
  Do KWNODE^FLOWORD(KLNr,ORDNr,OLNr)
- Do ProductLijnOpBon^FLOWORD2(KLNr,ORDNr,OLNr,CONSNr)
+ Do ProductLijnOpBon^EWORDS2(ORDNr,OLUNr,CONSNr)
  Kill ^KOD(KLNr,"F",ORDNr,OLNr)
  ; Copieren van tekst- en manuele lijnen na een productlijn
  For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do  Quit:PRNr
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",""))             
Index: EWORDST.mac.rou
===================================================================
diff -u -r734 -r2992
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 734)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 2992)
@@ -569,6 +569,7 @@
  If $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),D,2)'="B" Do
  .Set KLNr=$P(^ORDW("D",CONSNr),D,1)
  .Set OLNr=^ORD("IU",ORDNr,OLUNr),R=^KOD(KLNr,"F",ORDNr,OLNr)
+ .Do PickingAnnulatie^EWORDS2(ORDNr,OLUNr,CONSNr)
  .Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  .If $P(R,D,2),'$$MAGHANDEL^PRODUKT2($P(R,D,2)) Set StockUpd=0
  .Quit:'StockUpd
Index: FLOWORD2.mac.rou
===================================================================
diff -u -r2952 -r2992
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 2952)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 2992)
@@ -712,17 +712,6 @@
  }
  Quit
  ;
- ; Event bij het op bon zetten van een lijn
-ProductLijnOpBon(KlantID,OrderID,OrderLijnID,BonID)
- New Rec,ProductID,OrderLijnCode,ProductLijnOpBonEventData,ProductLijnOpBonEvent
- Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
- If ProductID{
-	 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
- ;
  ; Ophalen taalafhankelijke tekst
 TXT(Ref,Piece,Taal) 
  If '$D(Piece) Set Piece=2
Index: KF5.mac.rou
===================================================================
diff -u -r2952 -r2992
--- KF5.mac.rou	(.../KF5.mac.rou)	(revision 2952)
+++ KF5.mac.rou	(.../KF5.mac.rou)	(revision 2992)
@@ -65,7 +65,7 @@
 9 S U2=@("^"_Q_"OD(KC,US,UR,UZ)"),PR=$P(U2,D,2),OLUNr=$P(U2,D,15)
  I PR,OLUNr,$D(^ORDW("IO",UR,OLUNr)) G 5
  D KWNODE^FLOWORD(KC,UR,UZ)
- Do ProductLijnOpBon^FLOWORD2(KC,UR,UZ,URR)
+ Do ProductLijnOpBon^EWORDS2(UR,OLUNr,URR)
  S U2=@("^"_Q_"OD(KC,US,UR,UZ)") K ^(UZ) S PR=$P(U2,D,2),UA=$P(U2,D,3),UH=$P(U2,D,10)*UPAR,VWTYP=$P(U2,D,14),TR=$P(U2,D,27),TZ=$P($P(U2,D,28),";")
  I '$L(PR) D  G 5
  .D S3