Index: AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34945 -r35105
--- AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34945)
+++ AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35105)
@@ -71,11 +71,11 @@
 	Set AxUnpaidInvoice.OffsetAccountType = "0"
 	Set AxUnpaidInvoice.OffsetLedgerDimension = "499020"
 	If OpenstaandeAankoopFactuur.GeefCode() = "F" {
-		Set AxUnpaidInvoice.AmountCurDebit =  OpenstaandeAankoopFactuur.GeefNogTeBetalenInEUR()
-		Set AxUnpaidInvoice.AmountCurCredit = "0"
-	} Else {
 		Set AxUnpaidInvoice.AmountCurDebit = "0"
 		Set AxUnpaidInvoice.AmountCurCredit = OpenstaandeAankoopFactuur.GeefNogTeBetalenInEUR()
+	} Else {
+		Set AxUnpaidInvoice.AmountCurDebit = OpenstaandeAankoopFactuur.GeefNogTeBetalenInEUR()
+		Set AxUnpaidInvoice.AmountCurCredit = "0"
 	}
 	Set AxUnpaidInvoice.CurrencyCode = "EUR"
 	Set AxUnpaidInvoice.ExchRate = "1"
Index: AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml
===================================================================
diff -u -r35035 -r35105
--- AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35035)
+++ AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 35105)
@@ -72,11 +72,11 @@
 	Set AxUnpaidInvoice.OffsetLedgerDimension = "499010"
 	
 	If OpenstaandeVerkoopFactuur.GeefCode() = "F" {
-		Set AxUnpaidInvoice.AmountCurDebit = "0"
-		Set AxUnpaidInvoice.AmountCurCredit = OpenstaandeVerkoopFactuur.GeefNogTeBetalenInEUR()
-	} Else {
 		Set AxUnpaidInvoice.AmountCurDebit = OpenstaandeVerkoopFactuur.GeefNogTeBetalenInEUR()
 		Set AxUnpaidInvoice.AmountCurCredit = "0"
+	} Else {
+		Set AxUnpaidInvoice.AmountCurDebit = "0" 
+		Set AxUnpaidInvoice.AmountCurCredit = OpenstaandeVerkoopFactuur.GeefNogTeBetalenInEUR()
 	}
 	Set AxUnpaidInvoice.CurrencyCode = "EUR"
 	Set AxUnpaidInvoice.ExchRate = "1"
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r34945 -r35105
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34945)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeLeverancierFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35105)
@@ -209,22 +209,22 @@
 
 <Method name="Test: Bedrag Credit">
 <Implementation><![CDATA[
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(1234)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..LeverancierID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"0","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"1234","")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Bedrag Debet">
 <Implementation><![CDATA[
-	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(1234)
 	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..LeverancierID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"1234","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
 ]]></Implementation>
 </Method>
 
@@ -338,8 +338,8 @@
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeLeverancierFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..LeverancierID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"564","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"564","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"0","")
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml
===================================================================
diff -u -r35035 -r35105
--- vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35035)
+++ vhUnitTest/AX/Uitgaand/VKP/OpenstaandeKlantFactuur/impl/DixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35105)
@@ -198,21 +198,21 @@
 
 <Method name="Test: Bedrag Credit">
 <Implementation><![CDATA[
-	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(1234)
-	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"1234")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"0")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Bedrag Debet">
 <Implementation><![CDATA[
+	Do ..OpenstaandeFactuur.IndienMethodCall("GeefNogTeBetalenInEUR").DanReturn(1234)
+	
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"1234","")
 ]]></Implementation>
 </Method>
 
@@ -356,8 +356,8 @@
 	Set Converter = ##class(AX.Uitgaand.VKP.OpenstaandeKlantFactuur.impl.DixfConverter).%New()
 	Set ..AxUnpaidInvoice = Converter.Convert(..KlantID, ..OpenstaandeFactuur)
 	
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"564","")
-	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"0","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurDebit,"0","")
+	Do $$$AssertEquals(..AxUnpaidInvoice.AmountCurCredit,"564","")
 ]]></Implementation>
 </Method>
 </Class>