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