Index: DOM/AKP/event/ProductToelevLijnEventData.cls.xml
===================================================================
diff -u -r2966 -r2990
--- DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 2966)
+++ DOM/AKP/event/ProductToelevLijnEventData.cls.xml	(.../ProductToelevLijnEventData.cls.xml)	(revision 2990)
@@ -10,7 +10,7 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="ToeveleveringLijnCode">
+<Property name="ToeleveringLijnCode">
 <Type>%String</Type>
 </Property>
 
@@ -19,13 +19,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ToeleveringID:%String,ToeveleveringLijnCode:%String,ProductID:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnCode:%String,ProductID:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..ToeleveringID = ToeleveringID
-	Set ..ToeveleveringLijnCode = ToeveleveringLijnCode
+	Set ..ToeleveringLijnCode = ToeleveringLijnCode
 	Set ..ProductID = ProductID
 	Quit $$$OK
 ]]></Implementation>
@@ -37,9 +37,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToeveleveringLijnCode">
+<Method name="GeefToeleveringLijnCode">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ToeveleveringLijnCode
+<Implementation><![CDATA[	Quit ..ToeleveringLijnCode
 ]]></Implementation>
 </Method>
 
@@ -67,6 +67,9 @@
 <Value name="4">
 <Value>ToeveleveringLijnCode</Value>
 </Value>
+<Value name="5">
+<Value>ToeleveringLijnCode</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r2961 -r2990
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2961)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2990)
@@ -38,13 +38,7 @@
 				Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(Toelevering.GeefToeNr(),ProductLijn.GeefUniekLijnNr(),##class(DOM.common.enu.Bedrijf).VanHoecke())
 				If ('$IsObject(VerwachteInvoer))
 				{
-					Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
-					Set VerwachteInvoerInfo.Aantal = ProductLijn.GeefAantal()
-					Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-					Set VerwachteInvoerInfo.DueIn = ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag())
-					Set VerwachteInvoerInfo.ProductID = ProductLijn.GeefProduct().GeefPRNr()
-					Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr()
-					Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductLijn.GeefUniekLijnNr()
+					Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ProductLijn)
 					Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
 					Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, UniekLijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefUniekLijnNr())
 				}
Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2926 -r2990
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2926)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2990)
@@ -197,13 +197,75 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestAKPEvents">
+<Implementation><![CDATA[
+	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)	
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	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.GeefProductID(),ProductID,"De productId")
+	
+	// Product, leverdatum en aantal wijzigen
+	
+	Set ^KTO(5005,90001,101) = "\701\251\\\6.85\22.00#0\\13.35\13.35\\L\1\\100\17.13\KTRPL\\\\H\EUR\\\12/21\\\\\\\\\\\"
+	
+	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)	
+	
+	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.GeefProductID(),701,"De productId")
+	
+	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)	
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+	
+	// Verwachte invoer terug aanmaken zodat we deze opnieuw kunnen verwijderen
+	
+	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)
+	
+	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)
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <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 = ""
 	
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ""
+	
 	Set ^KPR(700) = ""
 	Set ^KPR(701) = ""
 	Set ^KPR(702) = ""
@@ -233,6 +295,13 @@
 	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 ^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\\\\\\\\\\\"
+	
  	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -251,6 +320,9 @@
 	Kill ^PRBS("BS",700)
 	Kill ^PRBS("BS",700)
 	Kill ^ORD("IU",90000,100)
+	Kill ^KTO(5005,90001)
+	Kill ^TO("IU",90001)
+	Kill ^KTO1(90001)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
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>