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>