Index: DOM/VKP/impl/DataM/DataMKlantNative.cls.xml
===================================================================
diff -u -r49679 -r50152
--- DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 49679)
+++ DOM/VKP/impl/DataM/DataMKlantNative.cls.xml	(.../DataMKlantNative.cls.xml)	(revision 50152)
@@ -1428,6 +1428,39 @@
 <Implementation><![CDATA[	Do ..Node0.ZetPiece(23,$Select(Incasso:"1",1:""))
 ]]></Implementation>
 </Method>
+
+<Method name="ZetRembours">
+<FormalSpec>Rembours:%Boolean</FormalSpec>
+<Implementation><![CDATA[	Do ..Node3.ZetPiece(1,$Select(Rembours:"1",1:""))
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetalingTermijn">
+<FormalSpec>BetalingTermijn:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Node0.ZetPiece(18,BetalingTermijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetalingwijze">
+<FormalSpec>Betalingwijze:DOM.VKP.enu.Betalingwijze</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ZetRembours($$$False)
+	Do ..ZetIncasso($$$False)
+	Do ..ZetVooruitbetaling($$$False)
+	
+	If ($$$Not(Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).BetalingTermijn())) {
+		Do ..ZetBetalingTermijn("")
+	}
+	
+	If (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Rembours()) {
+		Do ..ZetRembours($$$True)
+	} ElseIf (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Incasso()) {
+		Do ..ZetIncasso($$$True)
+	} ElseIf (Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()) {
+		Do ..ZetVooruitbetaling($$$True)
+	}
+]]></Implementation>
+</Method>
 </Class>