Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2270 -r2487
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2270)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2487)
@@ -46,9 +46,90 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestEvents">
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	
+	Set OrderID = 90000
+	Set OrderLijnID = 101
+	Set KlantID = 1000
+	Set ProductID = 700
+	
+	// Nieuwe productlijn aanmaken
+	
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
+	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt")
+	Set VerwachteUitvoer = ""
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 1 // Aantal van 2 naar 1 zetten
+	Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62372 // Leverdag van 62371 naar 62372 verhogen
+	
+	// Aantal en leverdatum wijzigen
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes)
+	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefAantal(),1,"Het aantal van het moederproduct is op 1 geplaatst")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het moeder is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
+	Set KindReservatie1 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie1.GeefAantal(),1,"Het aantal van het kindreservatie1 is van 2 naar 1 gegaan")
+	Do $$$AssertEquals(KindReservatie1.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindReservatie2 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie2.GeefAantal(),2,"Het aantal van het kindreservatie2 is van 4 naar 2 gegaan")
+	Do $$$AssertEquals(KindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefAantal(),2,"Het aantal van het kind van kindreservatie2 is van 4 naar 2 gegaan")
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het kind van kindreservatie2 is gewijzigd naar 2011-10-08 00:00:00")
+	Set VerwachteUitvoer = ""
+	
+	// Product wijzigen
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 701 // Product wijzigen van 700 naar 701
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes)
+	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd")
+	Set VerwachteUitvoer = ""
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 700 // terug het product op 700 plaatsen
+	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 2 // terug het aantal op 2 plaatsen
+	Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62371 // terug de leverdag op 62371 plaatsen
+	
+	// Lijn verwijderen
+	
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
+	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,101,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
+	Set VerwachteUitvoer = ""
+	
 	Set ^KPR(700) = ""
 	Set ^KPR(701) = ""
 	Set ^KPR(702) = ""