Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u -r31946 -r31949
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31946)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31949)
@@ -37,6 +37,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: KlantID en Datum zijn vereist">
+<Implementation><![CDATA[
+	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
+	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.Maak()
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("ERROR #5659: Property 'APPS.EDI.PrijsBerekening.data.PrijsBerekening::KlantID","ERROR #5659: Property 'APPS.EDI.PrijsBerekening.data.PrijsBerekening::Datum")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.SaveFailedException).%ClassName(1),Substrings))
+
+	Do ..PrijsBerekeningRepository.Bewaar(Data)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefViaIDOnbestaandeID">
+<Implementation><![CDATA[
+	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
+	#dim DummyOnbestaandeID As %Strin = "UT_OnbestaandeID"
+	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(DummyOnbestaandeID))
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon object van type APPS.EDI.PrijsBerekening.data.PrijsBerekening niet openen met id","UT_OnbestaandeID")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.BaseException).%ClassName(1),Substrings))
+
+	Do ..PrijsBerekeningRepository.GeefViaID(DummyOnbestaandeID)
+]]></Implementation>
+</Method>
+
 <Method name="AssertBasisfunctieMaak">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -62,12 +87,13 @@
 	Set Data.Datum = "UT_Datum"
 	
 	Do ..PrijsBerekeningRepository.Bewaar(Data)
-	Set ..DataID = Data.GeefID()
-	Set ..WinkelkarID = Data.Winkelkar.GeefID()
 	
+	Set ..DataID = Data.GeefID()
 	If $$$AssertIsNotEmpty(..DataID) {
 		Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(..DataID))
 	}
+
+	Set ..WinkelkarID = Data.Winkelkar.GeefID()
 	If $$$AssertIsNotEmpty(..WinkelkarID) {
 		Do $$$AssertTrue(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
 	}
@@ -85,7 +111,7 @@
 <Implementation><![CDATA[
 	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..Data
 
-	#dim DataNaGeef As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.GeefViaID(..DataID)
+	#dim DataNaGeef As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.GeefViaID(Data.GeefID())
 
 	Do $$$AssertEquals(DataNaGeef.GeefID(),Data.GeefID())
 	Do $$$AssertEquals(DataNaGeef.KlantID,Data.KlantID)
@@ -103,31 +129,6 @@
 	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
 ]]></Implementation>
 </Method>
-
-<Method name="Test: KlantID en Datum zijn vereist">
-<Implementation><![CDATA[
-	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
-	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.Maak()
-
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("ERROR #5659: Property 'APPS.EDI.PrijsBerekening.data.PrijsBerekening::KlantID","ERROR #5659: Property 'APPS.EDI.PrijsBerekening.data.PrijsBerekening::Datum")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.SaveFailedException).%ClassName(1),Substrings))
-
-	Do ..PrijsBerekeningRepository.Bewaar(Data)
-]]></Implementation>
-</Method>
-
-<Method name="TestGeefViaIDOnbestaandeID">
-<Implementation><![CDATA[
-	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
-	#dim DummyOnbestaandeID As %Strin = "UT_OnbestaandeID"
-	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(DummyOnbestaandeID))
-
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon object van type APPS.EDI.PrijsBerekening.data.PrijsBerekening niet openen met id","UT_OnbestaandeID")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.BaseException).%ClassName(1),Substrings))
-
-	Do ..PrijsBerekeningRepository.GeefViaID(DummyOnbestaandeID)
-]]></Implementation>
-</Method>
 </Class>