Index: FLOWORD2.mac.rou
===================================================================
diff -u -r2992 -r3013
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 2992)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 3013)
@@ -701,11 +701,16 @@
  ;
  ; Event bij wijzigen van een orderlijn
 ProductOrderLijnGewijzigd(KlantID,OrderID,OrderLijnID,WijzigingType)
+ New WijzigingTypes
+ Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+ Do WijzigingTypes.Insert(WijzigingType)
+ Do ProductOrderLijnWijzigingen(KlantID, OrderID, OrderLijnID, WijzigingTypes)
+ Quit
+ 
+ProductOrderLijnWijzigingen(KlantID,OrderID,OrderLijnID,WijzigingTypes)
  New Rec,ProductID,OrderLijnCode,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
  Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
  If ProductID{
-	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	Do WijzigingTypes.Insert(WijzigingType)
 	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(ProductOrderLijnGewijzigdEvent)