Index: KTWL1.mac.rou
===================================================================
diff -u -r1436 -r2869
--- KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 1436)
+++ KTWL1.mac.rou	(.../KTWL1.mac.rou)	(revision 2869)
@@ -42,12 +42,28 @@
  S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 354 L (@("^"_Q_"TO(LC,TR)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  S FP=2403+F60 W @F,@F2,@F4,"ORDER ",UR," IS IN GEBRUIK [] = OK ",@F5 R K G 354
  D KWNODE^FLOWORD(KC,UR,UUZ)
-356 S X=@("^"_Q_"OD(KC,""F"",UR,UUZ)")
+356 S X=@("^"_Q_"OD(KC,""F"",UR,UUZ)"),OldOrderAantal=$p(X,D,3),OldOrderLevertermijn=$p(X,D,25)
  I UA'=$P(U2,D,3) S X=$P(X,D,1,2)_D_UA_D_$P(X,D,4,8)_D_($J($P(X,D,9)/$P(X,D,3)*UA,0,2))_D_($J($P(X,D,10)/$P(X,D,3)*UA,0,2))_D_$P(X,D,11,15)_D_($J($P(X,D,16)/$P(X,D,3)*UA,0,2))_D_$P(X,D,17,99)
  I $L($G(OrdLevT)),$P(@("^"_Q_"OD(KC,""F"",UR,1)"),D,25)'="C" D
  .S:$P(X,D,29)="" $P(X,D,29)=$P(X,D,25) S $P(X,D,25)=OrdLevT
  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)
+	 }
+ }
+ 
  D:UA'=$P(U2,D,3) RecalcCommKort^FLOWMANL("KOD",KC,UR)
  I $L($G(OrdLevT)),$$ASKTEKST^KF2(UR) D
  .S X="",$P(X,D,5)="Wijziging toelevering",$P(X,D,15)=$$UNIEKLNR^FLOWORD(KC,UR)
@@ -64,7 +80,7 @@
 39 K UEP,USP I '$G(ScrolToe) D S1 G 3^KTWL
  ;
 YZ K UO,U2,UR,UUZ,KC,UN,UMC,MSG,PGV,PST,PC,PR,PN,PRE,PSN,PY,PK1,PK2,Q15,Q16,UA,UK,UEP,UBE,TOD,UOD,UOR,ULT,ULTA,U26,X
- K OrdLevT
+ K OrdLevT,OldOrderAantal,OldOrderLevertermijn
  L @("^"_Q_"TO(LC,TR)") Q
  Q
  ;