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)
Index: KF2AD.mac.rou
===================================================================
diff -u -r2924 -r3013
--- KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 2924)
+++ KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 3013)
@@ -114,21 +114,15 @@
  S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,5)_D_UEP_D_PK1_"#"_PK2_D_$P(U2,D,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_U26_D_$P(U2,D,27,28)_D_ULTT_D_$P(U2,D,30,99)
  S @("^"_Q_UGL_"(KC,US,UR,UVN)")=U2
  D SWNODE^FLOWORD(KC,UR,UVN)
- New OrderID,OrderLijnID,OrderLijnCode,KlantID,ProductID,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
- Set OrderID=UR,OrderLijnID=UVN,KlantID=KC,ProductID=PR
- Set OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
- If ProductID {
-	 Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	 Do:$P(R,D,3)'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
-	 Do:$P(R,D,6)'=UEP WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Prijs())
-	 Do:$P(R,D,25)'=ULT WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
-	 If (WijzigingTypes.Count() > 0)
-	 {
-	 	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)
-	 }
- }
+ 
+ New OrderID,OrderLijnID,KlantID,WijzigingTypes
+ Set OrderID=UR,OrderLijnID=UVN,KlantID=KC
+ Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+ Do:$P(R,D,3)'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+ Do:$P(R,D,6)'=UEP WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Prijs())
+ Do:$P(R,D,25)'=ULT WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+ If (WijzigingTypes.Count() > 0) { Do ProductOrderLijnWijzigingen^FLOWORD2(KlantID, OrderID, OrderLijnID, WijzigingTypes) }
+ 
  Do:OldAant'=UA
  . Set MirrorLine=$$MirrorLine^FLOWORD(KC,UR,PR)
  . Quit:'MirrorLine
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r2990 -r3013
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2990)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 3013)
@@ -98,7 +98,7 @@
 				{					
 					Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(OrderUitvoeringService.MaakReservatieStructuur(Order,ProductLijn))
 					Set ReservatieFase = ..GeefReservatieFase(Order,ProductLijn)
-					Do OrderUitvoeringService.ZetReservatieFase(Order,OrderLijn,ReservatieFase)
+					Do OrderUitvoeringService.ZetReservatieFase(Order,ProductLijn,ReservatieFase)
 					Do ..VoegMeldingToe("Verwachte uitvoer aangemaakt (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
 				}
 				Else
Index: KTWL1.mac.rou
===================================================================
diff -u -r2869 -r3013
--- KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 2869)
+++ KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 3013)
@@ -49,20 +49,12 @@
  S @("^"_Q_"OD(KC,""F"",UR,UUZ)")=X
  D SWNODE^FLOWORD(KC,UR,UUZ)
  
- New OrderID,OrderLijnID,OrderLijnCode,KlantID,ProductID,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
- Set OrderID=UR,OrderLijnID=UUZ,KlantID=KC,ProductID=PR
- Set OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
- If ProductID {
-	 Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
-	 Do:OldOrderAantal'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
-	 If $L($G(OrdLevT)),OldOrderLevertermijn'=$G(OrdLevT) Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
-	 If (WijzigingTypes.Count() > 0)
-	 {
-	 	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)
-	 }
- }
+ New OrderID,OrderLijnID,KlantID,ProductID,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
+ Set OrderID=UR,OrderLijnID=UUZ,KlantID=KC
+ Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+ Do:OldOrderAantal'=UA WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+ If $L($G(OrdLevT)),OldOrderLevertermijn'=$G(OrdLevT) Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+ If (WijzigingTypes.Count() > 0) { Do ProductOrderLijnWijzigingen^FLOWORD2(KlantID, OrderID, OrderLijnID, WijzigingTypes) }
  
  D:UA'=$P(U2,D,3) RecalcCommKort^FLOWMANL("KOD",KC,UR)
  I $L($G(OrdLevT)),$$ASKTEKST^KF2(UR) D