Index: DOM/VKP/impl/DataM/DataMBon.cls.xml
===================================================================
diff -u -r49015 -r53915
--- DOM/VKP/impl/DataM/DataMBon.cls.xml	(.../DataMBon.cls.xml)	(revision 49015)
+++ DOM/VKP/impl/DataM/DataMBon.cls.xml	(.../DataMBon.cls.xml)	(revision 53915)
@@ -5,11 +5,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.VKP.impl.DataM.DataMBonAbstract</Super>
 
-<Property name="KlantNr">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="FacturatieSoort">
 <Type>%String</Type>
 <Private>1</Private>
@@ -26,10 +21,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..KlantNr = $P(^KU1(BonNummer,"F"),"\")
+	Do ##super(BonNummer)
 	Set ..FacturatieSoort = FacturatieSoort
 	Set ..BonNr = BonNummer
-	Quit ##super(BonNummer)
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -66,18 +61,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKlant">
-<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(..GeefKlantID())
-]]></Implementation>
-</Method>
-
-<Method name="GeefKlantID">
-<ReturnType>DOM.common.PartijID</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..KlantNr)
-]]></Implementation>
-</Method>
-
 <Method name="GeefPrijsAffichering">
 <ReturnType>DOM.VKP.enu.PrijsAffichering</ReturnType>
 <Implementation><![CDATA[	Quit $piece(..NodeHoofding,"\",27)