Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3851 -r3872
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3851)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3872)
@@ -205,7 +205,7 @@
 	
 	Set ToeleveringID = 90001
 	Set ToeleveringLijnCode = 100
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)	
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
@@ -248,7 +248,7 @@
 	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
 	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
 	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
-	Set ProductToeleveringLijnWijzigEventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, 701, ProductToelevLijnWijzigingTypes)
+	Set ProductToeleveringLijnWijzigEventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, 701, 6332, ProductToelevLijnWijzigingTypes)
 	Set ProductToeleveringLijnGewijzigd = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(ProductToeleveringLijnWijzigEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
@@ -270,7 +270,7 @@
 	Set $Piece(^KTO(6332,90001,101),"\",3) = 250
 	Set $Piece(^KTO(6332,90001,1),"\",19) = "62371"
 	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)	
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)
@@ -280,12 +280,12 @@
 	
 	// Verwachte invoer terug aanmaken zodat we deze opnieuw kunnen verwijderen
 	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnIngeboekt = ##class(DOM.AKP.event.ProductToelevLijnIngeboekt).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
 	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
@@ -317,7 +317,7 @@
 	Set ToeleveringID = 90001
 	Set ToeleveringLijnCode = 100
 	Set ProductID = 700
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	
@@ -334,7 +334,7 @@
 	Do $$$AssertFalse(VerwachteInvoer.GeefInvoerUitvoerLinkIterator().HasNext(),"Er is geen invoer-uitvoer-link meer")
 	
 	// Verwachte invoer verwijderen
-	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)
 	Set ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnAnnulatie)