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)