Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r2956 -r2990
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2956)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2990)
@@ -73,6 +73,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakVerwachteInvoerStructuur">
+<FormalSpec>Toelevering:DOM.LEV.Toelevering,ProductToeleveringLijn:DOM.LEV.ProductToeleveringLijn</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.VerwachteInvoerInfo</ReturnType>
+<Implementation><![CDATA[
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = ProductToeleveringLijn.GeefAantal()
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set VerwachteInvoerInfo.DueIn = ##class(TECH.DateTime).DateToTimeStamp(ProductToeleveringLijn.GeefLeverdag())
+	Set VerwachteInvoerInfo.ProductID = ProductToeleveringLijn.GeefProduct().GeefPRNr()
+	Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr()
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductToeleveringLijn.GeefUniekLijnNr()
+	Quit VerwachteInvoerInfo
+]]></Implementation>
+</Method>
+
 <Method name="OrderLijnProductGewijzigd">
 <FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
 <Implementation><![CDATA[
@@ -137,7 +152,7 @@
 <Implementation><![CDATA[
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductOrderLijn.GeefOLU(),##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachtte uitvoer gevonden voor (OrderID, OrderLijnCode): "_Order.GeefOrderNr()_", "_ProductOrderLijn.GeefOLU()))
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_Order.GeefOrderNr()_", "_ProductOrderLijn.GeefOLU()))
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
@@ -205,7 +220,7 @@
 	Set OrderLijnCode = ProductOrderLijnEventData.GeefOrderLijnCode()
 	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachtte uitvoer gevonden voor (OrderID, OrderLijnID): "_OrderID_", "_OrderLijnID))
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnID))
 	
 	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
 ]]></Implementation>
@@ -221,7 +236,7 @@
 	
 	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 verwachtte uitvoer gevonden voor (OrderID, OrderLijnID): "_OrderID_", "_OrderLijnCode))
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (OrderID, OrderLijnCode): "_OrderID_", "_OrderLijnCode))
 	
 	Do VerwachteUitvoerAPI.WisAfgewerkteVerwachteUitvoer(VerwachteUitvoer.%Id())
 ]]></Implementation>
@@ -260,5 +275,96 @@
 	Do OrderUitvoeringService.ZetReservatieFase(Order,OrderLijn,##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
 ]]></Implementation>
 </Method>
+
+<Method name="BijProductToelevLijnGemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductToeleveringLijnData = ProductToeleveringLijnGemaakt.Data
+	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
+	Set ToeleveringLijnCode = ProductToeleveringLijnData.GeefToeleveringLijnCode()
+	
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(ToeleveringLijnCode)
+	
+	Set OrderUitvoeringService = ..%New()
+	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ToeleveringLijn)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+]]></Implementation>
+</Method>
+
+<Method name="BijProductToelevLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductToeleveringLijnWijzigData = ProductToeleveringLijnGewijzigd.Data
+	Set ToeleveringID = ProductToeleveringLijnWijzigData.GeefToeleveringID()
+	Set ToeleveringLijnCode = ProductToeleveringLijnWijzigData.GeefToeleveringLijnCode()
+	
+	Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+	Set ToeleveringLijn = Toelevering.GeefToeleveringLijnViaCode(ToeleveringLijnCode)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (ToeleveringID, ToeleveringLijnCode): "_ToeleveringID_", "_ToeleveringLijnCode)) }
+	
+	Set OrderUitvoeringService = ..%New()
+	
+	Set WijzigingTypesIterator = ProductToeleveringLijnWijzigData.GeefWijzigingTypesIterator()
+	While (WijzigingTypesIterator.HasNext())
+	{
+		Set WijzigingType = WijzigingTypesIterator.Next()
+		If (WijzigingType = ##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Product())
+		{
+			Do VerwachteInvoer.Delete()
+			Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ToeleveringLijn))
+		}
+		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 ProductToeleveringLijnData = ProductToeleveringLijnAnnulatie.Data
+	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
+	Set ToeleveringLijnCode = ProductToeleveringLijnData.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 ProductToeleveringLijnData = ProductToeleveringLijnIngeboekt.Data
+	Set ToeleveringID = ProductToeleveringLijnData.GeefToeleveringID()
+	Set ToeleveringLijnCode = ProductToeleveringLijnData.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>
 </Class>
 </Export>