Index: DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r49679 -r50152
--- DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 49679)
+++ DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 50152)
@@ -575,10 +575,25 @@
 <FormalSpec>Incasso:%Boolean</FormalSpec>
 </Method>
 
+<Method name="ZetRembours">
+<Abstract>1</Abstract>
+<FormalSpec>Rembours:%Boolean</FormalSpec>
+</Method>
+
 <Method name="HeeftFactuurVerzendingViaPost">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="ZetBetalingTermijn">
+<Abstract>1</Abstract>
+<FormalSpec>BetalingTermijn:%String</FormalSpec>
+</Method>
+
+<Method name="ZetBetalingwijze">
+<Abstract>1</Abstract>
+<FormalSpec>Betalingwijze:DOM.VKP.enu.Betalingwijze</FormalSpec>
+</Method>
 </Class>
 
 
Index: zTryout/THB/Klad.cls.xml
===================================================================
diff -u
--- zTryout/THB/Klad.cls.xml	(revision 0)
+++ zTryout/THB/Klad.cls.xml	(revision 50152)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.Klad">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="KlantIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	#dim VerkoopApi As DOM.VKP.VerkoopAPI = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	Set ..KlantIterator = VerkoopApi.GeefKlantIterator()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantVbBetalingwijze">
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant
+	#dim ContantCheck, RemboursCheck, IncassoCheck, VooruitbetalingCheck, BetalingstermijnCheck As %Boolean = $$$False
+	
+	
+	While ..KlantIterator.HasNext() {
+		 Set Klant = ..KlantIterator.Next()
+		 #dim Betalingwijze As DOM.VKP.enu.Betalingwijze = Klant.GeefBetalingwijze()
+		 If ((Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Contant()) && $$$Not(ContantCheck)) {
+			Write !,"KlantNummer: '"_$Piece(Klant.GeefID(),"||",2)_"' heeft Betalingwijze: '"_Klant.GeefBetalingwijze()_"'"
+			Set ContantCheck = $$$True
+		 } ElseIf ((Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Rembours()) && $$$Not(RemboursCheck)) {
+			Write !,"KlantNummer: '"_$Piece(Klant.GeefID(),"||",2)_"' heeft Betalingwijze: '"_Klant.GeefBetalingwijze()_"'"
+			Set RemboursCheck = $$$True
+		 } ElseIf ((Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Incasso()) && $$$Not(IncassoCheck)) {
+			Write !,"KlantNummer: '"_$Piece(Klant.GeefID(),"||",2)_"' heeft Betalingwijze: '"_Klant.GeefBetalingwijze()_"'"
+			Set IncassoCheck = $$$True
+		 } ElseIf ((Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()) && $$$Not(VooruitbetalingCheck)) {
+			Write !,"KlantNummer: '"_$Piece(Klant.GeefID(),"||",2)_"' heeft Betalingwijze: '"_Klant.GeefBetalingwijze()_"'"
+			Set VooruitbetalingCheck = $$$True
+		 } ElseIf ((Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn()) && $$$Not(BetalingstermijnCheck)) {
+			Write !,"KlantNummer: '"_$Piece(Klant.GeefID(),"||",2)_"' heeft Betalingwijze: '"_Klant.GeefBetalingwijze()_"'"
+			Set BetalingstermijnCheck = $$$True
+		 }
+		 If (ContantCheck && RemboursCheck && IncassoCheck && VooruitbetalingCheck && BetalingstermijnCheck) {
+			Continue 
+		 }
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r50121 -r50152
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50121)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50152)
@@ -55,6 +55,8 @@
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
@@ -89,6 +91,8 @@
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
@@ -126,6 +130,8 @@
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
@@ -162,6 +168,8 @@
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
@@ -299,6 +307,8 @@
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","BUNIT").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 ]]></Implementation>
 </Method>
@@ -384,6 +394,7 @@
 	Set Cust.TaxRegistrationNumber = "159753"
 	Set Cust.InclTax = "No"
 	Set Cust.TaxGroup = "BUNIT"
+	Set Cust.PaymTermId = "REMBOURS"
 	Do Cust.ElectronicAddress.Insert(..GeefTelefoon1())	
 	Do Cust.ElectronicAddress.Insert(..GeefFax())	
 	Do Cust.ElectronicAddress.Insert(..GeefEmail())	
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>
 
 
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r50120 -r50152
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50120)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50152)
@@ -95,6 +95,7 @@
 	Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber)
 	Do Klant.ZetFacturatieWijze($$$If(Cust.InclTax="Yes","Incl","Excl"))
 	Do Klant.ZetBTWRegime(Cust.TaxGroup)
+	Do ..VerwerkPaymTermId(.Klant, Cust.PaymTermId)
 	Do Klant.Save()
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
@@ -131,6 +132,7 @@
 	Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber)
 	Do Klant.ZetFacturatieWijze($$$If(Cust.InclTax="Yes","Incl","Excl"))
 	Do Klant.ZetBTWRegime(Cust.TaxGroup)
+	Do ..VerwerkPaymTermId(.Klant, Cust.PaymTermId)
 	Do Klant.Save()
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
@@ -239,6 +241,16 @@
 	Quit ##class(AXimpl.Formatter).%New().FormatVATNumToCache(VATNum,CountryRegionId)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkPaymTermId">
+<FormalSpec><![CDATA[&Klant:DOM.VKP.VanHoeckeKlant,PaymTermId:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BetalingwijzeEnBetalingTermijn As %String = ..AxToAdminUtils.ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do Klant.ZetBetalingwijze($Piece(BetalingwijzeEnBetalingTermijn,"||",1))
+	Do Klant.ZetBetalingTermijn($Piece(BetalingwijzeEnBetalingTermijn,"||",2))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r49906 -r50152
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 49906)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 50152)
@@ -338,6 +338,31 @@
 	Quit Naam_"||"_Toenaam_"||"_Aanspreking
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn">
+<FormalSpec>PaymTermId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Betalingwijze As DOM.VKP.enu.Betalingwijze = ""
+	#dim BetalingTermijn As %String = ""
+	#dim AantalDagen As %Integer
+	
+	If ((PaymTermId = "VOORUIT") || (PaymTermId = "DUBVOORUIT")) {
+		Set Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()
+	} ElseIf (PaymTermId = "REMBOURS") {
+		Set Betalingwijze = ##class(DOM.VKP.enu.Betalingwijze).Rembours()
+	} ElseIf (##class(TECH.StringUtils).Contains(PaymTermId,"NET")) {
+		Set AantalDagen = $Extract(PaymTermId,*-1,*)
+		If (AantalDagen > 0) {
+			Set BetalingTermijn = +AantalDagen_"D"
+		}
+	} ElseIf (##class(TECH.StringUtils).Contains(PaymTermId,"EOM")) {
+		Set BetalingTermijn = (+($Extract(PaymTermId,*-1,*)))_"DEM"
+	} 
+	
+	Quit Betalingwijze_"||"_BetalingTermijn
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/AxToAdminUtils/ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/AxToAdminUtils/ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/AxToAdminUtils/ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn/Test.cls.xml	(revision 50152)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.AxToAdminUtils.ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: PaymTermId is VOORUIT">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "VOORUIT"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()_"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is DUBVOORUIT">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "DUBVOORUIT"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling()_"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is REMBOURS">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "REMBOURS"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,##class(DOM.VKP.enu.Betalingwijze).Rembours()_"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is CASH">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "CASH"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is leeg">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = ""
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is NET00">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "NET00"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is NET03">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "NET03"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||3D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is NET60">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "NET60"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||60D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is EOM00">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "EOM00"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||0DEM")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymTermId is EOM60">
+<Implementation><![CDATA[
+	#dim PaymTermId As %String = "EOM60"
+	#dim Result As %String = ##class(AXimpl.AxToAdminUtils).%New().ConvertPaymTermIdToBetalingwijzeEnBetalingTermijn(PaymTermId)
+	Do $$$AssertEquals(Result,"||60DEM")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r49679 -r50152
--- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 49679)
+++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 50152)
@@ -473,6 +473,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetBetalingTermijn">
+<FormalSpec>BetalingTermijn:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBetalingTermijn",BetalingTermijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetBetalingwijze">
+<FormalSpec>Betalingwijze:DOM.VKP.enu.Betalingwijze</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBetalingwijze",Betalingwijze)
+]]></Implementation>
+</Method>
+
 <Method name="ZetBusinessType">
 <FormalSpec>BusinessType:DOM.VKP.enu.BusinessType</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetBusinessType",BusinessType)
@@ -581,6 +593,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetRembours">
+<FormalSpec>Rembours:%Boolean</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetRembours",Rembours)
+]]></Implementation>
+</Method>
+
 <Method name="ZetURL">
 <FormalSpec>URL:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetURL",URL)