Index: DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml
===================================================================
diff -u -r34694 -r34715
--- DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34694)
+++ DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(.../OpenstaandeFactuur.cls.xml)	(revision 34715)
@@ -8,7 +8,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FactuurNummer">
+<Property name="FactuurID">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
@@ -19,19 +19,19 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantId:%String,FactuurNummer:%String</FormalSpec>
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Status As %Status = $$$OK
 	
-	Set ..KlantId = KlantId
-	Set ..FactuurNummer = FactuurNummer
+	Set ..KlantId = KlantID
+	Set ..FactuurID = FactuurID
 	
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantId)
+	#dim Klant As DOM.VKP.impl.DataM.DataMKlantNative = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
 	#dim GlobalPersistenceMgr = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance()
 		
-	If $Length(..KlantId) && $Length(..FactuurNummer) && $Data(@("^KKL("""_Klant.GeefNaamEnID()_""","_..FactuurNummer_")")) {
-		Set ..Node = GlobalPersistenceMgr.GeefNode("^KKL",Klant.GeefNaamEnID(),..FactuurNummer)
+	If $Length(..KlantId) && $Length(..FactuurID) && $Data(@("^KKL("""_Klant.GeefKlantIndexKKL()_""","_..FactuurID_")")) {
+		Set ..Node = GlobalPersistenceMgr.GeefNode("^KKL",Klant.GeefKlantIndexKKL(),..FactuurID)
 	} Else {
 		set Status = $$$ERROR($$$GeneralError,..GeefFoutMelding())
 	}
@@ -47,6 +47,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFactuurID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..FactuurID
+]]></Implementation>
+</Method>
+
 <Method name="GeefCode">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Node.GeefPiece(1)
Index: DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml
===================================================================
diff -u -r34694 -r34715
--- DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34694)
+++ DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34715)
@@ -3,12 +3,42 @@
 <Class name="DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository">
 <Super>TECH.Mockable</Super>
 
-<Method name="CreateOpenstaandeVerkoopFactuur">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,FactuurNummer:%String</FormalSpec>
+<Method name="OpenViaKlantEnFactuurID">
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
 <ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.BKH.impl.DataM.OpenstaandeFactuur).%New(Klant.GeefID(),FactuurNummer)
+<Implementation><![CDATA[	Quit ##class(DOM.BKH.impl.DataM.OpenstaandeFactuur).%New(KlantID,FactuurID)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakViaKlantEnFactuurID">
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
+<ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.impl.DataM.DataMKlant).%New($Extract(KlantID,4,*))
+	Set ^KKL(Klant.GeefKlantIndexKKL(),FactuurID)="C\21.04.16\21.05.16\151.53\151.53\0\\\EUR\123\\\\\\\F\\"
+	
+	Quit ..OpenViaKlantEnFactuurID(KlantID, FactuurID)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OpenstaandeFacturenList as %ListOfObjects 
+	#dim FactuurNummer As %String = 99999
+	
+	Set Klant = ##class(DOM.VKP.impl.DataM.DataMKlant).%New($Extract(KlantID,4,*))
+	Set OpenstaandeFacturenList = ##class(%ListOfObjects).%New()
+  	For  { Set FactuurNummer=$Order(^KKL(Klant.GeefKlantIndexKKL(),FactuurNummer)) Quit:(FactuurNummer="")  Quit:(FactuurNummer'?6N)  
+  		If ($Piece(^KKL(Klant.GeefKlantIndexKKL(),FactuurNummer),"\",1)="F")||($Piece(^KKL(Klant.GeefKlantIndexKKL(),FactuurNummer),"\",1)="C") {
+  			Do OpenstaandeFacturenList.Insert(..OpenViaKlantEnFactuurID(Klant.GeefID(),FactuurNummer))
+  		}
+  	}
+  	
+  	Quit ##class(TECH.ListIterator).%New(OpenstaandeFacturenList)
+]]></Implementation>
+</Method>
 </Class>
 
 
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>
 
 
Index: vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml
===================================================================
diff -u -r34694 -r34715
--- vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34694)
+++ vhTest/Fake/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34715)
@@ -18,6 +18,35 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="MaakViaKlantEnFactuurID">
+<ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="OpenViaKlantEnFactuurID">
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
+<ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaKlant">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="DeleteViaKlantID">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefFacturenVanKlant">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml
===================================================================
diff -u -r34694 -r34715
--- vhTest/Mock/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34694)
+++ vhTest/Mock/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository.cls.xml	(.../OpenstaandeVerkoopFactuurRepository.cls.xml)	(revision 34715)
@@ -9,12 +9,26 @@
 <Super>DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="CreateOpenstaandeVerkoopFactuur">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,FactuurNummer:%String</FormalSpec>
+<Method name="MaakViaKlantEnFactuurID">
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
 <ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("CreateOpenstaandeVerkoopFactuur",Klant,FactuurNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakViaKlantEnFactuurID",KlantID,FactuurID)
 ]]></Implementation>
 </Method>
+
+<Method name="OpenViaKlantEnFactuurID">
+<FormalSpec>KlantID:%String,FactuurID:%String</FormalSpec>
+<ReturnType>DOM.BKH.impl.DataM.OpenstaandeFactuur</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("OpenViaKlantEnFactuurID",KlantID,FactuurID)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaKlant">
+<FormalSpec>KlantID:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaKlant",KlantID)
+]]></Implementation>
+</Method>
 </Class>