Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2994 -r3005
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2994)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 3005)
@@ -199,9 +199,19 @@
 
 <Method name="TestAKPEvents">
 <Implementation><![CDATA[
+	// Verwachte invoer aanmaken zodat invoer-uitvoer-link kan gemaakt worden
+	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 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)	
@@ -216,9 +226,10 @@
 	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),ProductID,"De productId")
 	
 	// Product, leverdatum en aantal wijzigen
+	Set $Piece(^KTO(5005,90001,101),"\",2) = 701
+	Set $Piece(^KTO(5005,90001,101),"\",3) = 251
+	Set $Piece(^KTO(5005,90001,101),"\",25) = "12/21"
 	
-	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())
@@ -233,6 +244,11 @@
 	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2012-05-23 00:00:00","De due in")
 	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),701,"De productId")
 	
+	// Product, leverdatum en aantal wijzigen terugdraaien
+	Set $Piece(^KTO(5005,90001,101),"\",2) = 700
+	Set $Piece(^KTO(5005,90001,101),"\",3) = 250
+	Set $Piece(^KTO(5005,90001,101),"\",25) = "12/20"
+	
 	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(ProductToeleveringLijnGewijzigd)	
@@ -252,19 +268,16 @@
 	
 	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode, ##class(DOM.common.enu.Bedrijf).VanHoecke())
 	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+	
+	// Orderlijn terug 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="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
@@ -274,14 +287,19 @@
 	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())
+	// 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)
 	
-	// InvoerUitvoerLink registreren
-	Do VerwachteInvoerAPI.RegistreerInvoerUitvoerLinken(VerwachteInvoer.%Id(),VerwachteUitvoer.%Id())
+	// Invoer-uitvoer-link werd automatisch aangemaakt bij de "toeleveringlijn aangemaakt" event
 	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+
 	// 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)
@@ -346,7 +364,7 @@
 	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\\\\\\\\\\\"
+	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\\90000\101\\\\\\\\"
 	
  	Quit $$$OK
 ]]></Implementation>
Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r2994 -r3005
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2994)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 3005)
@@ -291,7 +291,19 @@
 	Set VerwachteInvoerInfo = OrderUitvoeringService.MaakVerwachteInvoerStructuur(Toelevering, ToeleveringLijn)
 	
 	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
-	Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	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>