Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml
===================================================================
diff -u -r44716 -r44718
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44716)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTest.cls.xml	(.../DataMToeleveringTest.cls.xml)	(revision 44718)
@@ -163,66 +163,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Wijzigen creatiedatum">
-<Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62160)
-	Do Toelevering.ZetAanmaakDatum(62161)
-	Do Toelevering.Save()
-	Set Toelevering = ""
-	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62161)
-]]></Implementation>
-</Method>
-
-<Method name="Test Wijzigen Referentie">
-<Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefReferentie(),"KOMM. TESTKLANT VAN HOECK")
-	Do Toelevering.ZetReferentie("Test referentie")
-	Do Toelevering.Save()
-	Set Toelevering = ""
-	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefReferentie(),"Test referentie")
-]]></Implementation>
-</Method>
-
-<Method name="Test Wijzigen Bestelbevestigingnummer">
-<Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"")
-	Do Toelevering.ZetBestelBevestigingNr("BestelbevestigingNr")
-	Do Toelevering.Save()
-	Set Toelevering = ""
-	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"BestelbevestigingNr")
-]]></Implementation>
-</Method>
-
-<Method name="Test Wijzigen VerzendDatum">
-<Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),"")
-	Do Toelevering.ZetVerzendDatum(62161)
-	Do Toelevering.Save()
-	Set Toelevering = ""
-	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),62161)
-]]></Implementation>
-</Method>
-
-<Method name="Test Wijzigen Munt">
-<Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefMunt(),"EUR")
-	Do Toelevering.ZetMunt("USD")
-	Do Toelevering.Save()
-	Set Toelevering = ""
-	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
-	Do $$$AssertEquals(Toelevering.GeefMunt(),"USD")
-]]></Implementation>
-</Method>
-
 <Method name="Test: Wijzig Product">
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
Index: vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/DataM/DataMToeleveringTestProperties.cls.xml	(revision 44718)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.DataM.DataMToeleveringTestProperties">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<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>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1000,1002)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
+	do ##Super()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ..VerwijderToelevering()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ..VerwijderToelevering()
+	do ..CreeerToelevering()
+]]></Implementation>
+</Method>
+
+<Method name="Test Wijzigen creatiedatum">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62160)
+	Do Toelevering.ZetAanmaakDatum(62161)
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefAanmaakDatum(),62161)
+]]></Implementation>
+</Method>
+
+<Method name="Test Wijzigen Referentie">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefReferentie(),"KOMM. TESTKLANT VAN HOECK")
+	Do Toelevering.ZetReferentie("Test referentie")
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefReferentie(),"Test referentie")
+]]></Implementation>
+</Method>
+
+<Method name="Test Wijzigen Bestelbevestigingnummer">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"")
+	Do Toelevering.ZetBestelBevestigingNr("BestelbevestigingNr")
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefBestelBevestigingNr(),"BestelbevestigingNr")
+]]></Implementation>
+</Method>
+
+<Method name="Test Wijzigen VerzendDatum">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),"")
+	Do Toelevering.ZetVerzendDatum(62161)
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefVerzendDatum(),62161)
+]]></Implementation>
+</Method>
+
+<Method name="Test Wijzigen Munt">
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefMunt(),"EUR")
+	Do Toelevering.ZetMunt("USD")
+	Do Toelevering.Save()
+	Set Toelevering = ""
+	Set Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).OpenId(..#ToeleveringID)
+	Do $$$AssertEquals(Toelevering.GeefMunt(),"USD")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTestData">
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1000,1002)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderToelevering">
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(vhUnitTest.DataHelper).VerwijderToelevering(..#ToeleveringID)
+]]></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>
+</Class>
+
+
+</Export>