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())