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[