Index: FLOWTOE2.mac.rou
===================================================================
diff -u -r29059 -r38012
--- FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 29059)
+++ FLOWTOE2.mac.rou	(.../FLOWTOE2.mac.rou)	(revision 38012)
@@ -334,9 +334,12 @@
  ;
  ; Event bij aanmaken van een toeleveringslijn
 ProductToeleveringLijnGemaakt(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
- New Rec,ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,ProductToeleveringLijnGemaaktEvent
- Set Rec=^KTO(LeverancierNummer,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
+ New Rec,ProductID,ToeleveringLijnCode
+ Set Rec=^KTO(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
+ Set ProductID=$P(Rec,D,2)
+ Set ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
  If ProductID{
+	 New LeverancierID,ProductToeleveringLijnEventData,ProductToeleveringLijnGemaaktEvent
 	 #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer)
 	 Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
 	 Set ProductToeleveringLijnGemaaktEvent = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
@@ -346,9 +349,10 @@
  ;
  ; Event bij verwijderen van een toeleveringslijn
 ProductToeleveringLijnAnnulatie(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
- New Rec,ProductID,ToeleveringLijnCode,ProductToeleveringLijnEventData,ProductToeleveringLijnAnnulatie
+ New Rec,ProductID,ToeleveringLijnCode
  Set Rec=^KTO(LeverancierNummer,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
  If ProductID{
+	 New LeverancierID,ProductToeleveringLijnEventData,ProductToeleveringLijnAnnulatie
 	 #dim LeverancierID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNummer)
 	 Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, LeverancierID)
 	 Set ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
@@ -377,7 +381,7 @@
  ;
  ; Event bij het aanmaken van een KOM-link
 InvoerUitvoerLinkAangemaakt(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
- New Rec,ProductID,ToeleveringLijnCode,InvoerUitvoerLinkEventData,InvoerUitvoerLinkVerbrokenEvent,KlantID,OrderID,OrderLijnID,OrderLijnCode
+ New Rec,ProductID,ToeleveringLijnCode,InvoerUitvoerLinkEventData,InvoerUitvoerLinkAangemaaktEvent,KlantID,OrderID,OrderLijnID,OrderLijnCode
  Set Rec=^KTO(LeverancierNummer,ToeleveringID,ToeleveringLijnID),ProductID=$P(Rec,D,2),ToeleveringLijnCode=$$GeefToeleveringLijnCode^FLOWTOE(LeverancierNummer,ToeleveringID,ToeleveringLijnID)
  Set OrderID=$P(Rec,D,27),OrderLijnID=$P(Rec,D,28)
  If ProductID,OrderID{
@@ -404,3 +408,4 @@
  }
  Quit
  ;
+
Index: FLOWORD2.mac.rou
===================================================================
diff -u -r29059 -r38012
--- FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 29059)
+++ FLOWORD2.mac.rou	(.../FLOWORD2.mac.rou)	(revision 38012)
@@ -745,16 +745,20 @@
  ;
  ; Event bij aanmaken van een orderlijn
 ProductOrderLijnGemaakt(KlantNr,OrderID,OrderLijnNr,OudAantal)
- New Rec,ProductID,Aantal,OrderLijnID,ProductOrderLijnEventData,ProductOrderLijnGemaaktEvent,TerugnameOrderLijnEventData,TerugnameOrderLijnGemaaktEvent
- Set Rec=^KOD(KlantNr,"F",OrderID,OrderLijnNr),ProductID=$P(Rec,"\",2),Aantal=$G(OudAantal,$P(Rec,"\",3)),OrderLijnID=$$GeefOrderLijnCode^FLOWORD(KlantNr,OrderID,OrderLijnNr)
+ New Rec,ProductID,Aantal,OrderLijnID
+ Set Rec=^KOD(KlantNr,"F",OrderID,OrderLijnNr)
+ Set ProductID=$P(Rec,"\",2)
+ Set Aantal=$G(OudAantal,$P(Rec,"\",3))
+ Set OrderLijnID=$$GeefOrderLijnCode^FLOWORD(KlantNr,OrderID,OrderLijnNr)
  If ProductID {
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
-	If Aantal>0{
+	New KlantID Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
+	If Aantal>0 {
+		New ProductOrderLijnEventData,ProductOrderLijnGemaaktEvent
 		Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
 		Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
 		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductOrderLijnGemaaktEvent)
-	}
-	ElseIf Aantal<0{
+	} ElseIf Aantal<0 {
+		New TerugnameOrderLijnEventData,TerugnameOrderLijnGemaaktEvent
 		Set TerugnameOrderLijnEventData = ##class(DOM.VKP.event.TerugnameOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
 		Set TerugnameOrderLijnGemaaktEvent = ##class(DOM.VKP.event.TerugnameOrderLijnGemaakt).%New(TerugnameOrderLijnEventData)
 		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(TerugnameOrderLijnGemaaktEvent)
@@ -764,16 +768,21 @@
  ;
  ; Event bij verwijderen van een orderlijn
 ProductOrderLijnAnnulatie(KlantNr,OrderID,OrderLijnID,OudAantal)
- New Rec,ProductID,Aantal,OrderLijnCode,ProductOrderLijnEventData,ProductOrderLijnAnnulatieEvent,TerugnameOrderLijnEventData,TerugnameOrderLijnAnnulatieEvent
- Set Rec=^KOD(KlantNr,"F",OrderID,OrderLijnID),ProductID=$P(Rec,D,2),Aantal=$G(OudAantal,$P(Rec,D,3)),OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantNr,OrderID,OrderLijnID)
+ New Rec,ProductID,Aantal,OrderLijnCode
+ Set Rec=^KOD(KlantNr,"F",OrderID,OrderLijnID)
+ Set ProductID=$P(Rec,D,2)
+ Set Aantal=$G(OudAantal,$P(Rec,D,3))
+ Set OrderLijnCode=$$GeefOrderLijnCode^FLOWORD(KlantNr,OrderID,OrderLijnID)
  If ProductID {
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
+	New KlantID Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
 	If Aantal>0{
+		New ProductOrderLijnEventData,ProductOrderLijnAnnulatieEvent
 		Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 		Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
 		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductOrderLijnAnnulatieEvent)
 	}
 	ElseIf Aantal<0{
+		New TerugnameOrderLijnEventData,TerugnameOrderLijnAnnulatieEvent
 		Set TerugnameOrderLijnEventData = ##class(DOM.VKP.event.TerugnameOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 		Set TerugnameOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.TerugnameOrderLijnAnnulatie).%New(TerugnameOrderLijnEventData)
 		Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(TerugnameOrderLijnAnnulatieEvent)
@@ -823,3 +832,4 @@
 
 
 
+