Index: vhDeploy/CSC/Deploy20111221x1039.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111221x1039.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111221x1039.cls.xml	(revision 3932)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111221x1039">
+<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("InvoerUitvoerLinkAangemaaktEvent","APPS.OrderUitvoering.impl.VanHoeckeReservatieService","BijInvoerUitvoerLinkAangemaakt")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml
===================================================================
diff -u -r3930 -r3932
--- APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(.../VanHoeckeReservatieService.cls.xml)	(revision 3930)
+++ APPS/OrderUitvoering/impl/VanHoeckeReservatieService.cls.xml	(.../VanHoeckeReservatieService.cls.xml)	(revision 3932)
@@ -191,18 +191,6 @@
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
 	Set VerwachteInvoer = VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
-	
-	Set GelinkteOrderLijn = ToeleveringLijn.GeefOrderLijn()
-	If ($IsObject(GelinkteOrderLijn))
-	{
-		Set GelinktOrder = GelinkteOrderLijn.GeefOrder()
-		Set OrderID = GelinktOrder.GeefOrderNr()
-		Set OrderLijnCode = GelinkteOrderLijn.GeefOLU()
-		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.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(), VerwachteUitvoer.%Id())
-	}
 ]]></Implementation>
 </Method>
 
@@ -272,6 +260,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BijInvoerUitvoerLinkAangemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InvoerUitvoerLinkAangemaaktEvent:DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = InvoerUitvoerLinkAangemaaktEvent.Data
+	
+	Set ToeleveringID = EventData.GeefToeleveringID()
+	Set ToeleveringLijnCode = EventData.GeefToeleveringLijnCode()
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.GeefInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	Set OrderID = EventData.GeefOrderID()
+	Set OrderLijnCode = EventData.GeefOrderLijnCode()
+	
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.GeefUitvoerViaTransactieLijnRef(OrderID,OrderLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	Do VerwachteInvoerAPI.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(), VerwachteUitvoer.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="BijInvoerUitvoerLinkVerbroken">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>InvoerUitvoerLinkVerbrokenEvent:DOM.ProdRes.event.InvoerUitvoerLinkVerbrokenEvent</FormalSpec>
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)
Index: DOM/ProdRes/event/InvoerUitvoerLinkAangemaaktEvent.cls.xml
===================================================================
diff -u
--- DOM/ProdRes/event/InvoerUitvoerLinkAangemaaktEvent.cls.xml	(revision 0)
+++ DOM/ProdRes/event/InvoerUitvoerLinkAangemaaktEvent.cls.xml	(revision 3932)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.ProdRes.event.InvoerUitvoerLinkEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Type = "InvoerUitvoerLinkAangemaaktEvent"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>