Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3005 -r3202
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3005)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3202)
@@ -15,10 +15,10 @@
 	Set Order = OrderAPI.GeefOrder(90000)
 	Set OrderLijn = Order.GeefOrderLijnIterator().Next()
 	
-	Set ReservatieStructuur = Service.MaakReservatieStructuur(Order, OrderLijn)
+	Set ReservatieStructuur = Service.MaakReservatieStructuurHalux(OrderLijn)
 	Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90000,"Het ordernr")
 	Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,100,"Het order lijn uniek nr")
-	Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf")
+	Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).Halux(),"Het bedrijf")
 	
 	Set MoederProductReservatie = ReservatieStructuur.Reservatie
 	Do $$$AssertEquals(MoederProductReservatie.ProductID,700,"Moederproduct ProductID")
@@ -61,8 +61,12 @@
 	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
 	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor halux")
+	Set VerwachteUitvoer = ""
+	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt")
+	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor van hoecke")
 	Set VerwachteUitvoer = ""
 	
 	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 1 // Aantal van 2 naar 1 zetten
@@ -77,10 +81,11 @@
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
 	
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	// Halux uitvoer controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
 	Do $$$AssertEquals(Reservatie.GeefAantal(),1,"Het aantal van het moederproduct is op 1 geplaatst")
-	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het moeder is gewijzigd naar 2011-10-08 00:00:00")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de moeder is gewijzigd naar 2011-10-08 00:00:00")
 	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
 	Set KindReservatie1 = KindReservatieIterator.Next()
 	Do $$$AssertEquals(KindReservatie1.GeefAantal(),1,"Het aantal van het kindreservatie1 is van 2 naar 1 gegaan")
@@ -93,6 +98,13 @@
 	Do $$$AssertEquals(KindVanKindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het kind van kindreservatie2 is gewijzigd naar 2011-10-08 00:00:00")
 	Set VerwachteUitvoer = ""
 	
+	// Van hoecke uitvoer controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefAantal(),1,"Het aantal van het moederproduct is op 1 geplaatst")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de moeder is gewijzigd naar 2011-10-08 00:00:00")
+	Set VerwachteUitvoer = ""
+	
 	// Product wijzigen
 	
 	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 701 // Product wijzigen van 700 naar 701
@@ -103,11 +115,18 @@
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
 	
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	// Halux controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
 	Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd")
 	Set VerwachteUitvoer = ""
 	
+	// Van hoecke controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd")
+	Set VerwachteUitvoer = ""	
+	
 	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 700 // terug het product op 700 plaatsen
 	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 2 // terug het aantal op 2 plaatsen
 	Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62371 // terug de leverdag op 62371 plaatsen
@@ -118,8 +137,11 @@
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
 	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")
+	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd")
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
 	
 	// Lijn terug registreren
 	
@@ -131,8 +153,11 @@
 	Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
 	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De halux verwachte uitvoer werd verwijderd")
+	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd")
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
 ]]></Implementation>
 </Method>
 
@@ -158,7 +183,8 @@
 	Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijWachtendOpPicking(WachtendOpPickingEvent)
 	
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	// Halux controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
 	Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
 	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
@@ -170,14 +196,21 @@
 	Do $$$AssertEquals(KindVanKindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
 	Set VerwachteUitvoer = ""
 	
+	// Van hoecke controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
+	Set VerwachteUitvoer = ""
+	
 	// Order voor picking annuleren
 	
 	Set ConsolidatieID = 4567
 	Set PickingAnnulatieEventData = ##class(DOM.MAG.event.PickingAnnulatieEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
 	Set PickingAnnulatieEvent = ##class(DOM.MAG.event.PickingAnnulatieEvent).%New(PickingAnnulatieEventData)
 	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijPickingAnnulatie(PickingAnnulatieEvent)
 	
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	// Halux controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
 	Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
 	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
@@ -189,6 +222,12 @@
 	Do $$$AssertEquals(KindVanKindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
 	Set VerwachteUitvoer = ""
 	
+	// Van hoecke controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
+	Set VerwachteUitvoer = ""
+	
 	// Lijn terug verwijderen
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
@@ -324,10 +363,14 @@
 <Implementation><![CDATA[
 	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
+	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,100,##class(DOM.common.enu.Bedrijf).Halux())
+	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
 	Set VerwachteUitvoer = ""
 	
 	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
 	Set VerwachteInvoer = ""
 	
 	Set ^KPR(700) = ""
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r3013 -r3202
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 3013)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 3202)
@@ -38,7 +38,7 @@
 				Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),##class(DOM.common.enu.Bedrijf).VanHoecke())
 				If ('$IsObject(VerwachteInvoer))
 				{
-					Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ProductLijn)
+					Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(ProductLijn)
 					Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
 					Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, UniekLijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefUniekLijnNr())
 				}
@@ -96,39 +96,31 @@
 				Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductLijn.GeefOLU(),##class(DOM.common.enu.Bedrijf).VanHoecke())
 				If ('$IsObject(VerwachteUitvoer))
 				{					
-					Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(OrderUitvoeringService.MaakReservatieStructuur(Order,ProductLijn))
-					Set ReservatieFase = ..GeefReservatieFase(Order,ProductLijn)
-					Do OrderUitvoeringService.ZetReservatieFase(Order,ProductLijn,ReservatieFase)
+					Do OrderUitvoeringService.RegistreerOrderLijn(ProductLijn)
+					Do OrderUitvoeringService.ZetReservatieFase(ProductLijn,..GeefReservatieFase(ProductLijn))
 					Do ..VoegMeldingToe("Verwachte uitvoer aangemaakt (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
 				}
 				Else
 				{
-					If (VerwachteUitvoer.GeefReservatie().GeefReservatieFase() '= ..GeefReservatieFase(Order, ProductLijn))
+					If (VerwachteUitvoer.GeefReservatie().GeefReservatieFase() '= ..GeefReservatieFase(ProductLijn))
 					{
-						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillende reservatiefase (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr()_" (van "_VerwachteUitvoer.GeefReservatie().GeefReservatieFase()_" naar "_..GeefReservatieFase(Order, ProductLijn)_")")
-						Set ReservatieFase = ..GeefReservatieFase(Order,ProductLijn)
-						Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
-						While (ReservatieIterator.HasNext())
-						{
-							Set Reservatie = ReservatieIterator.Next()
-							Do Reservatie.ZetReservatieFase(ReservatieFase)
-						}
-						Do VerwachteUitvoer.Save()
+						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillende reservatiefase (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr()_" (van "_VerwachteUitvoer.GeefReservatie().GeefReservatieFase()_" naar "_..GeefReservatieFase(ProductLijn)_")")
+						Do OrderUitvoeringService.ZetReservatieFase(ProductLijn,..GeefReservatieFase(ProductLijn))
 					}
 					If (VerwachteUitvoer.GeefReservatie().GeefAantal() '= ProductLijn.GeefAantal())
 					{
 						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillend aantal (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr()_" (van "_VerwachteUitvoer.GeefReservatie().GeefAantal()_" naar "_ProductLijn.GeefAantal()_")")
-						Do OrderUitvoeringService.OrderLijnAantalGewijzigd(Order, ProductLijn)
+						Do OrderUitvoeringService.OrderLijnAantalGewijzigd(ProductLijn)
 					}
 					If (VerwachteUitvoer.GeefReservatie().GeefDueOut() '= ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
 					{
 						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillende due out (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
-						Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(Order, ProductLijn)
+						Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(ProductLijn)
 					}
 					If (VerwachteUitvoer.GeefReservatie().GeefProductID() '= ProductLijn.GeefProduct().GeefPRNr())
 					{
 						Do ..VoegMeldingToe("Verwachte uitvoer heeft ander product dan in orderlijn (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr()_" "_VerwachteUitvoer.GeefReservatie().GeefProductID()_" <-> "_ProductLijn.GeefProduct().GeefPRNr())
-						Do OrderUitvoeringService.OrderLijnProductGewijzigd(Order, ProductLijn)
+						Do OrderUitvoeringService.OrderLijnProductGewijzigd(ProductLijn)
 					}
 				}
 			}
@@ -282,11 +274,11 @@
 </Method>
 
 <Method name="GeefReservatieFase">
-<FormalSpec>Order:DOM.OV.Order,ProductLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <ReturnType>DOM.ProdRes.enu.ReservatieFase</ReturnType>
 <Implementation><![CDATA[
 	Set ReservatieFase = ##class(DOM.ProdRes.enu.ReservatieFase).InOrder()
-	If ($Data(^ORDW("IO",Order.GeefOrderNr(),ProductLijn.GeefOLU())))
+	If ($Data(^ORDW("IO",ProductLijn.GeefOrder().GeefOrderNr(),ProductLijn.GeefOLU())))
 	{
 		Set ReservatieFase = ##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering()
 	}
Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml
===================================================================
diff -u -r2270 -r3202
--- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 2270)
+++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml	(.../OrderUitvoeringService.cls.xml)	(revision 3202)
@@ -10,5 +10,20 @@
 <InitialExpression>##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).%New()</InitialExpression>
 <Private>1</Private>
 </Property>
+
+<Method name="AnnuleerOrderLijn">
+<Abstract>1</Abstract>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+</Method>
+
+<Method name="WisAfgewerkteOrderLijn">
+<Abstract>1</Abstract>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+</Method>
+
+<Method name="RegistreerOrderLijn">
+<Abstract>1</Abstract>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+</Method>
 </Class>
 </Export>
Index: DOM/AKP/event/ProductToelevLijnEventData.cls.xml
===================================================================
diff -u -r2990 -r3202
--- DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 2990)
+++ DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 3202)
@@ -8,16 +8,25 @@
 
 <Property name="ToeleveringID">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="ToeleveringLijnCode">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="ProductID">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="ProductToeleveringLijn">
+<Type>DOM.LEV.ProductToeleveringLijn</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ToeleveringID:%String,ToeleveringLijnCode:%String,ProductID:%String</FormalSpec>
 <Private>1</Private>
@@ -49,6 +58,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductToeleveringLijn">
+<ReturnType>DOM.LEV.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..ProductToeleveringLijn))
+	{
+		Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(..GeefToeleveringID())
+		If ('$IsObject(Toelevering)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Toelevering "_..GeefToeleveringID()_" bestaat niet")) }
+		Set ..ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(..GeefToeleveringLijnCode())
+		If ('$IsObject(..ProductToeleveringLijn)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Toeleveringlijn bestaat niet (OrderID, OrderLijnCode): "_..GeefToeleveringID()_" "_..GeefToeleveringLijnCode()_" bestaat niet")) }
+	}
+	Quit ..ProductToeleveringLijn
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ProductToelevLijnEventDataState</State>
Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r3029 -r3202
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 3029)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 3202)
@@ -5,21 +5,22 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="MaakReservatieStructuur">
+<Method name="MaakReservatieStructuurHalux">
 <Description>
 Internal private, maar zolang de data met de oude en nieuwe structuur moet in sync gehouden worden moet deze public staan.
 Deze hoort dus niet op de interface. Kan private worden als 'vhConsistency.Checks.InvoerUitvoerLinken' wordt uitgeschakeld.</Description>
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <ReturnType>DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer</ReturnType>
 <Implementation><![CDATA[
 	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
 	
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
 	Set Product = ProductOrderLijn.GeefProduct()
+	Set Order = ProductOrderLijn.GeefOrder()
 	
 	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = Order.GeefOrderNr()
 	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefOLU()
-	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
 	
 	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
 	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
@@ -73,38 +74,93 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakReservatieStructuurVH">
+<Description>
+Internal private, maar zolang de data met de oude en nieuwe structuur moet in sync gehouden worden moet deze public staan.
+Deze hoort dus niet op de interface. Kan private worden als 'vhConsistency.Checks.InvoerUitvoerLinken' wordt uitgeschakeld.</Description>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[
+	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()	
+	Set Product = ProductOrderLijn.GeefProduct()
+	Set Order = ProductOrderLijn.GeefOrder()
+	
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = Order.GeefOrderNr()
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefOLU()
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	Set Reservatie.ProductID = Product.GeefPRNr()
+	Set Reservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+	Set Reservatie.Aantal = ProductOrderLijn.GeefAantal()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ProductenStack = ##class(TECH.Stack).%New()
+	Set ReservatieStack = ##class(TECH.Stack).%New()
+	Do ProductenStack.Push(Product)
+	Do ReservatieStack.Push(Reservatie)
+	While ('ProductenStack.IsEmpty())
+	{
+		Set Product = ProductenStack.Pop()
+		Set Reservatie = ReservatieStack.Pop()
+		
+		Set KindBouwstenenIterator = Product.GeefKindBouwstenenIterator()
+		While (KindBouwstenenIterator.HasNext())
+		{
+			Set KindBouwsteen = KindBouwstenenIterator.Next()
+			Set KindProductID = KindBouwsteen.KindProductGetObjectId()
+			
+			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+			Set KindReservatie.ProductID = KindProductID
+			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+			Set KindReservatie.Aantal = Reservatie.Aantal*KindBouwsteen.Aantal
+			Set KindReservatie.IsTransferReservatie = 0
+			Do Reservatie.KindReservaties.Insert(KindReservatie)
+			
+			Do ProductenStack.Push(ProductAPI.GeefProduct(KindProductID))
+			Do ReservatieStack.Push(KindReservatie)
+		}
+	}
+	
+	Quit ReservatieVoorVerwachteUitvoer
+]]></Implementation>
+</Method>
+
 <Method name="MaakVerwachteInvoerStructuur">
-<FormalSpec>Toelevering:DOM.LEV.Toelevering,ProductToeleveringLijn:DOM.LEV.ProductToeleveringLijn</FormalSpec>
+<FormalSpec>ProductToeleveringLijn:DOM.LEV.ProductToeleveringLijn</FormalSpec>
 <ReturnType>DOM.ProdRes.dto.VerwachteInvoerInfo</ReturnType>
 <Implementation><![CDATA[
 	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
 	Set VerwachteInvoerInfo.Aantal = ProductToeleveringLijn.GeefAantal()
 	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
 	Set VerwachteInvoerInfo.DueIn = ##class(TECH.DateTime).DateToTimeStamp(ProductToeleveringLijn.GeefLeverdag())
 	Set VerwachteInvoerInfo.ProductID = ProductToeleveringLijn.GeefProduct().GeefPRNr()
-	Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr()
+	Set VerwachteInvoerInfo.TransactieReferentie = ProductToeleveringLijn.GeefToelevering().GeefToeNr()
 	Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductToeleveringLijn.GeefUniekLijnNr()
 	Quit VerwachteInvoerInfo
 ]]></Implementation>
 </Method>
 
 <Method name="OrderLijnProductGewijzigd">
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
 	// Verwijder oude reservatie
-	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+	Do ..AnnuleerOrderLijn(ProductOrderLijn)
 	// Maak nieuwe reservatie
-	Do VerwachteUitvoerAPI.RegistreerReservaties(..MaakReservatieStructuur(Order, ProductOrderLijn))
+	Do ..RegistreerOrderLijn(ProductOrderLijn)
 ]]></Implementation>
 </Method>
 
 <Method name="OrderLijnLeverdatumGewijzigd">
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do VerwachteUitvoer.GeefReservatie().ZetDueOut(##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag()))
+	Do VerwachteUitvoer.Save()
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
 	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
 	While (ReservatieIterator.HasNext())
 	{
@@ -116,12 +172,15 @@
 </Method>
 
 <Method name="OrderLijnAantalGewijzigd">
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Set OrigineelAantal = VerwachteUitvoer.GeefReservatie().GeefAantal()
 	Set NieuwAantal = ProductOrderLijn.GeefAantal()
+	Do VerwachteUitvoer.GeefReservatie().ZetAantal(NieuwAantal)
+	Do VerwachteUitvoer.Save()
+	
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
 	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
 	While (ReservatieIterator.HasNext())
 	{
@@ -133,9 +192,13 @@
 </Method>
 
 <Method name="ZetReservatieFase">
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn,ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn,ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do VerwachteUitvoer.GeefReservatie().ZetReservatieFase(ReservatieFase)
+	Do VerwachteUitvoer.Save()
+	
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
 	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
 	While (ReservatieIterator.HasNext())
 	{
@@ -146,12 +209,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RegistreerOrderLijn">
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.RegistreerReservaties(..MaakReservatieStructuurHalux(ProductOrderLijn))
+	Do VerwachteUitvoerAPI.RegistreerReservaties(..MaakReservatieStructuurVH(ProductOrderLijn))
+]]></Implementation>
+</Method>
+
+<Method name="AnnuleerOrderLijn">
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(..GeefVerwachteUitvoer(ProductOrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
+	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(..GeefVerwachteUitvoer(ProductOrderLijn, ##class(DOM.common.enu.Bedrijf).Halux()).%Id())
+]]></Implementation>
+</Method>
+
+<Method name="WisAfgewerkteOrderLijn">
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(..GeefVerwachteUitvoer(ProductOrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
+	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(..GeefVerwachteUitvoer(ProductOrderLijn, ##class(DOM.common.enu.Bedrijf).Halux()).%Id())
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwachteUitvoer">
-<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductOrderLijn.GeefOLU(),##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Order = ProductOrderLijn.GeefOrder()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductOrderLijn.GeefOLU(),Bedrijf)
 	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_Order.GeefOrderNr()_", "_ProductOrderLijn.GeefOLU()))
 	Quit VerwachteUitvoer
 ]]></Implementation>
@@ -161,18 +252,10 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductOrderLijnGemaaktEvent:DOM.VKP.event.ProductOrderLijnGemaakt</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	
-	Set ProductOrderLijnEventData = ProductOrderLijnGemaaktEvent.Data
-	Set OrderID = ProductOrderLijnEventData.GeefOrderID()
-	Set OrderLijnID = ProductOrderLijnEventData.GeefOrderLijnID()
-	
-	Set Order = OrderAPI.GeefOrder(OrderID)
-	Set OrderLijn = Order.GeefOrderLijn(OrderLijnID)
-	
+	Set EventData = ProductOrderLijnGemaaktEvent.Data
 	Set OrderUitvoeringService = ..%New()
-	Do VerwachteUitvoerAPI.RegistreerReservaties(OrderUitvoeringService.MaakReservatieStructuur(Order, OrderLijn))
+	Do OrderUitvoeringService.RegistreerOrderLijn(EventData.GeefProductOrderLijn())
 ]]></Implementation>
 </Method>
 
@@ -183,28 +266,24 @@
 	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	Set OrderUitvoeringService = ..%New()
 	
-	Set ProductOrderLijnWijzigEventData = ProductOrderLijnGewijzigdEvent.Data
-	Set OrderID = ProductOrderLijnWijzigEventData.GeefOrderID()
-	Set OrderLijnID = ProductOrderLijnWijzigEventData.GeefOrderLijnID()
+	Set EventData = ProductOrderLijnGewijzigdEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
 	
-	Set Order = OrderAPI.GeefOrder(OrderID)
-	Set OrderLijn = Order.GeefOrderLijn(OrderLijnID)
-	
-	Set WijzigingTypesIterator = ProductOrderLijnWijzigEventData.GeefWijzigingTypesIterator()
+	Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
 	While (WijzigingTypesIterator.HasNext())
 	{
 		Set WijzigingType = WijzigingTypesIterator.Next()
 		If (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
 		{
-			Do OrderUitvoeringService.OrderLijnProductGewijzigd(Order,OrderLijn)
+			Do OrderUitvoeringService.OrderLijnProductGewijzigd(OrderLijn)
 		}
 		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
 		{
-			Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(Order,OrderLijn)
+			Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(OrderLijn)
 		}
 		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 		{
-			Do OrderUitvoeringService.OrderLijnAantalGewijzigd(Order,OrderLijn)
+			Do OrderUitvoeringService.OrderLijnAantalGewijzigd(OrderLijn)
 		}
 	}
 ]]></Implementation>
@@ -214,81 +293,51 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie</FormalSpec>
 <Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set ProductOrderLijnEventData = ProductOrderLijnAnnulatieEvent.Data
-	Set OrderID = ProductOrderLijnEventData.GeefOrderID()
-	Set OrderLijnCode = ProductOrderLijnEventData.GeefOrderLijnCode()
-	
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
-	
-	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+	Set EventData = ProductOrderLijnAnnulatieEvent.Data
+	Set OrderUitvoeringService = ..%New()
+	Do OrderUitvoeringService.AnnuleerOrderLijn(EventData.GeefProductOrderLijn())
 ]]></Implementation>
 </Method>
 
 <Method name="BijProductLijnOpBonEvent">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductLijnOpBonEventData = ProductLijnOpBonEvent.Data
-	Set OrderID = ProductLijnOpBonEventData.GeefOrderID()
-	Set OrderLijnCode = ProductLijnOpBonEventData.GeefOrderLijnCode()
-	
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
-	
-	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoer.%Id())
+	Set EventData = ProductLijnOpBonEvent.Data
+	Set OrderUitvoeringService = ..%New()
+	Do OrderUitvoeringService.WisAfgewerkteOrderLijn(EventData.GeefProductOrderLijn())
 ]]></Implementation>
 </Method>
 
 <Method name="BijWachtendOpPicking">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent</FormalSpec>
 <Implementation><![CDATA[
-	Set WachtendOpPickingEventData = WachtendOpPickingEvent.Data
-	Set OrderID = WachtendOpPickingEventData.GeefOrderID()
-	Set OrderLijnCode = WachtendOpPickingEventData.GeefOrderLijnCode()
-	
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set Order = OrderAPI.GeefOrder(OrderID)
-	Set OrderLijn = Order.GeefOrderLijnViaCode(OrderLijnCode)
-	
+	Set EventData = WachtendOpPickingEvent.Data
 	Set OrderUitvoeringService = ..%New()
-	Do OrderUitvoeringService.ZetReservatieFase(Order,OrderLijn,##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering())
+	Do OrderUitvoeringService.ZetReservatieFase(EventData.GeefProductOrderLijn(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering())
 ]]></Implementation>
 </Method>
 
 <Method name="BijPickingAnnulatie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PickingAnnulatieEvent:DOM.MAG.event.PickingAnnulatieEvent</FormalSpec>
 <Implementation><![CDATA[
-	Set PickingAnnulatieEventData = PickingAnnulatieEvent.Data
-	Set OrderID = PickingAnnulatieEventData.GeefOrderID()
-	Set OrderLijnCode = PickingAnnulatieEventData.GeefOrderLijnCode()
-	
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set Order = OrderAPI.GeefOrder(OrderID)
-	Set OrderLijn = Order.GeefOrderLijnViaCode(OrderLijnCode)
-	
+	Set EventData = PickingAnnulatieEvent.Data
 	Set OrderUitvoeringService = ..%New()
-	Do OrderUitvoeringService.ZetReservatieFase(Order,OrderLijn,##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
+	Do OrderUitvoeringService.ZetReservatieFase(EventData.GeefProductOrderLijn(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
 ]]></Implementation>
 </Method>
 
 <Method name="BijProductToelevLijnGemaakt">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductToeleveringLijnData = ProductToeleveringLijnGemaakt.Data
-	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
-	Set ToeleveringLijnCode = ProductToeleveringLijnData.GeefToeleveringLijnCode()
+	Set EventData = ProductToeleveringLijnGemaakt.Data
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
 	
-	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(ToeleveringLijnCode)
-	
 	Set OrderUitvoeringService = ..%New()
-	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ToeleveringLijn)
+	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(ToeleveringLijn)
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
@@ -311,27 +360,25 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductToeleveringLijnWijzigData = ProductToeleveringLijnGewijzigd.Data
-	Set ToeleveringID = ProductToeleveringLijnWijzigData.GeefToeleveringID()
-	Set ToeleveringLijnCode = ProductToeleveringLijnWijzigData.GeefToeleveringLijnCode()
+	Set EventData = ProductToeleveringLijnGewijzigd.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
 	
-	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(ToeleveringLijnCode)
-	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke())
 	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
 	
 	Set OrderUitvoeringService = ..%New()
 	
-	Set WijzigingTypesIterator = ProductToeleveringLijnWijzigData.GeefWijzigingTypesIterator()
+	Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
 	While (WijzigingTypesIterator.HasNext())
 	{
 		Set WijzigingType = WijzigingTypesIterator.Next()
 		If (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
 		{
 			Do VerwachteInvoer.Delete()
-			Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ToeleveringLijn))
+			Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(OrderUitvoeringService.MaakVerwachteInvoerStructuur(ToeleveringLijn))
 		}
 		ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
 		{
@@ -351,9 +398,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductToeleveringLijnData = ProductToeleveringLijnAnnulatie.Data
-	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
-	Set ToeleveringLijnCode = ProductToeleveringLijnData.GeefToeleveringLijnCode()
+	Set EventData = ProductToeleveringLijnAnnulatie.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
@@ -367,9 +414,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductToeleveringLijnData = ProductToeleveringLijnIngeboekt.Data
-	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
-	Set ToeleveringLijnCode = ProductToeleveringLijnData.GeefToeleveringLijnCode()
+	Set EventData = ProductToeleveringLijnIngeboekt.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
@@ -383,17 +430,17 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
 <Implementation><![CDATA[
-	Set InvoerUitvoerLinkEventData = InvoerUitvoerLinkVerbrokenEvent.Data
+	Set EventData = InvoerUitvoerLinkVerbrokenEvent.Data
 	
-	Set ToeleveringID = InvoerUitvoerLinkEventData.GeefToeleveringID()
-	Set ToeleveringLijnCode = InvoerUitvoerLinkEventData.GeefToeleveringLijnCode()
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
 	
-	Set OrderID = InvoerUitvoerLinkEventData.GeefOrderID()
-	Set OrderLijnCode = InvoerUitvoerLinkEventData.GeefOrderLijnCode()
+	Set OrderID = EventData.GeefOrderID()
+	Set OrderLijnCode = EventData.GeefOrderLijnCode()
 	
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
Index: DOM/VKP/event/ProductOrderLijnEventData.cls.xml
===================================================================
diff -u -r2771 -r3202
--- DOM/VKP/event/ProductOrderLijnEventData.cls.xml	(.../ProductOrderLijnEventData.cls.xml)	(revision 2771)
+++ DOM/VKP/event/ProductOrderLijnEventData.cls.xml	(.../ProductOrderLijnEventData.cls.xml)	(revision 3202)
@@ -26,6 +26,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductOrderLijn">
+<Type>DOM.OV.ProductOrderlijn</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderID:%String,OrderLijnCode:%String,KlantID:%String,ProductID:%String</FormalSpec>
 <Private>1</Private>
@@ -70,6 +76,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductOrderLijn">
+<ReturnType>DOM.OV.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..ProductOrderLijn))
+	{
+		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..GeefOrderID())
+		If ('$IsObject(Order)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Order "_..GeefOrderID()_" bestaat niet")) }
+		Set ..ProductOrderLijn = Order.GeefOrderLijnViaCode(..GeefOrderLijnCode())
+		If ('$IsObject(..ProductOrderLijn)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Orderlijn bestaat niet (OrderID, OrderLijnCode): "_..GeefOrderID()_" "_..GeefOrderLijnCode()_" bestaat niet")) }
+	}
+	Quit ..ProductOrderLijn
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ProductOrderLijnEventDataState</State>
Index: DOM/VKP/event/ProductLijnOpBonEventData.cls.xml
===================================================================
diff -u -r2886 -r3202
--- DOM/VKP/event/ProductLijnOpBonEventData.cls.xml	(.../ProductLijnOpBonEventData.cls.xml)	(revision 2886)
+++ DOM/VKP/event/ProductLijnOpBonEventData.cls.xml	(.../ProductLijnOpBonEventData.cls.xml)	(revision 3202)
@@ -21,6 +21,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductOrderLijn">
+<Type>DOM.OV.ProductOrderlijn</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderID:%String,OrderLijnCode:%String,BonID:%String</FormalSpec>
 <Private>1</Private>
@@ -52,6 +58,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductOrderLijn">
+<ReturnType>DOM.OV.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..ProductOrderLijn))
+	{
+		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..GeefOrderID())
+		If ('$IsObject(Order)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Order "_..GeefOrderID()_" bestaat niet")) }
+		Set ..ProductOrderLijn = Order.GeefOrderLijnViaCode(..GeefOrderLijnCode())
+		If ('$IsObject(..ProductOrderLijn)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Orderlijn bestaat niet (OrderID, OrderLijnCode): "_..GeefOrderID()_" "_..GeefOrderLijnCode()_" bestaat niet")) }
+	}
+	Quit ..ProductOrderLijn
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>ProductLijnOpBonEventDataState</State>
Index: DOM/MAG/event/PickingAnnulatieEventData.cls.xml
===================================================================
diff -u -r2889 -r3202
--- DOM/MAG/event/PickingAnnulatieEventData.cls.xml	(.../PickingAnnulatieEventData.cls.xml)	(revision 2889)
+++ DOM/MAG/event/PickingAnnulatieEventData.cls.xml	(.../PickingAnnulatieEventData.cls.xml)	(revision 3202)
@@ -21,6 +21,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductOrderLijn">
+<Type>DOM.OV.ProductOrderlijn</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderID:%String,OrderLijnCode:%String,ConsolidatieID:%String</FormalSpec>
 <Private>1</Private>
@@ -52,6 +58,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductOrderLijn">
+<ReturnType>DOM.OV.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..ProductOrderLijn))
+	{
+		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..GeefOrderID())
+		If ('$IsObject(Order)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Order "_..GeefOrderID()_" bestaat niet")) }
+		Set ..ProductOrderLijn = Order.GeefOrderLijnViaCode(..GeefOrderLijnCode())
+		If ('$IsObject(..ProductOrderLijn)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Orderlijn bestaat niet (OrderID, OrderLijnCode): "_..GeefOrderID()_" "_..GeefOrderLijnCode()_" bestaat niet")) }
+	}
+	Quit ..ProductOrderLijn
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>PickingAnnulatieEventDataState</State>
Index: DOM/MAG/event/WachtendOpPickingEventData.cls.xml
===================================================================
diff -u -r2889 -r3202
--- DOM/MAG/event/WachtendOpPickingEventData.cls.xml	(.../WachtendOpPickingEventData.cls.xml)	(revision 2889)
+++ DOM/MAG/event/WachtendOpPickingEventData.cls.xml	(.../WachtendOpPickingEventData.cls.xml)	(revision 3202)
@@ -21,6 +21,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductOrderLijn">
+<Type>DOM.OV.ProductOrderlijn</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderID:%String,OrderLijnCode:%String,ConsolidatieID:%String</FormalSpec>
 <Private>1</Private>
@@ -52,6 +58,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductOrderLijn">
+<ReturnType>DOM.OV.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(..ProductOrderLijn))
+	{
+		Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..GeefOrderID())
+		If ('$IsObject(Order)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Order "_..GeefOrderID()_" bestaat niet")) }
+		Set ..ProductOrderLijn = Order.GeefOrderLijnViaCode(..GeefOrderLijnCode())
+		If ('$IsObject(..ProductOrderLijn)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Orderlijn bestaat niet (OrderID, OrderLijnCode): "_..GeefOrderID()_" "_..GeefOrderLijnCode()_" bestaat niet")) }
+	}
+	Quit ..ProductOrderLijn
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>WachtendOpPickingEventDataState</State>