Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34845 -r34846
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34845)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34846)
@@ -22,7 +22,7 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Partij:DOM.PARTIJ.Partij,Factuur:DOM.BKH.impl.DataM.DataMFactuur</FormalSpec>
+<FormalSpec>Partij:DOM.PARTIJ.Partij,Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
 <ReturnType>AXdixf.UnpaidInvoice.UnpaidInvoice</ReturnType>
 <Implementation><![CDATA[
 	Set AxUnpaidInvoice = ##class(AXdixf.UnpaidInvoice.UnpaidInvoice).%New()
@@ -39,7 +39,7 @@
 	Set AxUnpaidInvoice.OffsetAccountType = "0"
 	Set AxUnpaidInvoice.OffsetLedgerDimension = "499020"
 	Set AxUnpaidInvoice.AmountCurDebit = "0"
-	Set AxUnpaidInvoice.AmountCurCredit  ="125000"
+	Set AxUnpaidInvoice.AmountCurCredit = Factuur.GeefTotaalInclusiefBTW()
 	Set AxUnpaidInvoice.CurrencyCode = "EUR"
 	Set AxUnpaidInvoice.ExchRate = "1"
 	Set AxUnpaidInvoice.Invoice = Factuur.GeefID()
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34845 -r34846
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34845)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34846)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="Factuur">
-<Type>vhTest.Mock.DOM.VKP.Factuur</Type>
+<Type>vhTest.Mock.DOM.BKH.VerkoopFactuur</Type>
 <Private>1</Private>
 </Property>
 
@@ -26,8 +26,9 @@
 	Set ..Partij = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
 	Do ..Partij.IndienMethodCall("GeefID").DanReturn("K||1234")
 	
-	Set ..Factuur = ##class(vhTest.Mock.DOM.VKP.Factuur).%New()
+	Set ..Factuur = ##class(vhTest.Mock.DOM.BKH.VerkoopFactuur).%New()
 	Do ..Factuur.IndienMethodCall("GeefID").DanReturn("1000")
+	Do ..Factuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(0)
 ]]></Implementation>
 </Method>
 
@@ -153,6 +154,26 @@
 	Do $$$AssertEquals(..AxUnpaidInvoice.Company,"test","")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Bedrag Credit">
+<Implementation><![CDATA[
+	Do ..Factuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(1234)
+	
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"1234","")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bedrag Debet">
+<Implementation><![CDATA[
+	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
+	Set ..AxUnpaidInvoice = Converter.Convert(..Partij, ..Factuur)
+	
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
+]]></Implementation>
+</Method>
 </Class>