Index: APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml
===================================================================
diff -u
--- APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml	(revision 0)
+++ APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml	(revision 3851)
@@ -0,0 +1,182 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OrderUitvoering.impl.HaluxReservatieService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakReservatieStructuur">
+<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>ToeleveringLijn:DOM.LEV.ProductToeleveringLijn</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 = ToeleveringLijn.GeefProduct()
+	Set Toelevering = ToeleveringLijn.GeefToelevering()
+	Set DueOut = ##class(TECH.DateTime).DateToTimeStamp(ToeleveringLijn.GeefLeverdag())
+	
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = Toelevering.GeefToeNr()
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ToeleveringLijn.GeefUniekLijnNr()
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	Set Reservatie.ProductID = Product.GeefPRNr()
+	Set Reservatie.DueOut = DueOut
+	Set Reservatie.Aantal = ToeleveringLijn.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 HFBouwstenenIterator = Product.GeefHFBouwstenenIterator()
+		While (HFBouwstenenIterator.HasNext())
+		{
+			Set HFBouwsteen = HFBouwstenenIterator.Next()
+			Set HFProductID = HFBouwsteen.KindProductGetObjectId()
+
+			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+			Set KindReservatie.ProductID = HFProductID
+			Set KindReservatie.DueOut = DueOut
+			Set KindReservatie.Aantal = Reservatie.Aantal*HFBouwsteen.Aantal
+			Set KindReservatie.IsTransferReservatie = 0
+			Do Reservatie.KindReservaties.Insert(KindReservatie)
+		}
+		
+		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 = DueOut
+			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="RegistreerToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.LEV.ProductToeleveringLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.RegistreerReservaties(..MaakReservatieStructuur(ToeleveringLijn))
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnGemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnGemaakt.Data
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	Set LeverancierHalux = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancierHalux()
+	If (LeverancierHalux.GeefNummer() = ToeleveringLijn.GeefToelevering().GeefLeverancierNummer())
+	{
+		Set ReservatieService = ..%New()
+		Do ReservatieService.RegistreerToeleveringLijn(ToeleveringLijn)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnGewijzigd.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	Set LeverancierHalux = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancierHalux()
+	If (LeverancierHalux.GeefNummer() = ToeleveringLijn.GeefToelevering().GeefLeverancierNummer())
+	{
+		Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+		Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
+		If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+		
+		Set Service = ..%New()
+		
+		Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
+		While (WijzigingTypesIterator.HasNext())
+		{
+			Set WijzigingType = WijzigingTypesIterator.Next()
+			If (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
+			{
+				Do VerwachteUitvoer.Delete()
+				Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(Service.MaakReservatieStructuur(ToeleveringLijn))
+			}
+			ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
+			{
+				Do VerwachteUitvoer.WijzigDueOut(##class(TECH.DateTime).DateToTimeStamp(ToeleveringLijn.GeefLeverdag()))
+			}
+			ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
+			{
+				Do VerwachteUitvoer.WijzigAantal(ToeleveringLijn.GeefAantal())
+			}
+		}
+		
+		Do VerwachteUitvoer.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnAnnulatie.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	Set LeverancierHalux = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancierHalux()
+	If (LeverancierHalux.GeefNummer() = ToeleveringLijn.GeefToelevering().GeefLeverancierNummer())
+	{
+		Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+		Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
+		If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+		Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnIngeboekt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnIngeboekt.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	Set LeverancierHalux = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefLeverancierHalux()
+	If (LeverancierHalux.GeefNummer() = ToeleveringLijn.GeefToelevering().GeefLeverancierNummer())
+	{
+		Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+		Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).Halux())
+		If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+		Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoer.%Id())
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml
===================================================================
diff -u
--- APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(revision 0)
+++ APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(revision 3851)
@@ -0,0 +1,314 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OrderUitvoering.impl.VanHoeckeReservatieService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="MaakReservatieStructuur">
+<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 IsTransferReservatie = (Order.GeefOrderType() = ##class(DOM.OV.enu.OrderType).Transfer())
+	
+	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 = IsTransferReservatie
+	
+	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 = IsTransferReservatie
+			Do Reservatie.KindReservaties.Insert(KindReservatie)
+			
+			Do ProductenStack.Push(ProductAPI.GeefProduct(KindProductID))
+			Do ReservatieStack.Push(KindReservatie)
+		}
+	}
+	
+	Quit ReservatieVoorVerwachteUitvoer
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerwachteInvoerStructuur">
+<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 = ProductToeleveringLijn.GeefToelevering().GeefToeNr()
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductToeleveringLijn.GeefUniekLijnNr()
+	Quit VerwachteInvoerInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteUitvoer">
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefVerwachteUitvoerViaID(ProductOrderLijn.GeefOrder().GeefOrderNr(),ProductOrderLijn.GeefOLU(),Bedrijf)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteUitvoerViaID">
+<FormalSpec>OrderID:%String,OrderLijnCode:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,Bedrijf)
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
+	Quit VerwachteUitvoer
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnGemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnGemaaktEvent:DOM.VKP.event.ProductOrderLijnGemaakt</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductOrderLijnGemaaktEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.RegistreerReservaties(..%New().MaakReservatieStructuur(OrderLijn))
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set Service = ..%New()
+	
+	Set EventData = ProductOrderLijnGewijzigdEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
+	Set VerwachteUitvoer = Service.GeefVerwachteUitvoer(OrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
+	While (WijzigingTypesIterator.HasNext())
+	{
+		Set WijzigingType = WijzigingTypesIterator.Next()
+		If (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+		{
+			Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+			Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).%New().MaakReservatieStructuur(OrderLijn))
+		}
+		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+		{
+			Set DueOut = ##class(TECH.DateTime).DateToTimeStamp(OrderLijn.GeefLeverdag())
+			Do VerwachteUitvoer.WijzigDueOut(DueOut)
+		}
+		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+		{
+			Do VerwachteUitvoer.WijzigAantal(OrderLijn.GeefAantal())
+		}
+	}
+	
+	Do VerwachteUitvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductOrderLijnAnnulatieEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
+	Set Service = ..%New()
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(Service.GeefVerwachteUitvoer(OrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
+]]></Implementation>
+</Method>
+
+<Method name="BijProductLijnOpBonEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductLijnOpBonEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
+	Set Service = ..%New()
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(Service.GeefVerwachteUitvoer(OrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
+]]></Implementation>
+</Method>
+
+<Method name="BijWachtendOpPicking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderLijn = WachtendOpPickingEvent.Data.GeefProductOrderLijn()
+	Set Service = ..%New()
+	Set VerwachteUitvoer = Service.GeefVerwachteUitvoer(OrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do VerwachteUitvoer.WijzigReservatieFase(##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering())
+	Do VerwachteUitvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BijPickingAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PickingAnnulatieEvent:DOM.MAG.event.PickingAnnulatieEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderLijn = PickingAnnulatieEvent.Data.GeefProductOrderLijn()
+	Set Service = ..%New()
+	Set VerwachteUitvoer = Service.GeefVerwachteUitvoer(OrderLijn, ##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do VerwachteUitvoer.WijzigReservatieFase(##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
+	Do VerwachteUitvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnGemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnGemaakt.Data
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	
+	Set OrderUitvoeringService = ..%New()
+	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(ToeleveringLijn)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set GelinkteOrderLijn = ToeleveringLijn.GeefOrderLijn()
+	If ($IsObject(GelinkteOrderLijn))
+	{
+		Set GelinktOrder = GelinkteOrderLijn.GeefOrder()
+		Set OrderID = GelinktOrder.GeefOrderNr()
+		Set OrderLijnCode = GelinkteOrderLijn.GeefOLU()
+		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 VerwachteInvoerAPI.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(), VerwachteUitvoer.%Id())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductToeleveringLijnGewijzigd.Data
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
+	
+	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 OrderUitvoeringService = ..%New()
+	
+	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(ToeleveringLijn))
+		}
+		ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
+		{
+			Do VerwachteInvoer.ZetDueIn(##class(TECH.DateTime).DateToTimeStamp(ToeleveringLijn.GeefLeverdag()))
+		}
+		ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
+		{
+			Do VerwachteInvoer.ZetAantal(ToeleveringLijn.GeefAantal())
+		}
+	}
+	
+	Do VerwachteInvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie</FormalSpec>
+<Implementation><![CDATA[
+	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())
+	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+	Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnIngeboekt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt</FormalSpec>
+<Implementation><![CDATA[
+	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())
+	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+	Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="BijInvoerUitvoerLinkVerbroken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = InvoerUitvoerLinkVerbrokenEvent.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())
+	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+	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())
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
+	
+	Do VerwachteInvoerAPI.VerbreekInvoerUitvoerLinken(VerwachteInvoer.%Id(),VerwachteUitvoer.%Id())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/OV/Order.cls.xml
===================================================================
diff -u -r2774 -r3851
--- DOM/OV/Order.cls.xml	(.../Order.cls.xml)	(revision 2774)
+++ DOM/OV/Order.cls.xml	(.../Order.cls.xml)	(revision 3851)
@@ -104,5 +104,10 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefOrderType">
+<Abstract>1</Abstract>
+<ReturnType>DOM.OV.enu.OrderType</ReturnType>
+</Method>
 </Class>
 </Export>
Index: DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r3526 -r3851
--- DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 3526)
+++ DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 3851)
@@ -129,6 +129,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrderType">
+<ReturnType>DOM.OV.enu.OrderType</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..HoofdingData,"\",25)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrderNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..OrderNr
Index: DOM/OV/enu/OrderType.cls.xml
===================================================================
diff -u -r1600 -r3851
--- DOM/OV/enu/OrderType.cls.xml	(.../OrderType.cls.xml)	(revision 1600)
+++ DOM/OV/enu/OrderType.cls.xml	(.../OrderType.cls.xml)	(revision 3851)
@@ -7,11 +7,11 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,M,P,Y,C,K,A</Default>
+<Default>,M,P,Y,C,K,A,T</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;Monster;Proforma;CashCarry;Contract;KlantGebonden;Afroep</Default>
+<Default><![CDATA[;Monster;Proforma;Cash&Carry;Contract;KlantGebonden;Afroep;Transfer]]></Default>
 </Parameter>
 
 <Method name="Monster">
@@ -49,5 +49,11 @@
 <Implementation><![CDATA[	Quit "A"
 ]]></Implementation>
 </Method>
+
+<Method name="Transfer">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "T"
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r3479 -r3851
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 3479)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 3851)
@@ -4,479 +4,5 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
-
-<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>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).Halux()
-	
-	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 HFBouwstenenIterator = Product.GeefHFBouwstenenIterator()
-		While (HFBouwstenenIterator.HasNext())
-		{
-			Set HFBouwsteen = HFBouwstenenIterator.Next()
-			Set HFProductID = HFBouwsteen.KindProductGetObjectId()
-
-			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
-			Set KindReservatie.ProductID = HFProductID
-			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
-			Set KindReservatie.Aantal = Reservatie.Aantal*HFBouwsteen.Aantal
-			Set KindReservatie.IsTransferReservatie = 0
-			Do Reservatie.KindReservaties.Insert(KindReservatie)
-		}
-		
-		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="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>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 = ProductToeleveringLijn.GeefToelevering().GeefToeNr()
-	Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductToeleveringLijn.GeefUniekLijnNr()
-	Quit VerwachteInvoerInfo
-]]></Implementation>
-</Method>
-
-<Method name="OrderLijnProductGewijzigd">
-<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
-<Implementation><![CDATA[
-	// Verwijder oude reservatie
-	Do ..AnnuleerOrderLijn(ProductOrderLijn.GeefOrder().GeefOrderNr(),ProductOrderLijn.GeefOLU())
-	// Maak nieuwe reservatie
-	Do ..RegistreerOrderLijn(ProductOrderLijn)
-]]></Implementation>
-</Method>
-
-<Method name="OrderLijnLeverdatumGewijzigd">
-<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
-<Implementation><![CDATA[
-	Set DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do ..WijzigDueOut(VerwachteUitvoer, DueOut)	
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
-	Do ..WijzigDueOut(VerwachteUitvoer, DueOut)
-]]></Implementation>
-</Method>
-
-<Method name="WijzigDueOut">
-<FormalSpec>VerwachteUitvoer:DOM.ProdRes.VerwachteUitvoer,DueOut:%TimeStamp</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
-	While (ReservatieIterator.HasNext())
-	{
-		Set Reservatie = ReservatieIterator.Next()
-		Do Reservatie.ZetDueOut(DueOut)
-	}
-	Do VerwachteUitvoer.Save()
-]]></Implementation>
-</Method>
-
-<Method name="OrderLijnAantalGewijzigd">
-<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
-<Implementation><![CDATA[
-	Set NieuwAantal = ProductOrderLijn.GeefAantal()
-	
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do ..WijzigAantalVerwachteUitvoer(VerwachteUitvoer, NieuwAantal)
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
-	Do ..WijzigAantalVerwachteUitvoer(VerwachteUitvoer, NieuwAantal)
-]]></Implementation>
-</Method>
-
-<Method name="WijzigAantalVerwachteUitvoer">
-<FormalSpec>VerwachteUitvoer:DOM.ProdRes.VerwachteUitvoer,NieuwAantal:%Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set OrigineelAantal = VerwachteUitvoer.GeefReservatie().GeefAantal()
-	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
-	While (ReservatieIterator.HasNext())
-	{
-		Set Reservatie = ReservatieIterator.Next()
-		Do Reservatie.ZetAantal(Reservatie.GeefAantal() / OrigineelAantal * NieuwAantal)
-	}
-	Do VerwachteUitvoer.Save()
-]]></Implementation>
-</Method>
-
-<Method name="ZetReservatieFase">
-<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn,ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
-<Implementation><![CDATA[
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	Do ..WijzigReservatieFase(VerwachteUitvoer, ReservatieFase)
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(ProductOrderLijn,##class(DOM.common.enu.Bedrijf).Halux())
-	Do ..WijzigReservatieFase(VerwachteUitvoer, ReservatieFase)
-]]></Implementation>
-</Method>
-
-<Method name="WijzigReservatieFase">
-<FormalSpec>VerwachteUitvoer:DOM.ProdRes.VerwachteUitvoer,ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
-	While (ReservatieIterator.HasNext())
-	{
-		Set Reservatie = ReservatieIterator.Next()
-		Do Reservatie.ZetReservatieFase(ReservatieFase)
-	}
-	Do VerwachteUitvoer.Save()
-]]></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>OrderID:%String,OrderLijnCode:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(..GeefVerwachteUitvoerViaID(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
-	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(..GeefVerwachteUitvoerViaID(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()).%Id())
-]]></Implementation>
-</Method>
-
-<Method name="WisAfgewerkteOrderLijn">
-<FormalSpec>OrderID:%String,OrderLijnCode:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(..GeefVerwachteUitvoerViaID(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke()).%Id())
-	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(..GeefVerwachteUitvoerViaID(OrderID, OrderLijnCode, ##class(DOM.common.enu.Bedrijf).Halux()).%Id())
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerwachteUitvoer">
-<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefVerwachteUitvoerViaID(ProductOrderLijn.GeefOrder().GeefOrderNr(),ProductOrderLijn.GeefOLU(),Bedrijf)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVerwachteUitvoerViaID">
-<FormalSpec>OrderID:%String,OrderLijnCode:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
-<Implementation><![CDATA[
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,Bedrijf)
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
-	Quit VerwachteUitvoer
-]]></Implementation>
-</Method>
-
-<Method name="BijProductOrderLijnGemaakt">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductOrderLijnGemaaktEvent:DOM.VKP.event.ProductOrderLijnGemaakt</FormalSpec>
-<Implementation><![CDATA[
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set EventData = ProductOrderLijnGemaaktEvent.Data
-	Set OrderUitvoeringService = ..%New()
-	Do OrderUitvoeringService.RegistreerOrderLijn(EventData.GeefProductOrderLijn())
-]]></Implementation>
-</Method>
-
-<Method name="BijProductOrderLijnGewijzigd">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd</FormalSpec>
-<Implementation><![CDATA[
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set OrderUitvoeringService = ..%New()
-	
-	Set EventData = ProductOrderLijnGewijzigdEvent.Data
-	Set OrderLijn = EventData.GeefProductOrderLijn()
-	
-	Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
-	While (WijzigingTypesIterator.HasNext())
-	{
-		Set WijzigingType = WijzigingTypesIterator.Next()
-		If (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
-		{
-			Do OrderUitvoeringService.OrderLijnProductGewijzigd(OrderLijn)
-		}
-		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
-		{
-			Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(OrderLijn)
-		}
-		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
-		{
-			Do OrderUitvoeringService.OrderLijnAantalGewijzigd(OrderLijn)
-		}
-	}
-]]></Implementation>
-</Method>
-
-<Method name="BijProductOrderLijnAnnulatie">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie</FormalSpec>
-<Implementation><![CDATA[
-	Set EventData = ProductOrderLijnAnnulatieEvent.Data
-	Set OrderUitvoeringService = ..%New()
-	Do OrderUitvoeringService.AnnuleerOrderLijn(EventData.GeefOrderID(),EventData.GeefOrderLijnCode())
-]]></Implementation>
-</Method>
-
-<Method name="BijProductLijnOpBonEvent">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent</FormalSpec>
-<Implementation><![CDATA[
-	Set EventData = ProductLijnOpBonEvent.Data
-	Set OrderUitvoeringService = ..%New()
-	Do OrderUitvoeringService.WisAfgewerkteOrderLijn(EventData.GeefOrderID(),EventData.GeefOrderLijnCode())
-]]></Implementation>
-</Method>
-
-<Method name="BijWachtendOpPicking">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent</FormalSpec>
-<Implementation><![CDATA[
-	Set EventData = WachtendOpPickingEvent.Data
-	Set OrderUitvoeringService = ..%New()
-	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 EventData = PickingAnnulatieEvent.Data
-	Set OrderUitvoeringService = ..%New()
-	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 EventData = ProductToeleveringLijnGemaakt.Data
-	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
-	
-	Set OrderUitvoeringService = ..%New()
-	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(ToeleveringLijn)
-	
-	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-	Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
-	
-	Set GelinkteOrderLijn = ToeleveringLijn.GeefOrderLijn()
-	If ($IsObject(GelinkteOrderLijn))
-	{
-		Set GelinktOrder = GelinkteOrderLijn.GeefOrder()
-		Set OrderID = GelinktOrder.GeefOrderNr()
-		Set OrderLijnCode = GelinkteOrderLijn.GeefOLU()
-		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 VerwachteInvoerAPI.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(), VerwachteUitvoer.%Id())
-	}
-]]></Implementation>
-</Method>
-
-<Method name="BijProductToelevLijnGewijzigd">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
-<Implementation><![CDATA[
-	Set EventData = ProductToeleveringLijnGewijzigd.Data
-	Set ToeleveringID = EventData.GeefToeleveringID()
-	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
-	Set ToeleveringLijn = EventData.GeefProductToeleveringLijn()
-	
-	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 OrderUitvoeringService = ..%New()
-	
-	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(ToeleveringLijn))
-		}
-		ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
-		{
-			Do VerwachteInvoer.ZetDueIn(##class(TECH.DateTime).DateToTimeStamp(ToeleveringLijn.GeefLeverdag()))
-		}
-		ElseIf (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
-		{
-			Do VerwachteInvoer.ZetAantal(ToeleveringLijn.GeefAantal())
-		}
-	}
-	
-	Do VerwachteInvoer.Save()
-]]></Implementation>
-</Method>
-
-<Method name="BijProductToelevLijnAnnulatie">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie</FormalSpec>
-<Implementation><![CDATA[
-	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())
-	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
-	
-	Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id())
-]]></Implementation>
-</Method>
-
-<Method name="BijProductToelevLijnIngeboekt">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt</FormalSpec>
-<Implementation><![CDATA[
-	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())
-	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
-	
-	Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id())
-]]></Implementation>
-</Method>
-
-<Method name="BijInvoerUitvoerLinkVerbroken">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
-<Implementation><![CDATA[
-	Set EventData = InvoerUitvoerLinkVerbrokenEvent.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())
-	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
-	
-	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())
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
-	
-	Do VerwachteInvoerAPI.VerbreekInvoerUitvoerLinken(VerwachteInvoer.%Id(),VerwachteUitvoer.%Id())
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: vhDeploy/CSC/Deploy20111219x1416.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111219x1416.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111219x1416.cls.xml	(revision 3851)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111219x1416">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	&SQL(DELETE FROM TECH_PubSub.EventSubscription WHERE RespondingClass = 'APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl')
+	
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGemaakt","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductOrderLijnGemaakt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGewijzigd","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductOrderLijnGewijzigd")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnAnnulatie","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductOrderLijnAnnulatie")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductLijnOpBonEvent","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductLijnOpBonEvent")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("WachtendOpPickingEvent","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijWachtendOpPicking")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("PickingAnnulatieEvent","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijPickingAnnulatie")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnGemaakt","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductToelevLijnGemaakt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnGewijzigd","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductToelevLijnGewijzigd")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnAnnulatie","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductToelevLijnAnnulatie")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnIngeboekt","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijProductToelevLijnIngeboekt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("InvoerUitvoerLinkVerbrokenEvent","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijInvoerUitvoerLinkVerbroken")
+	Do Subscription.%Save()
+	
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnGemaakt","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductToelevLijnGemaakt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnGewijzigd","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductToelevLijnGewijzigd")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnAnnulatie","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductToelevLijnAnnulatie")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductToeleveringLijnIngeboekt","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductToelevLijnIngeboekt")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r3701 -r3851
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 3701)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 3851)
@@ -15,151 +15,6 @@
 Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.InvoerUitvoerLinken")</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
-	Set OrderUitvoeringService = ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).%New()
-	
-	// **** VERWACHTE INVOER CONTROLEREN EN CORRIGEREN ****
-	Set LeverancierIterator = ToeleveringAPI.GeefLeverancierIterator()
-	While (LeverancierIterator.HasNext())
-	{
-		Set Leverancier = LeverancierIterator.Next()
-		Set ToeleveringIterator = Leverancier.GeefToeleveringIterator()
-		While (ToeleveringIterator.HasNext())
-		{
-			Set Toelevering = ToeleveringIterator.Next()
-			Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
-			While (ProductLijnIterator.HasNext())
-			{
-				Set ProductLijn = ProductLijnIterator.Next()
-				
-				Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),##class(DOM.common.enu.Bedrijf).VanHoecke())
-				If ('$IsObject(VerwachteInvoer))
-				{
-					Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(ProductLijn)
-					Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
-					Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, UniekLijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefUniekLijnNr())
-				}
-				Else
-				{
-					If (VerwachteInvoer.GeefAantal() '= ProductLijn.GeefAantal())
-					{
-						Do ..VoegMeldingToe("Verwachte invoer heeft verschillend aantal (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
-						Do VerwachteInvoer.ZetAantal(ProductLijn.GeefAantal())
-						Do VerwachteInvoer.Save()
-					}
-					If (VerwachteInvoer.GeefDueIn() '= ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
-					{
-						Do ..VoegMeldingToe("Verwachte invoer heeft verschillende due in (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
-						Do VerwachteInvoer.ZetDueIn(##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
-						Do VerwachteInvoer.Save()
-					}
-					If (VerwachteInvoer.GeefProductID() '= ProductLijn.GeefProduct().GeefPRNr())
-					{
-						Do ..VoegMeldingToe("Verwachte invoer heeft verschillende producten in (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
-						Set ResultSet = ##class(%ResultSet).%New()
-						Do ResultSet.Prepare("UPDATE DOM_ProdRes_impl.VerwachteInvoerImpl SET ProductID = ? WHERE ID = ?")
-						Do ResultSet.Execute(ProductLijn.GeefProduct().GeefPRNr(),VerwachteInvoer.%Id())
-					}
-				}
-			}
-		}
-	}
-	
-	Set ResultSet = ##class(%ResultSet).%New("DOM.ProdRes.VerwachteInvoer:Extent")
-	Do ResultSet.Execute()
-	While (ResultSet.Next())
-	{
-		Set VerwachteInvoer = VerwachteInvoerAPI.GeefVerwachteInvoer(ResultSet.Data("ID"))
-		Set TeAnnuleren = 0
-		
-		If ('ToeleveringAPI.BestaatToelevering(VerwachteInvoer.GeefTransactieReferentie()))
-		{
-			Set TeAnnuleren = 1
-		}
-		Else
-		{
-			Set Toelevering = ToeleveringAPI.GeefToelevering(VerwachteInvoer.GeefTransactieReferentie())
-			Set TeAnnuleren = '$IsObject(Toelevering.GeefToeleveringLijnViaCode(VerwachteInvoer.GeefTransactieLijnReferentie()))
-		}
-		
-		If (TeAnnuleren)
-		{
-			Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id())
-			Do ..VoegMeldingToe("Verwachte invoer verwijderd (Toelevering, LijnCode): "_VerwachteInvoer.GeefTransactieReferentie()_", "_VerwachteInvoer.GeefTransactieLijnReferentie())
-		}
-	}
-	
-	// **** VERWACHTE UITVOER CONTROLEREN EN CORRIGEREN ****
-	Set OrderIterator = OrderAPI.GeefOrderIterator()
-	While (OrderIterator.HasNext())
-	{
-		Set Order = OrderIterator.Next()
-		Set ProductLijnIterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Product())
-		While (ProductLijnIterator.HasNext())
-		{
-			Set ProductLijn = ProductLijnIterator.Next()
-			
-			If (ProductLijn.GeefAantal() > 0) // terugnames hebben negatieve aantallen en mogen geskipt worden
-			{
-				Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductLijn.GeefOLU(),##class(DOM.common.enu.Bedrijf).VanHoecke())
-				If ('$IsObject(VerwachteUitvoer))
-				{					
-					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(ProductLijn))
-					{
-						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(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(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(ProductLijn)
-					}
-				}
-			}
-		}
-	}
-	
-	Set ResultSet = ##class(%ResultSet).%New("DOM.ProdRes.VerwachteUitvoer:Extent")
-	Do ResultSet.Execute()
-	While (ResultSet.Next())
-	{
-		Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefVerwachteUitvoer(ResultSet.Data("ID"))
-		Set OrderID = VerwachteUitvoer.GeefTransactieReferentie()
-		Set TeVerwijderen = 0
-		
-		If (OrderAPI.BestaatOrder(OrderID))
-		{
-			Set Order = OrderAPI.GeefOrder(OrderID)
-			Set TeVerwijderen = ('$IsObject(Order.GeefOrderLijnViaCode(VerwachteUitvoer.GeefTransactieLijnReferentie()))) || (Order.GeefOrderLijnViaCode(VerwachteUitvoer.GeefTransactieLijnReferentie()).GeefAantal() <= 0)
-		}
-		
-		If ('OrderAPI.BestaatOrder(OrderID)) || TeVerwijderen
-		{
-			Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
-			Do ..VoegMeldingToe("Verwachte uitvoer verwijderd (Order, LijnNr): "_VerwachteUitvoer.GeefTransactieReferentie()_", "_VerwachteUitvoer.GeefTransactieLijnReferentie())
-		}
-	}
-	
-	
 	// **** INVOER-UITVOER-LINKEN IN ORDE BRENGEN ****
 	Set OrderIterator = OrderAPI.GeefOrderIterator()
 	While (OrderIterator.HasNext())
@@ -291,18 +146,5 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefReservatieFase">
-<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",ProductLijn.GeefOrder().GeefOrderNr(),ProductLijn.GeefOLU())))
-	{
-		Set ReservatieFase = ##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering()
-	}
-	Quit ReservatieFase
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: DOM/ProdRes/VerwachteUitvoer.cls.xml
===================================================================
diff -u -r2448 -r3851
--- DOM/ProdRes/VerwachteUitvoer.cls.xml	(.../VerwachteUitvoer.cls.xml)	(revision 2448)
+++ DOM/ProdRes/VerwachteUitvoer.cls.xml	(.../VerwachteUitvoer.cls.xml)	(revision 3851)
@@ -54,6 +54,27 @@
 <ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
+<Method name="WijzigDueOut">
+<Description>
+Wijzigt recursief alle dueouts van alle reservaties</Description>
+<Abstract>1</Abstract>
+<FormalSpec>DueOut:%TimeStamp</FormalSpec>
+</Method>
+
+<Method name="WijzigAantal">
+<Description>
+Wijzigt recursief het aantal op alle reservaties</Description>
+<Abstract>1</Abstract>
+<FormalSpec>Aantal:%Integer</FormalSpec>
+</Method>
+
+<Method name="WijzigReservatieFase">
+<Description>
+Wijzigt recursief de reservatiefase op alle reservaties</Description>
+<Abstract>1</Abstract>
+<FormalSpec>ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.ProdRes.VerwachteUitvoerD</DataLocation>
Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3202 -r3851
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3202)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3851)
@@ -9,39 +9,39 @@
 
 <Method name="TestMaakReservatieStructuur">
 <Implementation><![CDATA[
-	Set Service = ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).%New()
+	Set Service = ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).%New()
 	
-	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
-	Set Order = OrderAPI.GeefOrder(90000)
-	Set OrderLijn = Order.GeefOrderLijnIterator().Next()
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(90001)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnIterator().Next()
 	
-	Set ReservatieStructuur = Service.MaakReservatieStructuurHalux(OrderLijn)
-	Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90000,"Het ordernr")
+	Set ReservatieStructuur = Service.MaakReservatieStructuur(ToeleveringLijn)
+	Do $$$AssertEquals(ReservatieStructuur.TransactieReferentie,90001,"Het ordernr")
 	Do $$$AssertEquals(ReservatieStructuur.TransactieLijnReferentie,100,"Het order lijn uniek nr")
 	Do $$$AssertEquals(ReservatieStructuur.Bedrijf,##class(DOM.common.enu.Bedrijf).Halux(),"Het bedrijf")
 	
 	Set MoederProductReservatie = ReservatieStructuur.Reservatie
 	Do $$$AssertEquals(MoederProductReservatie.ProductID,700,"Moederproduct ProductID")
 	Do $$$AssertEquals(MoederProductReservatie.DueOut,"2011-10-07 00:00:00","Moederproduct DueOut")
-	Do $$$AssertEquals(MoederProductReservatie.Aantal,2,"Moederproduct 2 stuks")
+	Do $$$AssertEquals(MoederProductReservatie.Aantal,250,"Moederproduct 250 stuks")
 	Do $$$AssertFalse(MoederProductReservatie.IsTransferReservatie,"Moederproduct geen transferreservatie")
 	
 	Set KindReservatie1 = MoederProductReservatie.KindReservaties.GetAt(1)
 	Do $$$AssertEquals(KindReservatie1.ProductID,353738,"KindReservatie1 ProductID")
 	Do $$$AssertEquals(KindReservatie1.DueOut,"2011-10-07 00:00:00","KindReservatie1 DueOut")
-	Do $$$AssertEquals(KindReservatie1.Aantal,2*1,"KindReservatie1 2 stuks")
+	Do $$$AssertEquals(KindReservatie1.Aantal,250*1,"KindReservatie1 250 stuks")
 	Do $$$AssertFalse(KindReservatie1.IsTransferReservatie,"KindReservatie1 geen transferreservatie")
 	
 	Set KindReservatie2 = MoederProductReservatie.KindReservaties.GetAt(2)
 	Do $$$AssertEquals(KindReservatie2.ProductID,701,"KindReservatie2 ProductID")
 	Do $$$AssertEquals(KindReservatie2.DueOut,"2011-10-07 00:00:00","KindReservatie2 DueOut")
-	Do $$$AssertEquals(KindReservatie2.Aantal,2*2,"KindReservatie2 4 stuks")
+	Do $$$AssertEquals(KindReservatie2.Aantal,250*2,"KindReservatie2 500 stuks")
 	Do $$$AssertFalse(KindReservatie2.IsTransferReservatie,"KindReservatie2 geen transferreservatie")
 	
 	Set KindVanKindReservatie2 = KindReservatie2.KindReservaties.GetAt(1)
 	Do $$$AssertEquals(KindVanKindReservatie2.ProductID,705,"KindVanKindReservatie2 ProductID")
 	Do $$$AssertEquals(KindVanKindReservatie2.DueOut,"2011-10-07 00:00:00","KindVanKindReservatie2 DueOut")
-	Do $$$AssertEquals(KindVanKindReservatie2.Aantal,2*2,"KindVanKindReservatie2 4 stuks")
+	Do $$$AssertEquals(KindVanKindReservatie2.Aantal,250*2,"KindVanKindReservatie2 500 stuks")
 	Do $$$AssertFalse(KindVanKindReservatie2.IsTransferReservatie,"KindVanKindReservatie2 geen transferreservatie")
 ]]></Implementation>
 </Method>
@@ -59,12 +59,8 @@
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).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 voor van hoecke")
 	Set VerwachteUitvoer = ""
@@ -79,25 +75,8 @@
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
 	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
 	
-	// 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 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")
-	Do $$$AssertEquals(KindReservatie1.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
-	Set KindReservatie2 = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie2.GeefAantal(),2,"Het aantal van het kindreservatie2 is van 4 naar 2 gegaan")
-	Do $$$AssertEquals(KindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
-	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
-	Do $$$AssertEquals(KindVanKindReservatie2.GeefAantal(),2,"Het aantal van het kind van kindreservatie2 is van 4 naar 2 gegaan")
-	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()
@@ -113,13 +92,13 @@
 	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
 	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
 	
 	// Halux controleren
-	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	/*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 = ""
+	Set VerwachteUitvoer = ""*/
 	
 	// Van hoecke controleren
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
@@ -135,26 +114,26 @@
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).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).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 van hoecke verwachte uitvoer werd verwijderd")
 	
 	// Lijn terug registreren
 	
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
 	
 	// Orderlijn op bon plaatsen
 	Set BonID = 123456
 	Set ProductLijnOpBonEventData = ##class(DOM.VKP.event.ProductLijnOpBonEventData).%New(OrderID, OrderLijnCode, BonID)
 	Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).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).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 van hoecke verwachte uitvoer werd verwijderd")
@@ -174,30 +153,17 @@
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
 	
 	// Order op wachtend voor picking geplaatst
 	
 	Set ConsolidatieID = 4567
 	Set WachtendOpPickingEventData = ##class(DOM.MAG.event.WachtendOpPickingEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
 	Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijWachtendOpPicking(WachtendOpPickingEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijWachtendOpPicking(WachtendOpPickingEvent)
 	
-	// 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()
-	Set KindReservatie1 = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
-	Set KindReservatie2 = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
-	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
-	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 VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
 	Do $$$AssertEquals(Reservatie.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatie is in uitvoering")
 	Set VerwachteUitvoer = ""
@@ -207,21 +173,8 @@
 	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)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijPickingAnnulatie(PickingAnnulatieEvent)
 	
-	// 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()
-	Set KindReservatie1 = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
-	Set KindReservatie2 = KindReservatieIterator.Next()
-	Do $$$AssertEquals(KindReservatie2.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De reservatie is terug in order fase")
-	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
-	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()
@@ -232,12 +185,14 @@
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
 ]]></Implementation>
 </Method>
 
 <Method name="TestAKPEvents">
 <Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	
 	// Verwachte invoer aanmaken zodat invoer-uitvoer-link kan gemaakt worden
 	Set OrderID = 90000
 	Set OrderLijnCode = 100
@@ -246,51 +201,79 @@
 	
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
 	
-	
 	Set ToeleveringID = 90001
 	Set ToeleveringLijnCode = 100
 	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)	
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)	
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	
+	// Van hoecke invoer
 	Do $$$AssertTrue($IsObject(VerwachteInvoer),"De verwachte invoer is aangemaakt")
 	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),250,"Het aantal")
 	Do $$$AssertEquals(VerwachteInvoer.GeefBedrijf(),##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf")
-	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2012-05-16 00:00:00","De due in")
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2011-10-07 00:00:00","De due in")
 	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),ProductID,"De productId")
 	
+	// Halux uitvoer controleren
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID,ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt voor halux")
+	
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefAantal(),250,"Het aantal van het moederproduct is op 250 geplaatst")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-07 00:00:00","De dueout van de moeder")
+	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
+	Set KindReservatie1 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie1.GeefAantal(),250,"Het aantal van het kindreservatie1 is 250")
+	Do $$$AssertEquals(KindReservatie1.GeefDueOut(),"2011-10-07 00:00:00","De dueout van de kindreservatie1")
+	Set KindReservatie2 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie2.GeefAantal(),500,"Het aantal van het kindreservatie2 is 500")
+	Do $$$AssertEquals(KindReservatie2.GeefDueOut(),"2011-10-07 00:00:00","De dueout van de kindreservatie1")
+	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefAantal(),500,"Het aantal van het kind van kindreservatie2 is 500")
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefDueOut(),"2011-10-07 00:00:00","De dueout van het kind van kindreservatie2")
+	Set VerwachteUitvoer = ""
+	
 	// Product, leverdatum en aantal wijzigen
-	Set $Piece(^KTO(5005,90001,101),"\",2) = 701
-	Set $Piece(^KTO(5005,90001,101),"\",3) = 251
-	Set $Piece(^KTO(5005,90001,101),"\",25) = "12/21"
+	Set $Piece(^KTO(6332,90001,101),"\",2) = 701
+	Set $Piece(^KTO(6332,90001,101),"\",3) = 251
+	Set $Piece(^KTO(6332,90001,1),"\",19) = "62400"
 	
 	Set ProductToelevLijnWijzigingTypes = ##class(DOM.AKP.impl.ProductToelevLijnWijzigingTypes).%New()
 	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 ProductToeleveringLijnGewijzigd = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(ProductToeleveringLijnWijzigEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)	
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)
 	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID,ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefAantal(),251,"Het aantal van het moederproduct is op 251 geplaatst")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-11-05 00:00:00","De dueout van de moeder is gewijzigd naar 2011-10-08 00:00:00")
+	Set VerwachteUitvoer = ""
+	
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	
 	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),251,"Het aantal")
-	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2012-05-23 00:00:00","De due in")
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2011-11-05 00:00:00","De due in")
 	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),701,"De productId")
 	
 	// Product, leverdatum en aantal wijzigen terugdraaien
-	Set $Piece(^KTO(5005,90001,101),"\",2) = 700
-	Set $Piece(^KTO(5005,90001,101),"\",3) = 250
-	Set $Piece(^KTO(5005,90001,101),"\",25) = "12/20"
+	Set $Piece(^KTO(6332,90001,101),"\",2) = 700
+	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 ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)	
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)	
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)
 	
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
@@ -299,19 +282,23 @@
 	
 	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
+	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 ProductToeleveringLijnIngeboekt = ##class(DOM.AKP.event.ProductToelevLijnIngeboekt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductToelevLijnIngeboekt(ProductToeleveringLijnIngeboekt)
 	
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(ToeleveringID,ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd voor halux")
 	
 	// Orderlijn terug verwijderen
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
 ]]></Implementation>
 </Method>
 
@@ -324,15 +311,15 @@
 	Set ProductID = 700
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
 	
 	// Verwachte invoer aanmaken
 	Set ToeleveringID = 90001
 	Set ToeleveringLijnCode = 100
 	Set ProductID = 700
 	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	
 	// Invoer-uitvoer-link werd automatisch aangemaakt bij de "toeleveringlijn aangemaakt" event
 	
@@ -342,19 +329,19 @@
 	// Nu de werkelijke events testen
 	Set InvoerUitvoerLinkEventData = ##class(DOM.ProdRes.event.InvoerUitvoerLinkEventData).%New(ToeleveringID, ToeleveringLijnCode, OrderID, OrderLijnCode)
 	Set InvoerUitvoerLinkVerbrokenEvent = ##class(DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent).%New(InvoerUitvoerLinkEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
 	
 	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 ProductToeleveringLijnAnnulatie = ##class(DOM.AKP.event.ProductToelevLijnAnnulatie).%New(ProductToeleveringLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnAnnulatie(ProductToeleveringLijnAnnulatie)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnAnnulatie(ProductToeleveringLijnAnnulatie)
 	
 	// Verwachte uitvoer verwijderen
 	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
-	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
 ]]></Implementation>
 </Method>
 
@@ -363,7 +350,7 @@
 <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())
+	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90001,100,##class(DOM.common.enu.Bedrijf).Halux())
 	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
 	Set VerwachteUitvoer = ""
 	
@@ -382,6 +369,7 @@
 	Set ^KO1(90000,"F") = "1000"
 	Set ^KOD(1000,"F",90000) = ""
 	Set ^KOD(1000,"F",90000,0) = ""
+	Set ^KOD(1000,"F",90000,1) = ""
 	Set ^KOD(1000,"F",90000,101) = "703000 \700\2\\\59.31\0#\8\59.31\59.31\703000 \L\\\100\59.31\KF0\\\\E1\EUR\\1\62371\\\\\\\\\\\\\\\\\\\\\1\\"
 	Set ^ORD("IU",90000,100) = 101
 	
@@ -402,12 +390,12 @@
 	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
 	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
 	
-	Set ^KTO1(90001) = "5005\"
+	Set ^KTO1(90001) = "6332\"
 	Set ^TO("IU",90001,100) = 101
-	Set ^KTO(5005,90001,0) = "102"
-	Set ^KTO(5005,90001,1) = "\17.11.11\STOCK\\\5005\\\212250\\\\\\\\\EUR\\\\\\\\"
-	Set ^KTO(5005,90001,4) = "2"
-	Set ^KTO(5005,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
+	Set ^KTO(6332,90001,0) = "102"
+	Set ^KTO(6332,90001,1) = "\17.11.11\STOCK\\\6332\\\212250\\\\\\\\\EUR\62371\\\\\\\"
+	Set ^KTO(6332,90001,4) = "2"
+	Set ^KTO(6332,90001,101) = "\700\250\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/20\\90000\101\\\\\\\\"
 	
  	Quit $$$OK
 ]]></Implementation>
@@ -427,7 +415,7 @@
 	Kill ^PRBS("BS",700)
 	Kill ^PRBS("BS",700)
 	Kill ^ORD("IU",90000,100)
-	Kill ^KTO(5005,90001)
+	Kill ^KTO(6332,90001)
 	Kill ^TO("IU",90001)
 	Kill ^KTO1(90001)
 	Quit $$$OK
Index: DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml
===================================================================
diff -u -r2279 -r3851
--- DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 2279)
+++ DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 3851)
@@ -66,6 +66,47 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WijzigAantal">
+<Description>
+Wijzigt recursief het aantal op alle reservaties</Description>
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set OrigineelAantal = ..GeefReservatie().GeefAantal()
+	Set ReservatieIterator = ..GeefReservatieIterator()
+	While (ReservatieIterator.HasNext())
+	{
+		Set Reservatie = ReservatieIterator.Next()
+		Do Reservatie.ZetAantal(Reservatie.GeefAantal() / OrigineelAantal * Aantal)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigDueOut">
+<FormalSpec>DueOut:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[
+	Set ReservatieIterator = ..GeefReservatieIterator()
+	While (ReservatieIterator.HasNext())
+	{
+		Set Reservatie = ReservatieIterator.Next()
+		Do Reservatie.ZetDueOut(DueOut)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigReservatieFase">
+<Description>
+Wijzigt recursief de reservatiefase op alle reservaties</Description>
+<FormalSpec>ReservatieFase:DOM.ProdRes.enu.ReservatieFase</FormalSpec>
+<Implementation><![CDATA[
+	Set ReservatieIterator = ..GeefReservatieIterator()
+	While (ReservatieIterator.HasNext())
+	{
+		Set Reservatie = ReservatieIterator.Next()
+		Do Reservatie.ZetReservatieFase(ReservatieFase)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTransactieReferentie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..TransactieReferentie