Index: vhUnitTest/DOM/BKH/impl/DataM/OpenstaandeFactuur/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/BKH/impl/DataM/OpenstaandeFactuur/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/BKH/impl/DataM/OpenstaandeFactuur/Test.cls.xml	(revision 34672)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.BKH.impl.DataM.OpenstaandeFactuur.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: begin">
+<Implementation><![CDATA[
+	Set OpenstaandeFactuur = ##class(DOM.BKH.impl.DataM.OpenstaandeFactuur).%New("K||23268",594801)
+	
+	Do $$$AssertTrue($IsObject(OpenstaandeFactuur))
+	Do $$$AssertEquals(OpenstaandeFactuur.GeefCode(),"F","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r34660 -r34672
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 34660)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 34672)
@@ -1286,6 +1286,12 @@
 <Implementation><![CDATA[	quit ..Node0.GeefPiece(18)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNaamEnID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Node0.GeefPiece(50)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r33705 -r34672
--- DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 33705)
+++ DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 34672)
@@ -496,6 +496,11 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefNaamEnID">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml
===================================================================
diff -u
--- DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(revision 0)
+++ DOM/BKH/impl/DataM/OpenstaandeFactuur.cls.xml	(revision 34672)
@@ -0,0 +1,186 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.BKH.impl.DataM.OpenstaandeFactuur">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KlantId">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FactuurNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Node">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantId:%String,FactuurNummer:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status As %Status = $$$OK
+	
+	Set ..KlantId = KlantId
+	Set ..FactuurNummer = FactuurNummer
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantId)
+		
+	If $Length(..KlantId) && $Length(..FactuurNummer) && $Data(@("^KKL("""_Klant.GeefNaamEnID()_""","_..FactuurNummer_")")) {
+		Set ..Node = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^KKL",Klant.GeefNaamEnID(),..FactuurNummer)
+	} Else {
+		Set Status = $$$ERROR($$$GeneralError,..GeefFoutMelding())	
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefFoutMelding">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Deze openstaande factuur bestaat niet"
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(1)
+]]></Implementation>
+</Method>
+
+<Method name="ZetCode">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(1,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefFactuurDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFactuurDatum">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(2,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVervalDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(3)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVervalDatum">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(3,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalBedragInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(4)
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotaalBedragInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(4,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNogTeBetalenInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(5)
+]]></Implementation>
+</Method>
+
+<Method name="ZetNogTeBetalenInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(5,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortingKontantInMuntKlant">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(6)
+]]></Implementation>
+</Method>
+
+<Method name="ZetKortingKontantInMuntKlant">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(6,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(7)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOmschrijving">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(7,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalHerinneringen">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(8)
+]]></Implementation>
+</Method>
+
+<Method name="ZetAantalHerinneringen">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(8,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefMunt">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(9)
+]]></Implementation>
+</Method>
+
+<Method name="ZetMunt">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(9,Value)
+]]></Implementation>
+</Method>
+
+<Method name="GeefNogTeBetalenInEUR">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Node.GeefPiece(10)
+]]></Implementation>
+</Method>
+
+<Method name="ZetNogTeBetalenInEUR">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Node.ZetPiece(10,Value)
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[ 	Do ..Node.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r33705 -r34672
--- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 33705)
+++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 34672)
@@ -226,6 +226,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNaamEnID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefNaamEnID")
+]]></Implementation>
+</Method>
+
 <Method name="GeefOpenstaandeFacturenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefOpenstaandeFacturenIterator")