Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u -r35217 -r35229
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35217)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35229)
@@ -92,6 +92,22 @@
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"10.97")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Steekproef 597742">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(597742)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
+
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurCredit,"924.82")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,"15.34")
+		
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"703110")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"157.84")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscAmount,"-15.34")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurDebit,"-924.82")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35217 -r35229
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35217)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35229)
@@ -111,10 +111,8 @@
 	set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / ..TotaalGoederenInclusiefPort * BoekingBedrag ,2)
 	set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / ..TotaalGoederenInclusiefPort * BoekingBedrag ) ,2)
 	
-	#dim Totaal As %String = ..Formatter.FormatNumber(BoekingBedrag+Transaction.ADUCorrectedTaxAmount,2)
-	
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = Totaal	
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = Totaal
+	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(BoekingBedrag + Transaction.ADUCorrectedTaxAmount ,2)	
+	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(BoekingBedrag - Transaction.ADUCorrectedTaxAmount ,2)
 
 	set Transaction.LedgerDimension.GetAt(1).Account = BoekhoudkundigeRekening
 	set Transaction.LedgerDimension.GetAt(1).DisplayValue = BoekhoudkundigeRekening