Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r3909 -r3932
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3909)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3932)
@@ -310,17 +310,23 @@
 	Set ProductToeleveringLijnGemaakt = ##class(DOM.AKP.event.ProductToelevLijnGemaakt).%New(ProductToeleveringLijnEventData)
 	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijProductToelevLijnGemaakt(ProductToeleveringLijnGemaakt)
 	
-	// Invoer-uitvoer-link werd automatisch aangemaakt bij de "toeleveringlijn aangemaakt" event
+	Set InvoerUitvoerLinkEventData = ##class(DOM.ProdRes.event.InvoerUitvoerLinkEventData).%New(ToeleveringID, ToeleveringLijnCode, OrderID, OrderLijnCode)
+	Set InvoerUitvoerLinkAangemaaktEvent = ##class(DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent).%New(InvoerUitvoerLinkEventData)
+	Do ##class(APPS.OrderUitvoering.impl.VanHoeckeReservatieService).BijInvoerUitvoerLinkAangemaakt(InvoerUitvoerLinkAangemaaktEvent)
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
-
-	// Nu de werkelijke events testen
+	Do $$$AssertTrue(VerwachteInvoer.GeefInvoerUitvoerLinkIterator().HasNext(),"Er is een invoer-uitvoer-link")
+	Set VerwachteInvoer = ""
+	
 	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.VanHoeckeReservatieService).BijInvoerUitvoerLinkVerbroken(InvoerUitvoerLinkVerbrokenEvent)
 	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do $$$AssertFalse(VerwachteInvoer.GeefInvoerUitvoerLinkIterator().HasNext(),"Er is geen invoer-uitvoer-link meer")
+	Set VerwachteInvoer = ""
 	
 	// Verwachte invoer verwijderen
 	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, 6332)