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>