Index: KF2AD.mac.rou
===================================================================
diff -u -r2782 -r2869
--- KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 2782)
+++ KF2AD.mac.rou	(.../KF2AD.mac.rou)	(revision 2869)
@@ -114,18 +114,20 @@
  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 Rec,OrderID,OrderLijnID,OrderLijnCode,KlantID,ProductID,WijzigingTypes,ProductOrderLijnWijzigEventData,ProductOrderLijnGewijzigdEvent
- Set OrderID=UR,OrderLijnID=UVN,KlantID=KC
- Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantID,OrderID,OrderLijnID)
- 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,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)
+	 }
  }
  Do:OldAant'=UA
  . Set MirrorLine=$$MirrorLine^FLOWORD(KC,UR,PR)