Index: vhTest/Utils/TECH/Persistent/KeyValuePairRepository.cls.xml
===================================================================
diff -u -r34164 -r34426
--- vhTest/Utils/TECH/Persistent/KeyValuePairRepository.cls.xml	(.../KeyValuePairRepository.cls.xml)	(revision 34164)
+++ vhTest/Utils/TECH/Persistent/KeyValuePairRepository.cls.xml	(.../KeyValuePairRepository.cls.xml)	(revision 34426)
@@ -38,6 +38,13 @@
 <Implementation><![CDATA[	Quit ..GeefViaFilter("Sleutel = ? OR Waarde = ?", $LB(Key,Value))
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatViaKeyValue">
+<FormalSpec>Key:%String,Value:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("Sleutel = ? AND Waarde = ?", $LB(Key,Value))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml
===================================================================
diff -u -r34164 -r34426
--- vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34164)
+++ vhUnitTest/Utils/TECH/Persistent/KeyValuePairRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34426)
@@ -18,6 +18,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BestaatViaKeyValue geeft true weer.">
+<Implementation><![CDATA[
+	Do ..CreateKeyValuePair("Key","Value")
+
+	#dim KeyValuePairRepository As vhTest.Utils.TECH.Persistent.KeyValuePairRepository = ##class(vhTest.Utils.TECH.Persistent.KeyValuePairRepository).%New()
+	Do $$$AssertTrue(KeyValuePairRepository.BestaatViaKeyValue("Key","Value"))
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestaatViaKeyValue geeft false weer.">
+<Implementation><![CDATA[
+	Do ..CreateKeyValuePair("Key","Value")
+
+	#dim KeyValuePairRepository As vhTest.Utils.TECH.Persistent.KeyValuePairRepository = ##class(vhTest.Utils.TECH.Persistent.KeyValuePairRepository).%New()
+	Do $$$AssertFalse(KeyValuePairRepository.BestaatViaKeyValue("KeyBestaatNiet","Value"))
+]]></Implementation>
+</Method>
+
 <Method name="Test: GeefViaKeyValue geeft object KeyValuePair weer.">
 <Implementation><![CDATA[
 	Do ..CreateKeyValuePair("Key","Value")
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml
===================================================================
diff -u -r34183 -r34426
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34183)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TransportduurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34426)
@@ -3,6 +3,22 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: BestaatViaLandEnPostCode gebruikt de juiste query en parameters.">
+<Implementation><![CDATA[
+	#dim LandCode As %String = "DE"
+	#dim PostCode As %String = "54122"
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy(LandCode, PostCode)
+	
+	Set TransportduurRepository = ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do TransportduurRepository.BestaatViaLandEnPostCode(LandCode, PostCode)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_TRANSP_Offerte_impl_DHL.Transportduur WHERE LandCode = ? AND PostCode = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB("DE","54122"))
+]]></Implementation>
+</Method>
+
 <Method name="Test: GeefViaLandEnPostCode gebruikt de juiste query en parameters.">
 <Implementation><![CDATA[
 	#dim LandCode As %String = "DE"