Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35152 -r35181
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35152)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35181)
@@ -33,6 +33,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BtwUitsplitsing">
+<Type>TECH.MultiDim</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
 <Private>1</Private>
@@ -58,6 +64,8 @@
 <Implementation><![CDATA[
 	#dim Factuur As DOM.VKP.Factuur = ..OrderAPI.GeefFactuur(FactuurId)
 	
+	do ..GenereerBtwUitsplisting(Factuur)
+	
 	set LedgerGeneralJournal = ##class(AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal).%New()
 	do LedgerGeneralJournal.LedgerJournalTable.Insert(..GetJournalTable(Factuur))
 	quit LedgerGeneralJournal
@@ -75,33 +83,37 @@
 	
 	do Table.LedgerJournalTrans.Insert(..GetCustTransaction(Factuur))
 	
-	#dim BoekingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Factuur.GeefBoekhoudBoekingen())
-	while BoekingIterator.HasNext() {
-		#dim Boeking As DOM.VKP.Factuur.dto.BoekhoudBoeking = BoekingIterator.Next()
-		do Table.LedgerJournalTrans.Insert(..GetLedgerTransaction(Factuur,Boeking,BoekingIterator.Key()))
+	#dim BoekhoudRekening As %String = ""
+	#dim BoekingIndex As Integer = 1
+	for { set BoekhoudRekening = $order(..BtwUitsplitsing(BoekhoudRekening)) quit:BoekhoudRekening=""
+		do Table.LedgerJournalTrans.Insert(..GetLedgerTransaction(Factuur,BoekhoudRekening,BoekingIndex))
+		set BoekingIndex = BoekingIndex + 1
 	}
 	quit Table
 ]]></Implementation>
 </Method>
 
 <Method name="GetLedgerTransaction">
-<FormalSpec>Factuur:DOM.VKP.Factuur,Boeking:DOM.VKP.Factuur.dto.BoekhoudBoeking,BoekingIndex:%Integer</FormalSpec>
+<FormalSpec>Factuur:DOM.VKP.Factuur,BoekhoudkundigeRekening:%String,BoekingIndex:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
 <Implementation><![CDATA[
 	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,BoekingIndex+1)
 	set Transaction.AccountType = "Ledger"
 	
+	#dim BoekingBedrag As %String = $get(..BtwUitsplitsing(BoekhoudkundigeRekening,0,"TotaalNettoExclBtw")) + $get(..BtwUitsplitsing(BoekhoudkundigeRekening,1,"TotaalNettoExclBtw"))
+	
 	#dim TotaalGoederenInclusiefPort As %Numeric = Factuur.GeefTotaalGoederen() + Factuur.GeefTotaalPort()
-	set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / TotaalGoederenInclusiefPort * Boeking.Bedrag ,2)
-	set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / TotaalGoederenInclusiefPort * Boeking.Bedrag ) ,2)
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.Bedrag+Transaction.ADUCorrectedTaxAmount,2)	
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Boeking.Bedrag+Transaction.ADUCorrectedTaxAmount,2)	
+	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
 
-	#dim BoekhoudRekeningId As %String = ..GrootboekrekeningBepaler.BepaalGrootboekrekening(Factuur.GeefKlantID(),Boeking.BoekhoudRekeningId)
-	set Transaction.LedgerDimension.GetAt(1).Account = BoekhoudRekeningId
-	set Transaction.LedgerDimension.GetAt(1).DisplayValue = BoekhoudRekeningId
+	set Transaction.LedgerDimension.GetAt(1).Account = BoekhoudkundigeRekening
+	set Transaction.LedgerDimension.GetAt(1).DisplayValue = BoekhoudkundigeRekening
 	
 	quit Transaction
 ]]></Implementation>
@@ -185,6 +197,33 @@
 	quit ..Formatter.FormatCashDiscount(Klant.GeefKortingContantPercentage(),Klant.GeefKortingContantTermijn())
 ]]></Implementation>
 </Method>
+
+<Method name="GenereerBtwUitsplisting">
+<FormalSpec>Factuur:DOM.VKP.Factuur</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim md As TECH.MultiDim
+	#dim BonlijnIterator As TECH.Iterator = Factuur.GeefBonLijnIterator()
+	while BonlijnIterator.HasNext() {
+		#dim Bonlijn As DOM.VKP.PrijsOrderlijnMetBoekhoudInfo = BonlijnIterator.Next()
+		continue:##class(TECH.StringUtils).Equals(Bonlijn.GeefType(),##class(DOM.VKP.enu.BonLijnType).Tekst(),##class(DOM.VKP.enu.BonLijnType).OrderVerwijzing())
+		#dim BtwPercentage As %String = Bonlijn.GeefBTWPercentage()
+		#dim BoekhoudkundigeRekening As %String = ..GrootboekrekeningBepaler.BepaalGrootboekrekening(Factuur.GeefKlantID(),$$$Trim(Bonlijn.GeefBoekhoudkundigeRekening()))
+		set md(BoekhoudkundigeRekening,BtwPercentage,"TotaalNettoExclBtw") = $get(md(BoekhoudkundigeRekening,BtwPercentage,"TotaalNettoExclBtw")) + ##class(TECH.Math).Round(Bonlijn.GeefTotaalNettoExclBTW(),2)
+		set md(BoekhoudkundigeRekening,BtwPercentage,"Btw") = $get(md(BoekhoudkundigeRekening,BtwPercentage,"Btw")) + ##class(TECH.Math).Round(Bonlijn.GeefTotaalNettoInclBTW()-Bonlijn.GeefTotaalNettoExclBTW(),2)
+	}
+	
+	kill ..BtwUitsplitsing
+	set BoekhoudkundigeRekening = ""
+	for { set BoekhoudkundigeRekening = $order(md(BoekhoudkundigeRekening)) quit:BoekhoudkundigeRekening=""
+		set BtwPercentage = ""
+		for { set BtwPercentage = $order(md(BoekhoudkundigeRekening,BtwPercentage)) quit:BtwPercentage=""
+			set ..BtwUitsplitsing(BoekhoudkundigeRekening,BtwPercentage>0,"TotaalNettoExclBtw") = $get(..BtwUitsplitsing(BoekhoudkundigeRekening,BtwPercentage>0,"TotaalNettoExclBtw")) + md(BoekhoudkundigeRekening,BtwPercentage,"TotaalNettoExclBtw")
+			set ..BtwUitsplitsing(BoekhoudkundigeRekening,BtwPercentage>0,"Btw") = $get(..BtwUitsplitsing(BoekhoudkundigeRekening,BtwPercentage>0,"Btw")) + md(BoekhoudkundigeRekening,BtwPercentage,"Btw")
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/BonLijn.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/BonLijn.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/BonLijn.cls.xml	(revision 35181)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.BonLijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ManueleLijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BoekhoudkundigeRekening:%String,BedragExclBtw:%String,BtwPercentage:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	set ManueleLijn = ##class(vhTest.Mock.DOM.VKP.PrijsOrderlijnMetBoekhoudInfo).%New()
+	do ManueleLijn.IndienMethodCall("GeefType").DanReturn(##class(DOM.VKP.enu.BonLijnType).Manueel())
+	do ManueleLijn.IndienMethodCall("GeefBoekhoudkundigeRekening").DanReturn(BoekhoudkundigeRekening)
+	do ManueleLijn.IndienMethodCall("GeefBTWPercentage").DanReturn(BtwPercentage)
+	do ManueleLijn.IndienMethodCall("GeefBTWCode").DanReturn(..BtwCode(BtwPercentage))
+	do ManueleLijn.IndienMethodCall("GeefTotaalNettoExclBTW").DanReturn(BedragExclBtw)
+	do ManueleLijn.IndienMethodCall("GeefTotaalNettoInclBTW").DanReturn(##class(TECH.Math).Round(BedragExclBtw*BtwPercentage,2))
+	quit ManueleLijn
+]]></Implementation>
+</Method>
+
+<Method name="BtwCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BtwPercentage:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit:BtwPercentage=21 8
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/PrijsOrderlijnMetBoekhoudInfo.cls.xml
===================================================================
diff -u -r29059 -r35181
--- vhTest/Mock/DOM/VKP/PrijsOrderlijnMetBoekhoudInfo.cls.xml	(.../PrijsOrderlijnMetBoekhoudInfo.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/PrijsOrderlijnMetBoekhoudInfo.cls.xml	(.../PrijsOrderlijnMetBoekhoudInfo.cls.xml)	(revision 35181)
@@ -3,7 +3,8 @@
 <Class name="vhTest.Mock.DOM.VKP.PrijsOrderlijnMetBoekhoudInfo">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.VKP.PrijsOrderlijnMetBoekhoudInfo,vhTest.Mock.DOM.VKP.PrijsOrderlijn</Super>
 <Inheritance>right</Inheritance>
Index: DOM/VKP/impl/DataM/DataMPrijsOrderlijn.cls.xml
===================================================================
diff -u -r29059 -r35181
--- DOM/VKP/impl/DataM/DataMPrijsOrderlijn.cls.xml	(.../DataMPrijsOrderlijn.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/DataM/DataMPrijsOrderlijn.cls.xml	(.../DataMPrijsOrderlijn.cls.xml)	(revision 35181)
@@ -4,7 +4,6 @@
 <Super>DOM.VKP.impl.DataM.DataMOrderlijn,DOM.VKP.PrijsOrderlijn</Super>
 
 <Method name="GeefBTWPercentage">
-<Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit ($Piece($Piece(^KBA(18,..GeefBTWCode()),"\",1),"%",1)/100)
 ]]></Implementation>
Index: vhTest/Utils/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r35145 -r35181
--- vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35145)
+++ vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35181)
@@ -30,6 +30,11 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(100,700000))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	set Bonlijnen = ##class(%ListOfObjects).%New()
+	do Bonlijnen.Insert(##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700000,100,21))
+	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(##class(TECH.ListIterator).%New(Bonlijnen))
+	
 	quit VerkoopFactuur
 ]]></Implementation>
 </Method>
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u -r35145 -r35181
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 35145)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 35181)
@@ -18,9 +18,15 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(282.88,703000))
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(4418.58,703100))
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(11.80,746000))
-	
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(
+		##class(TECH.ListUtils).CreateIteratorOfObjects(
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(703000,282.88,21),
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(703100,4418.58,21),
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(746000,11.80,21)
+	))
+	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),4) {
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r35152 -r35181
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35152)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35181)
@@ -3,6 +3,10 @@
 <Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Test">
 <Super>vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Base</Super>
 
+<Property name="DummyToTriggerTestRunner">
+<Type>AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter</Type>
+</Property>
+
 <Method name="Test: Algemeen gedrag">
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
@@ -22,6 +26,11 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(100,700000))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(
+		##class(TECH.ListUtils).CreateIteratorOfObjects(
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700000,100,21),
+	))
+	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
@@ -40,6 +49,12 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(50,700100))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(
+		##class(TECH.ListUtils).CreateIteratorOfObjects(
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700000,50,21),
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700100,50,21)
+	))
+	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),3) {
@@ -96,6 +111,11 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(100,703006))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(
+		##class(TECH.ListUtils).CreateIteratorOfObjects(
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(703006,100,21)
+	))
+	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u -r35152 -r35181
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35152)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35181)
@@ -22,6 +22,12 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(40,700100))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
+	do VerkoopFactuur.IndienMethodCall("GeefBonLijnIterator").DanReturn(
+		##class(TECH.ListUtils).CreateIteratorOfObjects(
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700000,60,21),
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(700100,40,21)
+	))
+	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = ..GetJournalTable(VerkoopFactuur)
 	
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"12.60")