Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u -r31944 -r31945
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31944)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31945)
@@ -8,52 +8,96 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data">
+<Type>APPS.EDI.PrijsBerekening.data.PrijsBerekening</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="TestBasisfuncties">
 <Description>
 TestMaakEnBewaarEnGeefEnVerwijder</Description>
 <Implementation><![CDATA[
 	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
 	
-	
-	// Maak 
-	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..PrijsBerekeningRepository.Maak()
+	Do ..AssertBasisfunctieMaak()
+	Do ..AssertBasisfunctieBewaar()
+	Do ..AssertBasisfunctieBestaatViaID()
+	Do ..AssertBasisfunctieGeefViaID()
+	Do ..AssertBasisfunctieVerwijderViaID()
+]]></Implementation>
+</Method>
+
+<Method name="AssertBasisfunctieMaak">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Data = ..PrijsBerekeningRepository.Maak()
+
+	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..Data
+
 	Do $$$AssertEquals(Data.%ClassName($$$True),##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).%ClassName($$$True))
 	Do $$$AssertIsObject(Data.Winkelkar)
 	Do $$$AssertTrue(Data.Winkelkar.GeefID()="")
+]]></Implementation>
+</Method>
+
+<Method name="AssertBasisfunctieBewaar">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..Data
 	
-	
-	// Bewaar 
+	// 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 $$$AssertFalse(Data.Winkelkar.GeefID()="")
 	Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(DataID))
 	
-	#dim WinkelkarID As %String = Data.Winkelkar.GeefID()
-	Do $$$AssertTrue(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(WinkelkarID))
-	
-	
-	// BestaatViaID 
+	Set ..WinkelkarID = Data.Winkelkar.GeefID()
+	Do $$$AssertFalse(..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))
-	
-	
-	// GeefViaID  en controleer inhoud 
+]]></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)
+
 	Do $$$AssertEquals(DataNaGeef.GeefID(),DataID)
 	Do $$$AssertEquals(DataNaGeef.KlantID,Data.KlantID)
 	Do $$$AssertEquals(DataNaGeef.Datum,Data.Datum)
 	Do $$$AssertEquals(DataNaGeef.Winkelkar.GeefID(),Data.Winkelkar.GeefID())
-	
-	
-	// VerwijderViaID 
-	Do ..PrijsBerekeningRepository.VerwijderViaID(Data.GeefID())
+]]></Implementation>
+</Method>
 
+<Method name="AssertBasisfunctieVerwijderViaID">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DataID As %String = ..Data.GeefID()
+
+	Do ..PrijsBerekeningRepository.VerwijderViaID(DataID)
+
 	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(DataID))
-	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(WinkelkarID))
+	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(..WinkelkarID))
 ]]></Implementation>
 </Method>