Index: DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u -r38797 -r38823
--- DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 38797)
+++ DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 38823)
@@ -34,6 +34,13 @@
 	Quit ..BestaatViaFilter("ExterneId = ?", $LB(ExterneId))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaFilter("ExterneId = ?", $LB(ExterneId))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/EC/Winkelkar/impl/WinkelkarRepository/Test.cls.xml
===================================================================
diff -u -r38796 -r38823
--- vhUnitTest/DOM/EC/Winkelkar/impl/WinkelkarRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 38796)
+++ vhUnitTest/DOM/EC/Winkelkar/impl/WinkelkarRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 38823)
@@ -19,6 +19,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: GeefViaExterneId gebruikt de juiste query en parameters.">
+<Implementation><![CDATA[
+	#dim ExterneId As %String = $$$DummyInteger
+
+	
+	#dim QueryAPISpy As vhTest.Spy.TECH.Query.QueryAPI = ..MaakQueryAPISpy($$$DummyInteger)
+	
+	Set WinkelkarRepository = ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New(..MaakGateWayDummy(), QueryAPISpy)
+	
+	Do WinkelkarRepository.GeefViaExterneId(ExterneId)
+	
+	Do $$$AssertEquals(QueryAPISpy.Statement,"SELECT ID FROM DOM_EC_Winkelkar.Winkelkar WHERE ExterneId = ?")
+	Do $$$AssertEquals(QueryAPISpy.Params ,$LB($$$DummyInteger))
+]]></Implementation>
+</Method>
+
 <Method name="MaakGateWayDummy">
 <Private>1</Private>
 <ReturnType>vhTest.Mock.TECH.Persistent.impl.Gateway</ReturnType>