Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u -r31945 -r31946
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31945)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31946)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DataID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="WinkelkarID">
 <Type>%String</Type>
 <Private>1</Private>
@@ -48,41 +53,41 @@
 <Method name="AssertBasisfunctieBewaar">
 <Private>1</Private>
 <Implementation><![CDATA[
+	#define AssertIsNotEmpty(%v)   $$$AssertTrue(%v '= "")
+	
 	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..Data
 	
 	// Invullen vereiste properties 
 	Set Data.KlantID = "UT_KlantID"
 	Set Data.Datum = "UT_Datum"
 	
 	Do ..PrijsBerekeningRepository.Bewaar(Data)
-	
-	#dim DataID As %String = Data.GeefID()
-	Do $$$AssertFalse(DataID="")
-	Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(DataID))
-	
+	Set ..DataID = Data.GeefID()
 	Set ..WinkelkarID = Data.Winkelkar.GeefID()
-	Do $$$AssertFalse(..WinkelkarID="")
-	Do $$$AssertTrue(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
+	
+	If $$$AssertIsNotEmpty(..DataID) {
+		Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(..DataID))
+	}
+	If $$$AssertIsNotEmpty(..WinkelkarID) {
+		Do $$$AssertTrue(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="AssertBasisfunctieBestaatViaID">
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim DataID As %String = ..Data.GeefID()
-	Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(DataID))
+<Implementation><![CDATA[	Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(..DataID))
 ]]></Implementation>
 </Method>
 
 <Method name="AssertBasisfunctieGeefViaID">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..Data
-	#dim DataID As %String = Data.GeefID()
 
-	#dim DataNaGeef As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.GeefViaID(DataID)
+	#dim DataNaGeef As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.GeefViaID(..DataID)
 
-	Do $$$AssertEquals(DataNaGeef.GeefID(),DataID)
+	Do $$$AssertEquals(DataNaGeef.GeefID(),Data.GeefID())
 	Do $$$AssertEquals(DataNaGeef.KlantID,Data.KlantID)
 	Do $$$AssertEquals(DataNaGeef.Datum,Data.Datum)
 	Do $$$AssertEquals(DataNaGeef.Winkelkar.GeefID(),Data.Winkelkar.GeefID())
@@ -92,11 +97,9 @@
 <Method name="AssertBasisfunctieVerwijderViaID">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim DataID As %String = ..Data.GeefID()
+	Do ..PrijsBerekeningRepository.VerwijderViaID(..DataID)
 
-	Do ..PrijsBerekeningRepository.VerwijderViaID(DataID)
-
-	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(DataID))
+	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(..DataID))
 	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
 ]]></Implementation>
 </Method>