Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml
===================================================================
diff -u -r1328 -r1334
--- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1328)
+++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml	(.../DataMKlantBase.cls.xml)	(revision 1334)
@@ -179,6 +179,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHandelsregisterNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..BetalingsGegevens1,"\",21)
+]]></Implementation>
+</Method>
+
 <Method name="GeefInitialenLaatsteWijziging">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..AlgemeneGegevens,"\",29)
@@ -303,6 +309,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBetalingsGegevens1">
+<FormalSpec>Piece:%Integer,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Temp = ..BetalingsGegevens1
+	Set $Piece(Temp,"\",Piece) = Waarde
+	Set ..BetalingsGegevens1 = Temp
+	Do ..BetalingsGegevens1Gewijzigd()
+]]></Implementation>
+</Method>
+
 <Method name="ZetBetalingsGegevens2">
 <FormalSpec>Piece:%Integer,Waarde:%String</FormalSpec>
 <Private>1</Private>
@@ -361,6 +378,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..ZetBetalingsGegevens2(19,Email)
+]]></Implementation>
+</Method>
+
+<Method name="ZetHandelsregisterNr">
+<FormalSpec>HandelsregisterNr:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..ZetBetalingsGegevens1(21,HandelsregisterNr)
+]]></Implementation>
+</Method>
+
 <Method name="ZetInitialenLaatsteWijziging">
 <FormalSpec>InitialenNaam:%String</FormalSpec>
 <Private>1</Private>
@@ -380,13 +410,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Do ..ZetBetalingsGegevens2(19,Email)
-]]></Implementation>
-</Method>
-
 <Method name="ZetTelefoon1">
 <FormalSpec>Telefoon1:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..ZetAlgemeneGegevens(13,Telefoon1)
@@ -418,15 +441,15 @@
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens2Gewijzigd">
+<Method name="BetalingsGegevens1Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens3Gewijzigd">
+<Method name="BetalingsGegevens2Gewijzigd">
 <Abstract>1</Abstract>
 </Method>
 
-<Method name="BetalingsGegevens1Gewijzigd">
+<Method name="BetalingsGegevens3Gewijzigd">
 <Abstract>1</Abstract>
 </Method>