Index: APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/data/PrijsBerekening.cls.xml	(revision 31944)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.data.PrijsBerekening">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Datum">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Winkelkar">
+<Type>DOM.EC.Winkelkar.Winkelkar</Type>
+<Required>1</Required>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..InitWinkelkar()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitWinkelkar">
+<Description>
+Private method, alleen vanuit %OnNew() oproepen. 
+Winkelkar wordt gezet via r%... want is een read-only property!  </Description>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ApplicatieID As TECH.String = "PrijsBerekening"
+	Set r%Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New(ApplicatieID)
+]]></Implementation>
+</Method>
+
+<Method name="OnDelete">
+<Implementation><![CDATA[	Do ..Winkelkar.Delete()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.EDI.P445C.PrijsBereke20E1D</DataLocation>
+<DefaultData>PrijsBerekeningDefaultData</DefaultData>
+<IdLocation>^APPS.EDI.P445C.PrijsBereke20E1D</IdLocation>
+<IndexLocation>^APPS.EDI.P445C.PrijsBereke20E1I</IndexLocation>
+<StreamLocation>^APPS.EDI.P445C.PrijsBereke20E1S</StreamLocation>
+<Data name="PrijsBerekeningDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>KlantID</Value>
+</Value>
+<Value name="3">
+<Value>Datum</Value>
+</Value>
+<Value name="4">
+<Value>Winkelkar</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(revision 31944)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="PrijsBerekeningRepository">
+<Type>APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository</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 $$$AssertEquals(Data.%ClassName($$$True),##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).%ClassName($$$True))
+	Do $$$AssertIsObject(Data.Winkelkar)
+	Do $$$AssertTrue(Data.Winkelkar.GeefID()="")
+	
+	
+	// Bewaar 
+	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 
+	Do $$$AssertTrue(..PrijsBerekeningRepository.BestaatViaID(DataID))
+	
+	
+	// GeefViaID  en controleer inhoud 
+	#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())
+
+	Do $$$AssertFalse(..PrijsBerekeningRepository.BestaatViaID(DataID))
+	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>
+
+
+</Export>
Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(revision 31944)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Maak">
+<ReturnType>APPS.EDI.PrijsBerekening.data.PrijsBerekening</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:APPS.EDI.PrijsBerekening.data.PrijsBerekening</FormalSpec>
+<Implementation><![CDATA[	Do Data.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).%ExistsId(ID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>APPS.EDI.PrijsBerekening.data.PrijsBerekening</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).OpenId(ID)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).DeleteId(ID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>