Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml
===================================================================
diff -u -r31944 -r31957
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31944)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository.cls.xml	(.../PrijsBerekeningRepository.cls.xml)	(revision 31957)
@@ -34,6 +34,43 @@
 <Implementation><![CDATA[	Do ##class(APPS.EDI.PrijsBerekening.data.PrijsBerekening).DeleteId(ID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaKlantEnDatum">
+<FormalSpec>KlantID:%String,Datum:%Date</FormalSpec>
+<ReturnType>APPS.EDI.PrijsBerekening.data.PrijsBerekening</ReturnType>
+<Implementation><![CDATA[
+	#dim DataID As %String = ..GeefDataIDViaKlantEnDatum(KlantID,Datum)
+	Quit ..GeefViaID(DataID)
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaKlantEnDatum">
+<FormalSpec>KlantID:%String,Datum:%Date</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim DataID As %String = ..GeefDataIDViaKlantEnDatum(KlantID,Datum)
+	Quit $$$Not(DataID="")
+]]></Implementation>
+</Method>
+
+<Method name="GeefDataIDViaKlantEnDatum">
+<FormalSpec>KlantID:%String,Datum:%Date</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataID As %String = ""
+	#dim SqlStatement As TECH.String = "SELECT ID FROM APPS_EDI_PrijsBerekening_data.PrijsBerekening  WHERE (KlantID = ?) AND (Datum = ?)"
+	#dim lbParams As %List = $LB(KlantID,Datum)
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,lbParams))
+	If ResultSet.Next() {
+		Set DataID = ResultSet.Data("ID")
+	}
+	
+	; Wat indien meerdere records gevonden ? 
+	
+	Quit DataID
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository/GeefViaKlantEnDatum/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository/GeefViaKlantEnDatum/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/PrijsBerekening/impl/PrijsBerekeningRepository/GeefViaKlantEnDatum/Test.cls.xml	(revision 31957)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository.GeefViaKlantEnDatum.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="PrijsBerekeningRepository">
+<Type>APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Data">
+<Type>APPS.EDI.PrijsBerekening.data.PrijsBerekening</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Description>
+Test via de Method BestaatViaKlantEnDatum()</Description>
+<Implementation><![CDATA[
+	Set ..PrijsBerekeningRepository = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New()
+
+	#dim KlantID As %String = ""
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+
+	#dim DataBestaat As %Boolean = ..PrijsBerekeningRepository.BestaatViaKlantEnDatum(KlantID,CurrentDate)
+	Do $$$AssertTrue(DataBestaat)
+]]></Implementation>
+</Method>
+
+<Method name="aTestVoorOnbestaandeKlantID">
+<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>