Index: vhDeploy/CSC/Deploy20111220x1305.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111220x1305.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111220x1305.cls.xml	(revision 3909)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111220x1305">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGemaakt","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductOrderLijnGemaakt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGewijzigd","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductOrderLijnGewijzigd")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnAnnulatie","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductOrderLijnAnnulatie")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductLijnOpBonEvent","APPS.OrderUitvoering.impl.HaluxReservatieService","BijProductLijnOpBonEvent")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/OrderUitvoering/TestHaluxReservatie.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/OrderUitvoering/TestHaluxReservatie.cls.xml	(revision 0)
+++ vhUnitTest/APPS/OrderUitvoering/TestHaluxReservatie.cls.xml	(revision 3909)
@@ -0,0 +1,133 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.OrderUitvoering.TestHaluxReservatie">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OrderUitvoering.TestHaluxReservatie")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..OnAfterAllTests()
+	
+	Set ^KOD(7587,"F",198909,0)="103"
+	Set ^KOD(7587,"F",198909,1)="\16.09.11\16.09.11 TRANSFERTORDER\\\7587\TH\58#1031#62350,27731\\\\\\\\\\EUR\\\00\1\\DIV#62350,27731#198909\T\\\\\\\\\\\\\\\\\\\\62350,27731"
+	Set ^KOD(7587,"F",198909,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(7587,"F",198909,3)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(7587,"F",198909,4)="10"
+	Set ^KOD(7587,"F",198909,101)="707000 \616815\16\\\0.05\0#\8\0.80\0.80\707000 \L\\\151\0.80\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
+	Set ^KOD(7587,"F",198909,102)="707000 \605808\1\\\4.22\0#\8\4.22\4.22\707000 \L\\\121\4.22\KF0\\\\E1\EUR\\\62350\\\\\\\\\\\\\\\\\\\\\0\\"
+	
+	Set ^KO1(198909,"F")="7587\"
+	
+	Set ^ORD("IU",198909,121)=102
+	Set ^ORD("IU",198909,151)=101
+	
+ 	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestVerwachteInvoerBijTransfers">
+<Implementation><![CDATA[
+	Set OrderID = 198909
+	Set OrderLijnCode = 151
+	Set ProductID = 616815
+	Set KlantID = 7587
+	
+	/*   Lijn aanmaken   */
+	
+	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
+	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(EventData)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	
+	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),ProductID,"Het product ID")
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2011-09-16 00:00:00","De leverdatum")
+	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),16,"Het aantal")
+	
+	/*  Lijn wijzigen  */
+
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",3) = 15 // Aantal van 16 naar 15 zetten
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",25) = 62351 // Leverdag van 62350 naar 62351 verhogen
+	
+	// Aantal en leverdatum wijzigen
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+	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.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2011-09-17 00:00:00","De leverdatum")
+	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),15,"Het aantal")
+	Set VerwachteInvoer = ""
+
+	// Product wijzigen
+	
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",2) = 605808 // Product wijzigen van 616815 naar 605808
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	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.HaluxReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),605808,"De leverdatum")
+	Set VerwachteInvoer = ""
+	
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",2) = 616815 // terug het product op 616815 plaatsen
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",3) = 16 // terug het aantal op 16 plaatsen
+	Set $Piece(^KOD(KlantID,"F",OrderID,101),"\",25) = 62350 // terug de leverdag op 62350 plaatsen
+	
+	/*  Lijn verwijderen  */
+	
+	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
+	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(EventData)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnAnnulatie(ProductOrderLijnAnnulatieEvent)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd")
+	Set VerwachteInvoer = ""
+	
+	/*   Lijn aanmaken   */
+	
+	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
+	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(EventData)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)	
+	
+	/*  Lijn verwijderen  */
+	
+	Set EventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID,OrderLijnCode,KlantID,ProductID)
+	Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(EventData)
+	Do ##class(APPS.OrderUitvoering.impl.HaluxReservatieService).BijProductLijnOpBonEvent(ProductLijnOpBonEvent)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).Halux())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De invoer werd verwijderd")
+	Set VerwachteInvoer = ""
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill ^KOD(7587)
+	Kill ^KO1(198909)
+	Kill ^ORD("IU",198909)
+	
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(198909,151,##class(DOM.common.enu.Bedrijf).Halux())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml
===================================================================
diff -u -r3872 -r3909
--- APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(.../VanHoeckeReservatieService.cls.xml)	(revision 3872)
+++ APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(.../VanHoeckeReservatieService.cls.xml)	(revision 3909)
@@ -262,9 +262,7 @@
 	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 VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do VerwachteInvoerAPI.AnnuleerVerwachteInvoer(VerwachteInvoer.%Id())
 ]]></Implementation>
 </Method>
@@ -278,9 +276,7 @@
 	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 VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id())
 ]]></Implementation>
 </Method>
@@ -295,8 +291,7 @@
 	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 VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	
 	Set OrderID = EventData.GeefOrderID()
 	Set OrderLijnCode = EventData.GeefOrderLijnCode()
Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r2994 -r3909
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2994)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 3909)
@@ -49,6 +49,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInvoerViaTransactieRef">
+<Description>
+Gooit een exceptie indien de verwachte invoer niet bestaat</Description>
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
+<Implementation><![CDATA[
+	Set VerwachteInvoer = ..ZoekInvoerViaTransactieRef(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
+	If ('$IsObject(VerwachteInvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte invoer gevonden voor (TransactieReferentie, TransactieLijnReferentie, Bedrijf): "_TransactieReferentie_", "_TransactieLijnReferentie_", "_Bedrijf)) }
+	Quit VerwachteInvoer
+]]></Implementation>
+</Method>
+
 <Method name="RegistreerInvoerUitvoerLinken">
 <FormalSpec>VerwachteInvoerID:%String,VerwachteUitvoerID:%String</FormalSpec>
 <Implementation><![CDATA[
Index: DOM/CRM/KlantAPI.cls.xml
===================================================================
diff -u -r2443 -r3909
--- DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 2443)
+++ DOM/CRM/KlantAPI.cls.xml	(.../KlantAPI.cls.xml)	(revision 3909)
@@ -77,6 +77,11 @@
 <ReturnType>DOM.CRM.Klant</ReturnType>
 </Method>
 
+<Method name="GeefKlantHalux">
+<Abstract>1</Abstract>
+<ReturnType>DOM.CRM.Klant</ReturnType>
+</Method>
+
 <Method name="VerwijderPersoon">
 <Abstract>1</Abstract>
 <FormalSpec>KlantNummer:%Integer,Persoon:DOM.common.Persoon</FormalSpec>
Index: DOM/ProdRes/VerwachteInvoerAPI.cls.xml
===================================================================
diff -u -r2994 -r3909
--- DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 2994)
+++ DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 3909)
@@ -31,11 +31,21 @@
 </Method>
 
 <Method name="ZoekInvoerViaTransactieRef">
+<Description>
+Gooit geen exceptie indien de verwachte invoer niet bestaat</Description>
 <Abstract>1</Abstract>
 <FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 </Method>
 
+<Method name="GeefInvoerViaTransactieRef">
+<Description>
+Gooit een exceptie indien de verwachte invoer niet bestaat</Description>
+<Abstract>1</Abstract>
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
+</Method>
+
 <Method name="RegistreerInvoerUitvoerLinken">
 <Description>
 Registreert de nodige invoer-uitvoer-links en doet ook de nodige saves.</Description>
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>
Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3872 -r3909
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3872)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3909)
@@ -94,12 +94,6 @@
 	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
 	
-	// Halux controleren
-	/*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 = ""*/
-	
 	// Van hoecke controleren
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Set Reservatie = VerwachteUitvoer.GeefReservatie()
@@ -116,9 +110,7 @@
 	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
 	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).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
 	
@@ -132,9 +124,6 @@
 	Set ProductLijnOpBonEvent = ##class(DOM.VKP.event.ProductLijnOpBonEvent).%New(ProductLijnOpBonEventData)
 	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).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De van hoecke verwachte uitvoer werd verwijderd")
 ]]></Implementation>
Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml
===================================================================
diff -u -r2443 -r3909
--- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 2443)
+++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml	(.../DataMKlantAPI.cls.xml)	(revision 3909)
@@ -79,6 +79,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantHalux">
+<ReturnType>DOM.CRM.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefKlant(7587)
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlant">
 <FormalSpec>dtoKlant:DOM.CRM.dto.Klant,TypeTemplateKlant:DOM.CRM.enu.TypeTemplateKlant</FormalSpec>
 <ReturnType>DOM.CRM.Klant</ReturnType>