Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2926 -r2990
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2926)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2990)
@@ -197,13 +197,75 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestAKPEvents">
+<Implementation><![CDATA[
+	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)	
+	
+	Set VerwachteInvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	Do $$$AssertTrue($IsObject(VerwachteInvoer),"De verwachte invoer is aangemaakt")
+	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),250,"Het aantal")
+	Do $$$AssertEquals(VerwachteInvoer.GeefBedrijf(),##class(DOM.common.enu.Bedrijf).VanHoecke(),"Het bedrijf")
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2012-05-16 00:00:00","De due in")
+	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),ProductID,"De productId")
+	
+	// Product, leverdatum en aantal wijzigen
+	
+	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())
+	Do ProductToelevLijnWijzigingTypes.Insert(##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Leverdatum())
+	Set ProductToeleveringLijnWijzigEventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, 701, ProductToelevLijnWijzigingTypes)
+	Set ProductToeleveringLijnGewijzigd = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(ProductToeleveringLijnWijzigEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductToelevLijnGewijzigd(ProductToeleveringLijnGewijzigd)	
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	
+	Do $$$AssertEquals(VerwachteInvoer.GeefAantal(),251,"Het aantal")
+	Do $$$AssertEquals(VerwachteInvoer.GeefDueIn(),"2012-05-23 00:00:00","De due in")
+	Do $$$AssertEquals(VerwachteInvoer.GeefProductID(),701,"De productId")
+	
+	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)	
+	
+	Set VerwachteInvoer = VerwachteInvoerAPI.ZoekInvoerViaTransactieRef(ToeleveringID, ToeleveringLijnCode,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+	
+	// Verwachte invoer terug aanmaken zodat we deze opnieuw kunnen verwijderen
+	
+	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)
+	
+	Set ProductToeleveringLijnEventData = ##class(DOM.AKP.event.ProductToelevLijnEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID)
+	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())
+	Do $$$AssertFalse($IsObject(VerwachteInvoer),"De verwachte invoer is verwijderd")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
 	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
 	Set VerwachteUitvoer = ""
 	
+	Set VerwachteInvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI().ZoekInvoerViaTransactieRef(90001,100,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteInvoer)) { Do VerwachteInvoer.Delete() }
+	Set VerwachteInvoer = ""
+	
 	Set ^KPR(700) = ""
 	Set ^KPR(701) = ""
 	Set ^KPR(702) = ""
@@ -233,6 +295,13 @@
 	Set ^PRBS("BS",701,"MAT.002") = "\1\S\.045\\\\\\2\GROEP\\Zaagwerk surplus\\\1"
 	Set ^PRBS("BS",701,"MAT.003") = "\1\S\.04114293198830083566\\\\\\3\GROEP\\Algemene kost (1%)\\\1"
 	
+	Set ^KTO1(90001) = "5005\"
+	Set ^TO("IU",90001,100) = 101
+	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\\\\\\\\\\\"
+	
  	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -251,6 +320,9 @@
 	Kill ^PRBS("BS",700)
 	Kill ^PRBS("BS",700)
 	Kill ^ORD("IU",90000,100)
+	Kill ^KTO(5005,90001)
+	Kill ^TO("IU",90001)
+	Kill ^KTO1(90001)
 	Quit $$$OK
 ]]></Implementation>
 </Method>