Index: DOM/VKP/impl/DataM/DataMKlantOpenstaandeFacturenIterator.cls.xml
===================================================================
diff -u -r29059 -r34876
--- DOM/VKP/impl/DataM/DataMKlantOpenstaandeFacturenIterator.cls.xml	(.../DataMKlantOpenstaandeFacturenIterator.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMKlantOpenstaandeFacturenIterator.cls.xml	(.../DataMKlantOpenstaandeFacturenIterator.cls.xml)	(revision 34876)
@@ -11,49 +11,54 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FactuurID">
+<Property name="FactuurNr">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantID)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
+	set ..KlantID = KlantID
 	set ..KlantIndex = Klant.GeefKlantIndexKKL()
-	set ..FactuurID = 99999
+	set ..FactuurNr = 99999
 	do ..BepaalVolgendeFactuur()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..FactuurID'=""
+<Implementation><![CDATA[	Quit ..FactuurNr'=""
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalVolgendeFactuur">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim HuidigeFactuur As %String = ..FactuurID
+	#dim HuidigeFactuur As %String = ..FactuurNr
 	set HuidigeFactuur = $order(^KKL(..KlantIndex,HuidigeFactuur))
 	if HuidigeFactuur'?6N set HuidigeFactuur = ""
-	set ..FactuurID = HuidigeFactuur
+	set ..FactuurNr = HuidigeFactuur
 	quit
 ]]></Implementation>
 </Method>
 
 <Method name="Next">
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim HuidigeFactuur As %String = ..FactuurID
+	#dim HuidigeFactuur As %String = ..FactuurNr
 	do ..BepaalVolgendeFactuur()
-	quit HuidigeFactuur
+	quit ..KlantID_"_"_HuidigeFactuur
 ]]></Implementation>
 </Method>
 </Class>