Index: AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml
===================================================================
diff -u -r35581 -r35602
--- AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml	(.../SalesInvoiceConverter.cls.xml)	(revision 35581)
+++ AXimpl/AifMessage/Converter/SalesInvoiceConverter.cls.xml	(.../SalesInvoiceConverter.cls.xml)	(revision 35602)
@@ -106,6 +106,9 @@
 		do Table.LedgerJournalTrans.Insert(..GetLedgerTransaction(Factuur,BoekhoudRekening,BoekingIndex))
 		set BoekingIndex = BoekingIndex + 1
 	}
+	
+	Do ..CorrigeerAfrondingsVerschil(Table)
+	
 	quit Table
 ]]></Implementation>
 </Method>
@@ -122,7 +125,7 @@
 	
 	set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / ..TotaalGoederenInclusiefPort * BoekingBedrag ,2)
 	set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / ..TotaalGoederenInclusiefPort * BoekingBedrag ) ,2)
-	
+		
 	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(-1 * (BoekingBedrag - Transaction.ADUCorrectedTaxAmount) ,2)
 
@@ -244,6 +247,36 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CorrigeerAfrondingsVerschil">
+<FormalSpec><![CDATA[&Table:AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim SomLedgerMVH as %Decimal = 0
+	#dim TotaalLedgerJournalTrans as %Decimal = 0
+	#dim LedgerJournalTableIterator as TECH.Iterator
+	
+	Set LedgerJournalTableIterator = ##class(TECH.ListIterator).%New(Table.LedgerJournalTrans)
+	While LedgerJournalTableIterator.HasNext() {
+		#dim LedgerJournalTrans As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = LedgerJournalTableIterator.Next()
+		
+		If LedgerJournalTrans.AccountType = "Cust" {
+			Set TotaalLedgerJournalTrans = LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit
+		}
+		If LedgerJournalTrans.AccountType = "Ledger" {
+			Set SomLedgerMVH = SomLedgerMVH + LedgerJournalTrans.AmountCurCredit + LedgerJournalTrans.AmountCurDebit
+		}
+	}
+	
+	If SomLedgerMVH '= TotaalLedgerJournalTrans {
+		If LedgerJournalTrans.AmountCurCredit '= "" {
+			Set LedgerJournalTrans.AmountCurCredit = LedgerJournalTrans.AmountCurCredit - (SomLedgerMVH - TotaalLedgerJournalTrans)
+		}
+		If LedgerJournalTrans.AmountCurDebit '= "" {
+			Set LedgerJournalTrans.AmountCurDebit = LedgerJournalTrans.AmountCurDebit - (SomLedgerMVH - TotaalLedgerJournalTrans)
+		}		
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/AifMessage/Converter/SalesInvoiceConverter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/AifMessage/Converter/SalesInvoiceConverter/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/AifMessage/Converter/SalesInvoiceConverter/Test.cls.xml	(revision 35602)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.AifMessage.Converter.SalesInvoiceConverter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Table">
+<Type>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Table = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="Test: normaal geval">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",100,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,100)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil 1 cent, 1 LedgerTransaction">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",99.99,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,100)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschil 1 cent, 2 LedgerTransactions">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,100)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,50)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groter verschil, 2 LedgerTransactions, ook negatief bedrag">
+<Implementation><![CDATA[
+	Do ..VoegLedgerJournalTransToe("Cust",0,87)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",-13,0)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,49.99)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(4).AmountCurDebit,-12.99)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Groter verschil, 2 LedgerTransactions, ook negatief bedrag, combinatie van debet en credit">
+<Implementation><![CDATA[
+	
+	Do ..VoegLedgerJournalTransToe("Cust",0,87)
+	Do ..VoegLedgerJournalTransToe("Ledger",50,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",49.99,0)
+	Do ..VoegLedgerJournalTransToe("Ledger",0,-13)
+	
+	Set SalesInvoiceConverter = ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
+	Do SalesInvoiceConverter.CorrigeerAfrondingsVerschil(..Table)
+	
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(2).AmountCurDebit,50)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(3).AmountCurDebit,49.99)
+	Do $$$AssertEquals(..Table.LedgerJournalTrans.GetAt(4).AmountCurCredit,-12.99)
+]]></Implementation>
+</Method>
+
+<Method name="VoegLedgerJournalTransToe">
+<FormalSpec>AccountType:%String,AmountCurDebit:%Decimal,AmountCurCredit:%Decimal</FormalSpec>
+<Implementation><![CDATA[
+	Set LedgerJournalTrans = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans).%New()
+	Set LedgerJournalTrans.AccountType = AccountType
+	Set LedgerJournalTrans.AmountCurDebit = AmountCurDebit
+	Set LedgerJournalTrans.AmountCurCredit = AmountCurCredit
+	Do ..Table.LedgerJournalTrans.Insert(LedgerJournalTrans)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>