FishEye: Tag 44699 refers to a dead (removed) revision in file `vhUnitTest/DOM/AKP/impl/DataM/TestDataMToelevering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestGelinktOrder.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestGelinktOrder.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestGelinktOrder.cls.xml	(revision 44699)
@@ -0,0 +1,155 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.DataM.DataMToeleveringTestGelinktOrder">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>123346</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID">
+<Type>%String</Type>
+<Default>298104</Default>
+</Parameter>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ..VerwijderTestData()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ..VerwijderTestData()
+	do ..CreeerTestData()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
+	
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
+	if ( $isObject(..Klant) ) && ( ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().BestaatKlant(..Klant.GeefID()) ) {
+		do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreeerOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..Klant.GeefID())
+		
+	set OrderLevenCyclusService = ##class(APPS.VKP.OrderLevenCyclusService).%New()
+	#dim Order As DOM.VKP.Order = OrderLevenCyclusService.MaakOrderMetKlantGegevens(..Klant.GeefID(),..#OrderID)
+	
+	do OrderLevenCyclusService.VoegToeProductVoorKlant(Order,..Klant.GeefID(),1001,1)
+	do OrderLevenCyclusService.VoegToeProductVoorKlant(Order,..Klant.GeefID(),1002,1)
+	do Order.Save()
+]]></Implementation>
+</Method>
+
+<Method name="CreeerToelevering">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
+	#dim HaluxID As %String = ##class(DOM.AKP.enu.Leverancier).Halux()
+	#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(HaluxID,..#ToeleveringID)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, HaluxID, 1001, 1)
+	Set ToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, HaluxID, 1002, 1)
+	Do Toelevering.ZetOrderID(..#OrderID)
+	Do Toelevering.ZetAanmaakDatum(62160)
+	Do Toelevering.ZetMunt("EUR")
+	Do Toelevering.ZetReferentie("KOMM. TESTKLANT VAN HOECK")
+	Do Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
+	do Toelevering.Save()
+]]></Implementation>
+</Method>
+
+<Method name="CreeerTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1002)
+	
+	do ..CreeerOrder()
+	do ..CreeerToelevering()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering kan overweg met orders">
+<Implementation><![CDATA[
+	#dim LeverancierID As %String = "K||6332"
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,LeverancierID)
+		
+	Do $$$AssertTrue(Toelevering.%Extends("DOM.AKP.Toelevering"),"De toelevering is van het juiste type")
+	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),"62168,43200","De due out time")
+	Do $$$AssertEquals(Toelevering.GeefOrderID(),..#OrderID,"OrderID is correct")
+	Do $$$AssertEquals(Toelevering.GeefKlantID(),..Klant.GeefID(),"KlantID is correct")
+	Do $$$AssertEquals(Toelevering.GeefReferentie(),"KOMM. TESTKLANT VAN HOECK")
+	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),"62160")
+	Do $$$AssertEquals(Toelevering.GeefMunt(),##class(DOM.enu.Munt).EUR(),"")
+	
+	#dim Iterator As TECH.ListIterator = Toelevering.GeefToeleveringLijnIterator()
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertEquals(ProductLijn.GeefAantal(),1,"250 bestelde items")
+	Do $$$AssertEquals(ProductLijn.GeefLeverdag(),62168,"Voorziene leverdag")
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+		
+	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertEquals(ProductLijn.GeefAantal(),1,"1 bestelde item")
+	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set ProductLijn = Iterator.Next()
+	
+	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
+	
+	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Tekst())
+	
+	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft geen volgende lijn")
+	
+	#dim OrderID As %String = Toelevering.GeefOrderID()
+	Do $$$AssertTrue(OrderID'="","Het bijhorende order werd gevonden")
+	
+	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(101)
+	Do $$$AssertTrue($IsObject(ToeleveringLijn),"De toeleveringlijn werd gevonden")
+	Do $$$AssertEquals(ToeleveringLijn.GeefID(),100,"Het unieke lijn nummer")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/AKP/impl/DataM/TestDataMToelevering.cls.xml
===================================================================
diff -u -r34586 -r44699
--- vhUnitTest/DOM/AKP/impl/DataM/TestDataMToelevering.cls.xml	(.../TestDataMToelevering.cls.xml)	(revision 34586)
+++ vhUnitTest/DOM/AKP/impl/DataM/TestDataMToelevering.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44699)
@@ -1,27 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="vhUnitTest.DOM.AKP.impl.DataM.TestDataMToelevering">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.AKP.TestToelevering")</Description>
+<Class name="vhUnitTest.DOM.AKP.impl.DataM.DataMToeleveringTest">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="OrderID">
-<Type>%String</Type>
-<Default>123346</Default>
-</Parameter>
-
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Parameter name="ToeleveringID">
 <Type>%String</Type>
 <Default>298104</Default>
 </Parameter>
 
+<Property name="LeverancierId">
+<Type>%String</Type>
+<InitialExpression>##class(DOM.AKP.enu.Leverancier).Halux()</InitialExpression>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Klant">
 <Type>DOM.VKP.VanHoeckeKlant</Type>
 <Private>1</Private>
@@ -44,71 +38,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderOrder">
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VerwijderTestData">
-<Private>1</Private>
+<Method name="Test: GeefToeleveringLijn">
 <Implementation><![CDATA[
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
-	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,..LeverancierId)
 	
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
-	if ( $isObject(..Klant) ) && ( ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().BestaatKlant(..Klant.GeefID()) ) {
-		do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
-	}
-]]></Implementation>
-</Method>
-
-<Method name="CreeerOrder">
-<Private>1</Private>
-<Implementation><![CDATA[
-	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..Klant.GeefID())
-		
-	set OrderLevenCyclusService = ##class(APPS.VKP.OrderLevenCyclusService).%New()
-	#dim Order As DOM.VKP.Order = OrderLevenCyclusService.MaakOrderMetKlantGegevens(..Klant.GeefID(),..#OrderID)
-	
-	do OrderLevenCyclusService.VoegToeProductVoorKlant(Order,..Klant.GeefID(),1001,1)
-	do OrderLevenCyclusService.VoegToeProductVoorKlant(Order,..Klant.GeefID(),1002,1)
-	do Order.Save()
-]]></Implementation>
-</Method>
-
-<Method name="CreeerToelevering">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
-	#dim HaluxID As %String = ##class(DOM.AKP.enu.Leverancier).Halux()
-	#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(HaluxID,..#ToeleveringID)
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, HaluxID, 1001, 1)
-	Set ToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, HaluxID, 1002, 1)
-	Do Toelevering.ZetOrderID(..#OrderID)
-	Do Toelevering.ZetAanmaakDatum(62160)
-	Do Toelevering.ZetMunt("EUR")
-	Do Toelevering.ZetReferentie("KOMM. TESTKLANT VAN HOECK")
-	Do Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
-	do Toelevering.Save()
-]]></Implementation>
-</Method>
-
-<Method name="CreeerTestData">
-<Private>1</Private>
-<Implementation><![CDATA[
-		
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1002)
-	
-	do ..CreeerOrder()
-	do ..CreeerToelevering()
-]]></Implementation>
-</Method>
-
-<Method name="TestGeefToeleveringLijn">
-<Implementation><![CDATA[
-	#dim LeverancierID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(6332)	
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,LeverancierID)
-	
 	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijn(100)
 	
 	do $$$AssertEquals(ToeleveringLijn.GeefAantal(),1,"")
@@ -117,10 +50,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefToeleveringLijnViaVolgNr">
+<Method name="Test: GeefToeleveringLijnViaVolgNr">
 <Implementation><![CDATA[
-	#dim LeverancierID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(6332)	
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,LeverancierID)
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,..LeverancierId)
 	
 	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(101)
 	
@@ -130,72 +62,8 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestToelevering">
+<Method name="Test: Save Toelevering">
 <Implementation><![CDATA[
-	#dim LeverancierID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(6332)
-	
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(..#ToeleveringID,LeverancierID)
-		
-	Do $$$AssertTrue(Toelevering.%Extends("DOM.AKP.Toelevering"),"De toelevering is van het juiste type")
-	Do $$$AssertEquals(Toelevering.GeefDueOutTime(),"62168,43200","De due out time")
-	Do $$$AssertEquals(Toelevering.GeefOrderID(),..#OrderID,"OrderID is correct")
-	Do $$$AssertEquals(Toelevering.GeefKlantID(),..Klant.GeefID(),"KlantID is correct")
-	Do $$$AssertEquals(Toelevering.GeefReferentie(),"KOMM. TESTKLANT VAN HOECK")
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),"62160")
-	Do $$$AssertEquals(Toelevering.GeefMunt(),##class(DOM.enu.Munt).EUR(),"")
-	
-	#dim Iterator As TECH.ListIterator = Toelevering.GeefToeleveringLijnIterator()
-	
-	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-	
-	#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = Iterator.Next()
-	
-	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
-	Do $$$AssertEquals(ProductLijn.GeefAantal(),1,"250 bestelde items")
-	Do $$$AssertEquals(ProductLijn.GeefLeverdag(),62168,"Voorziene leverdag")
-	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-	
-	Set ProductLijn = Iterator.Next()
-	
-	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
-	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-		
-	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
-	
-	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-	
-	Set ProductLijn = Iterator.Next()
-	
-	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
-	Do $$$AssertEquals(ProductLijn.GeefAantal(),1,"1 bestelde item")
-	Do $$$AssertTrue(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-	
-	Set ProductLijn = Iterator.Next()
-	
-	Do $$$AssertTrue(ProductLijn.%Extends("DOM.AKP.ProductToeleveringLijn"),"De huidige lijn is een productlijn")
-	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft een volgende lijn")
-	
-	Set Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Tekst())
-	
-	Do $$$AssertFalse(Iterator.HasNext(),"De iterator heeft geen volgende lijn")
-	
-	#dim OrderID As %String = Toelevering.GeefOrderID()
-	Do $$$AssertTrue(OrderID'="","Het bijhorende order werd gevonden")
-	
-	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(101)
-	Do $$$AssertTrue($IsObject(ToeleveringLijn),"De toeleveringlijn werd gevonden")
-	Do $$$AssertEquals(ToeleveringLijn.GeefID(),100,"Het unieke lijn nummer")
-]]></Implementation>
-</Method>
-
-<Method name="TestSaveToelevering">
-<Implementation><![CDATA[
-	#dim LeverancierID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(6332)
-	
-	set ToeleveringGewijzigdEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ToeleveringGewijzigdEvent")
-	set ProductToeleveringLijnGemaaktEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ProductToeleveringLijnGemaakt")
-	set ProductToeleveringLijnGewijzigdEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ProductToeleveringLijnGewijzigd")
-	
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	
 	do $$$AssertEquals(Toelevering.GeefAantalLijnen(),2,"Aantal lijnen bij initieel openen")
@@ -212,13 +80,8 @@
 	do ToeleveringLijn.ZetBlumLijnNr(3)
 	
 	do Toelevering.ZetBestelBevestigingNr(99999)
+	do Toelevering.Save()
 	
-	do Toelevering.Save()  ;do $$$AssertTrue(Toelevering.Save())  --> de Save() van TECH.Persistent quit geen result meer! 
-	
-	do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),1)
-	do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1)
-	do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0)
-	
 	do $$$AssertEquals(^TO("IU",..#ToeleveringID,120),103,"Index IU is correct ingesteld")
 	do $$$AssertEquals(^TO("IP",1000,..#ToeleveringID,120),103,"Index IP is correct ingesteld")
 	
@@ -230,10 +93,6 @@
 	do Toelevering.Save()
 	do $$$LogMessage("Save na wijziging ABLijnNr gelukt")
 	
-	do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),2)
-	do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1)
-	do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0)
-
 	do $$$AssertTrue($data(^KTO3(298104,"3\4321\103")),"Index is correct opgebouwd")
 	do $$$AssertTrue($data(^KTO4(6332,"11111\298104")),"Index is correct ingesteld")
 	
@@ -258,12 +117,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigProduct">
+<Method name="Test : Events worden pas geraised bij het saven">
 <Implementation><![CDATA[
-	#dim LeverancierID As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(6332)
+	set ToeleveringGewijzigdEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ToeleveringGewijzigdEvent")
+	set ProductToeleveringLijnGemaaktEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ProductToeleveringLijnGemaakt")
+	set ProductToeleveringLijnGewijzigdEventTester = ##class(vhTest.Utils.TECH.PubSub.EventSubscription.Tester).%New("ProductToeleveringLijnGewijzigd")
 	
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
 	
+	do Toelevering.ZetBestelBevestigingNr(99999)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(1000)
+
+	do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),0)
+	do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),0)
+	do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0)
+	do Toelevering.Save()
+	
+	do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),1)
+	do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1)
+	do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0)
+	
+	do Toelevering.ZetBestelBevestigingNr(99998)
+	do Toelevering.Save()
+
+	do $$$AssertEquals(ToeleveringGewijzigdEventTester.GeefAantalKeerGeraised(),2)
+	do $$$AssertEquals(ProductToeleveringLijnGemaaktEventTester.GeefAantalKeerGeraised(),1)
+	do $$$AssertEquals(ProductToeleveringLijnGewijzigdEventTester.GeefAantalKeerGeraised(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Wijzig Product">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	
 	do $$$AssertEquals(Toelevering.GeefAantalLijnen(),2,"Aantal lijnen bij initieel openen")
 	
 	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(1000)
@@ -287,7 +173,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestOnbestaandeToelevering">
+<Method name="Test: Onbestaande Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	
@@ -302,6 +188,41 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
+	
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
+	if ( $isObject(..Klant) ) && ( ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().BestaatKlant(..Klant.GeefID()) ) {
+		do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CreeerToelevering">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
+	#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(..LeverancierId,..#ToeleveringID)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, ..LeverancierId, 1001, 1)
+	Set ToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, ..LeverancierId, 1002, 1)
+	Do Toelevering.ZetAanmaakDatum(62160)
+	Do Toelevering.ZetMunt("EUR")
+	Do Toelevering.ZetReferentie("KOMM. TESTKLANT VAN HOECK")
+	Do Toelevering.ZetDueOutTime("2011-03-18 12:00:00")
+	do Toelevering.Save()
+]]></Implementation>
+</Method>
+
+<Method name="CreeerTestData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1002)
+	do ..CreeerToelevering()
+]]></Implementation>
+</Method>
 </Class>