Index: APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml
===================================================================
diff -u -r3872 -r3909
--- APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml	(.../HaluxReservatieService.cls.xml)	(revision 3872)
+++ APPS/OrderUitvoering/impl/HaluxReservatieService.cls.xml	(.../HaluxReservatieService.cls.xml)	(revision 3909)
@@ -75,6 +75,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakVerwachteInvoerStructuur">
+<FormalSpec>ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.VerwachteInvoerInfo</ReturnType>
+<Implementation><![CDATA[
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = ProductOrderLijn.GeefAantal()
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
+	Set VerwachteInvoerInfo.DueIn = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
+	Set VerwachteInvoerInfo.ProductID = ProductOrderLijn.GeefProduct().GeefPRNr()
+	Set VerwachteInvoerInfo.TransactieReferentie = ProductOrderLijn.GeefOrder().GeefOrderNr()
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductOrderLijn.GeefOLU()
+	Quit VerwachteInvoerInfo
+]]></Implementation>
+</Method>
+
 <Method name="RegistreerToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.LEV.ProductToeleveringLijn</FormalSpec>
 <Implementation><![CDATA[
@@ -176,5 +191,114 @@
 	}
 ]]></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()
+	
+	If (OrderLijn.GeefOrder().GeefOrderType() = ##class(DOM.OV.enu.OrderType).Transfer())
+	{
+		Set KlantHalux = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantHalux()
+		If (EventData.GeefKlantID() = KlantHalux.GeefNummer())
+		{
+			Set Service = ..%New()
+			Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+			Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(Service.MaakVerwachteInvoerStructuur(OrderLijn))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductOrderLijnGewijzigdEvent.Data
+	Set OrderLijn = EventData.GeefProductOrderLijn()
+	
+	If (OrderLijn.GeefOrder().GeefOrderType() = ##class(DOM.OV.enu.OrderType).Transfer())
+	{
+		Set KlantHalux = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantHalux()
+		If (EventData.GeefKlantID() = KlantHalux.GeefNummer())
+		{
+			Set OrderID = EventData.GeefOrderID()
+			Set OrderLijnCode = EventData.GeefOrderLijnCode()
+			
+			Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+			Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID, OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+			Set WijzigingTypesIterator = EventData.GeefWijzigingTypesIterator()
+			While (WijzigingTypesIterator.HasNext())
+			{
+				Set WijzigingType = WijzigingTypesIterator.Next()
+				If (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+				{
+					Do VerwachteInvoer.Delete()
+					Set Service = ..%New()
+					Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(Service.MaakVerwachteInvoerStructuur(OrderLijn))
+				}
+				ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+				{
+					Set DueOut = ##class(TECH.DateTime).DateToTimeStamp(OrderLijn.GeefLeverdag())
+					Do VerwachteInvoer.ZetDueIn(DueOut)
+				}
+				ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+				{
+					Do VerwachteInvoer.ZetAantal(OrderLijn.GeefAantal())
+				}
+			}
+			Do VerwachteInvoer.Save()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductOrderLijnAnnulatieEvent.Data
+	
+	Set KlantHalux = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantHalux()
+	If (EventData.GeefKlantID() = KlantHalux.GeefNummer())
+	{
+		Set OrderID = EventData.GeefOrderID()
+		Set OrderLijnCode = EventData.GeefOrderLijnCode()
+		
+		Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+		Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID, OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+		// Enkel voor transfer reservaties zijn er verwachte invoeren
+		If ($IsObject(VerwachteInvoer))
+		{
+			Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductLijnOpBonEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ProductLijnOpBonEvent.Data
+	
+	Set KlantHalux = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantHalux()
+	If (EventData.GeefKlantID() = KlantHalux.GeefNummer())
+	{
+		Set OrderID = EventData.GeefOrderID()
+		Set OrderLijnCode = EventData.GeefOrderLijnCode()
+	
+		Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+		Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID, OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+		// Enkel voor transfer reservaties zijn er verwachte invoeren
+		If ($IsObject(VerwachteInvoer))
+		{
+			Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id())
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>