Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34854 -r34864
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34854)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34864)
@@ -8,15 +8,33 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..FirmaBepaler = $$$Inject(FirmaBepaler, ##class(AX.common.impl.FirmaBepaler).%New())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	
+	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,6 +43,8 @@
 <FormalSpec>Partij:DOM.PARTIJ.Partij,Factuur:DOM.BKH.VerkoopFactuur,LineNum:%String=0</FormalSpec>
 <ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
 <Implementation><![CDATA[
+	Set ..Klant = ..VerkoopAPI.GeefKlant(Partij.GeefID())
+	
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
 	Set AxUnpaidInvoice.JournalNum = "GL01000001"
 	Set AxUnpaidInvoice.JournalName = "OP"
@@ -49,7 +69,7 @@
 	Set AxUnpaidInvoice.CashDiscAmount = -1 * Factuur.GeefBedragKortingContant()
 	Set AxUnpaidInvoice.DocumentNum = Factuur.GeefID()
 	Set AxUnpaidInvoice.DocumentDate = Factuur.GeefDatum()
-	Set AxUnpaidInvoice.PaymMode = "SEPA"
+	Set AxUnpaidInvoice.PaymMode = ..Formatter.ConvertPaymMode(..Klant.GeefBetalingwijze())
 	
 	Quit AxUnpaidInvoice
 ]]></Implementation>
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34854 -r34864
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34854)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34864)
@@ -241,6 +241,34 @@
 	Do $$$AssertEquals(..AxUnpaidInvoice.DocumentDate,"01/05/2016","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: PaymMode SEPA">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Utils.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Incasso())
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,VerkoopAPI)
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.PaymMode,"SEPA-DD","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: PaymMode Overschrijving">
+<Implementation><![CDATA[
+	#dim Klant As vhTest.Utils.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(Klant)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New(,)
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.PaymMode,"OVER","")
+]]></Implementation>
+</Method>
 </Class>