Index: APPS/VKP/Offerte/impl/OfferteRepository.cls.xml
===================================================================
diff -u -r36450 -r38772
--- APPS/VKP/Offerte/impl/OfferteRepository.cls.xml	(.../OfferteRepository.cls.xml)	(revision 36450)
+++ APPS/VKP/Offerte/impl/OfferteRepository.cls.xml	(.../OfferteRepository.cls.xml)	(revision 38772)
@@ -7,6 +7,13 @@
 <Type>%String</Type>
 <Default>APPS.VKP.impl.Offerte</Default>
 </Parameter>
+
+<Method name="BestaatViaExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BestaatViaFilter("ExterneId = ?", $LB(ExterneId))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/impl/OfferteRepository/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/OfferteRepository/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/OfferteRepository/Test.cls.xml	(revision 38772)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.OfferteRepository.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BestaatViaExterneId gebruikt de juiste query en parameters.">
+<Implementation><![CDATA[
+	#dim ExterneId As %String = $$$DummyInteger
+
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy($$$DummyInteger)
+	
+	Set OfferteRepository = ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do OfferteRepository.BestaatViaExterneId(ExterneId)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM APPS_VKP_impl.Offerte WHERE ExterneId = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB($$$DummyInteger))
+]]></Implementation>
+</Method>
+
+<Method name="MaakGateWayDummy">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.TECH.Persistent.impl.Gateway</ReturnType>
+<Implementation><![CDATA[
+	#dim GateWayDummy As vhTest.Mock.TECH.Persistent.impl.Gateway = ##class(vhTest.Mock.TECH.Persistent.impl.Gateway).%New("APPS.VKP.Offerte.impl.OfferteRepository")
+	Do GateWayDummy.IndienMethodCall("OpenId",$$$ElkeWaarde).DanReturn(##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	Quit GateWayDummy
+]]></Implementation>
+</Method>
+
+<Method name="MaakQueryAPISpy">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Spy.TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB(ExterneId))
+	#dim ResultSetColumns As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes($LB("ExterneId"))
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ##class(vhTest.Spy.TECH.Query.QueryAPI).%New(ResultSetData,ResultSetColumns )
+	
+	Quit QueryAPISpy
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>