Index: vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml
===================================================================
diff -u -r34694 -r34715
--- vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34694)
+++ vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34715)
@@ -8,22 +8,72 @@
 <Default>DummyKlantID</Default>
 </Parameter>
 
+<Property name="Consument">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OpenstaandeVerkoopFactuurRepository">
+<Type>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: Openen van bestaande OpenstaandeVerkoopFactuur">
 <Implementation><![CDATA[
-	Set OpenstaandeVerkoopFactuurRepository = ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
-
-	#dim VerkoopAPI As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
-	Set KlantStub = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()	
-	Do KlantStub.IndienMethodCall("GeefID").DanReturn(1573)	
-	Do KlantStub.IndienMethodCall("GeefNaamEnID").DanReturn("1573HOUT 23268")	
-	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(KlantStub)
-	
 	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeFactuur
-	Set OpenstaandeVerkoopFactuur = OpenstaandeVerkoopFactuurRepository.CreateOpenstaandeVerkoopFactuur(KlantStub,594801)
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantEnFactuurID(..Consument.GeefID(),12345)
 		
 	Do $$$AssertTrue($IsObject(OpenstaandeVerkoopFactuur))
+	Do $$$AssertEquals(OpenstaandeVerkoopFactuur.GeefVervalDatum(),"21.05.16","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Alle openstaande facturen van een klant">
+<Implementation><![CDATA[
+	#dim OpenstaandeVerkoopFactuurIterator as TECH.Iterator
+	Set OpenstaandeVerkoopFactuurIterator = ..OpenstaandeVerkoopFactuurRepository.ZoekViaKlant(..Consument.GeefID())
+	
+	Do $$$AssertTrue(OpenstaandeVerkoopFactuurIterator.HasNext(),"")
+	Do OpenstaandeVerkoopFactuurIterator.Next()
+	Do $$$AssertTrue(OpenstaandeVerkoopFactuurIterator.HasNext(),"")
+	Do OpenstaandeVerkoopFactuurIterator.Next()
+	Do $$$AssertFalse(OpenstaandeVerkoopFactuurIterator.HasNext(),"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Aanmaken via klantid en factuurid">
+<Implementation><![CDATA[
+	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeFactuur
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.MaakViaKlantEnFactuurID(..Consument.GeefID(),987654)
+	
+	Do $$$AssertEquals(OpenstaandeVerkoopFactuur.GeefFactuurID(),987654,"")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()
+	
+	Set ^KKL(..Consument.GeefNaamEnID(),999)="C\21.04.16\21.05.16\151.53\151.53\0\\\EUR\50\\\\\\\F\\"
+	Set ^KKL(..Consument.GeefNaamEnID(),12345)="F\21.04.16\21.05.16\151.53\151.53\0\\\EUR\100\\\\\\\F\\"
+	Set ^KKL(..Consument.GeefNaamEnID(),12345.3)="F\21.04.16\21.05.16\151.53\151.53\0\\\EUR\150\\\\\\\F\\"
+	Set ^KKL(..Consument.GeefNaamEnID(),123456)="F\25.04.16\25.05.16\599.81\599.81\0\\\EUR\200\\\\\\\F\\"
+	Set ^KKL(..Consument.GeefNaamEnID(),1234567)="F\25.04.16\25.05.16\599.81\599.81\0\\\EUR\250\\\\\\\F\\"
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	 Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Consument.GeefID())
+	 Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..OpenstaandeVerkoopFactuurRepository = ##class(DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository).%New()
+]]></Implementation>
+</Method>
 </Class>