Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r2221 -r2994
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2221)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2994)
@@ -145,6 +145,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerbreekInvoerUitvoerLinken">
+<Description>
+Verbreekt de nodige invoer-uitvoer-links en doet ook de nodige saves.</Description>
+<FormalSpec>VerwachteInvoerID:%String,VerwachteUitvoerID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefVerwachteUitvoer(VerwachteUitvoerID)
+	Set VerwachteInvoer = ..GeefVerwachteInvoer(VerwachteInvoerID)
+	
+	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+	Set $ZTRAP = "VerbreekError"
+	
+	Set InvoerUitvoerLinkIterator = VerwachteInvoer.GeefInvoerUitvoerLinkIterator()
+	While (InvoerUitvoerLinkIterator.HasNext())
+	{
+		Set InvoerUitvoerLink = InvoerUitvoerLinkIterator.Next()
+		Set Reservatie = InvoerUitvoerLink.GeefVerwachteUitvoerReservatie()
+		If (Reservatie.GeefVerwachteUitvoer() = VerwachteUitvoer)
+		{
+			Do Reservatie.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
+			Do VerwachteInvoer.VerwijderInvoerUitvoerLink(InvoerUitvoerLink)
+			Do Reservatie.Save()
+			Do VerwachteInvoer.Save()
+			Do InvoerUitvoerLink.Delete()
+		}
+	}
+	
+	Set $ZTRAP = ""
+	Do OperatieScope.Gelukt()
+	Quit
+	
+VerbreekError
+	Set $ZTRAP = ""
+	Set Exceptie = ##class(TECH.ExceptionHandler).Catch()
+	Do OperatieScope.Gefaald()
+	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)
+]]></Implementation>
+</Method>
+
 <Method name="SplitsVerwachteInvoer">
 <FormalSpec>VerwachteInvoerID:%String,NieuweVerwachteInvoer:DOM.ProdRes.dto.VerwachteInvoerInfo</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
Index: DOM/ProdRes/VerwachteInvoerAPI.cls.xml
===================================================================
diff -u -r2221 -r2994
--- DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 2221)
+++ DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 2994)
@@ -43,6 +43,13 @@
 <FormalSpec>VerwachteInvoerID:%String,VerwachteUitvoerID:%String</FormalSpec>
 </Method>
 
+<Method name="VerbreekInvoerUitvoerLinken">
+<Description>
+Verbreekt de nodige invoer-uitvoer-links en doet ook de nodige saves.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>VerwachteInvoerID:%String,VerwachteUitvoerID:%String</FormalSpec>
+</Method>
+
 <Method name="GeefSamenvoegVoorstellen">
 <Description>
 Geeft aan voor welke producten bepaalde verwachte invoeren kunnen samengevoegd worden.</Description>
Index: vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml
===================================================================
diff -u -r2256 -r2994
--- vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml	(.../TestVerwachteInvoerAPI.cls.xml)	(revision 2256)
+++ vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml	(.../TestVerwachteInvoerAPI.cls.xml)	(revision 2994)
@@ -288,6 +288,11 @@
 	Do InvoerUitvoerLinkIterator.Next()
 	Do $$$AssertFalse(InvoerUitvoerLinkIterator.HasNext(),"De verwachte invoer heeft geen 3de invoer-uitvoer-link")
 	
+	// Verbreken van linken testen
+	Do VerwachteInvoerAPI.VerbreekInvoerUitvoerLinken(VerwachteInvoer1.%Id(),VerwachteUitvoer.%Id())
+	Do $$$AssertFalse(VerwachteInvoer1.GeefInvoerUitvoerLinkIterator().HasNext(),"De links zijn weg")
+	Do $$$AssertFalse(VerwachteUitvoer.GeefReservatie().GeefInvoerUitvoerLinkIterator().HasNext(),"De links zijn weg")
+	
 	// Opkuis data
 	
 	Do VerwachteUitvoer.%DeleteId(VerwachteUitvoer.%Id())
Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r2990 -r2994
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2990)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2994)
@@ -366,5 +366,29 @@
 	Do VerwachteInvoerAPI.WisBeschikbareInvoer(VerwachteInvoer.%Id())
 ]]></Implementation>
 </Method>
+
+<Method name="BijInvoerUitvoerLinkVerbroken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set InvoerUitvoerLinkEventData = InvoerUitvoerLinkVerbrokenEvent.Data
+	
+	Set ToeleveringID = InvoerUitvoerLinkEventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = InvoerUitvoerLinkEventData.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 = InvoerUitvoerLinkEventData.GeefOrderID()
+	Set OrderLijnCode = InvoerUitvoerLinkEventData.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>
Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2990 -r2994
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2990)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2994)
@@ -235,7 +235,7 @@
 	
 	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)	
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnAnnulatie(ProductToeleveringLijnGewijzigd)	
 	
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
@@ -250,11 +250,57 @@
 	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())
+	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="TestProdResEvents">
+<Implementation><![CDATA[
+	// Verwachte invoer aanmaken
+	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)	
+	
+	// Verwachte uitvoer aanmaken
+	Set OrderID = 90000
+	Set OrderLijnCode = 100
+	Set KlantID = 1000
+	Set ProductID = 700
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
+	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	// InvoerUitvoerLink registreren
+	Do VerwachteInvoerAPI.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(),VerwachteUitvoer.%Id())
+	
+	// Nu de werkelijke events testen
+	Set InvoerUitvoerLinkEventData = ##class(DOM.ProdRes.event.InvoerUitvoerLinkEventData).%New(ToeleveringID, ToeleveringLijnCode, OrderID, OrderLijnCode)
+	Set InvoerUitvoerLinkVerbrokenEvent = ##class(DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent).%New(InvoerUitvoerLinkEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
+	
+	Do $$$AssertFalse(VerwachteInvoer.GeefInvoerUitvoerLinkIterator().HasNext(),"Er is geen invoer-uitvoer-link meer")
+	
+	// Verwachte invoer verwijderen
+	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)
+	
+	// Verwachte uitvoer verwijderen
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID)
+	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[