Index: vhTest/Mock/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34786 -r35187
--- vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34786)
+++ vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35187)
@@ -143,6 +143,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPortBTWPercentage">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPortBTWPercentage")
+]]></Implementation>
+</Method>
+
 <Method name="GeefPrijsAffichering">
 <ReturnType>DOM.VKP.enu.PrijsAffichering</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPrijsAffichering")
@@ -185,12 +191,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTotaalPort">
+<Method name="GeefTotaalPortBTWBedrag">
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalPort")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalPortBTWBedrag")
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTotaalPortExclBTW">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalPortExclBTW")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTotaalTeBetalen">
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalTeBetalen")
Index: vhTest/Utils/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r35181 -r35187
--- vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35181)
+++ vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35187)
@@ -15,7 +15,8 @@
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalTeBetalen").DanReturn(121)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalBelastbaar").DanReturn(100)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalGoederen").DanReturn(100)
-	do VerkoopFactuur.IndienMethodCall("GeefTotaalPort").DanReturn(0)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalPortExclBTW").DanReturn(0)
+	do VerkoopFactuur.IndienMethodCall("GeefPortBTWPercentage").DanReturn(21)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalBTW").DanReturn(21)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn(0)
 	do VerkoopFactuur.IndienMethodCall("GeefMuntCode").DanReturn("EUR")
Index: DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34786 -r35187
--- DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34786)
+++ DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35187)
@@ -211,11 +211,21 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefTotaalPort">
+<Method name="GeefTotaalPortExclBTW">
 <Abstract>1</Abstract>
 <ReturnType>%Decimal</ReturnType>
 </Method>
 
+<Method name="GeefPortBTWPercentage">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefTotaalPortBTWBedrag">
+<Abstract>1</Abstract>
+<ReturnType>%Decimal</ReturnType>
+</Method>
+
 <Method name="GeefOorsprong">
 <Abstract>1</Abstract>
 <ReturnType>BL.Flow.Offerte.enu.Oorsprong</ReturnType>
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r35181 -r35187
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35181)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35187)
@@ -3,10 +3,6 @@
 <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,9 +18,6 @@
 <Method name="Test: Een factuur met één boekingslijn bevat twee transacties één voor de klant en een voor de grootberekening">
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
-	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
-	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(
@@ -43,11 +36,6 @@
 <Method name="Test: Een factuur met twee boekingslijnen bevat drie transacties één voor de klant en twee voor de grootberekening">
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
-
-	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
-	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(50,700000))
-	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(
@@ -107,10 +95,6 @@
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
-	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
-	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)
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u -r35181 -r35187
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 35181)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 35187)
@@ -12,19 +12,13 @@
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalBelastbaar").DanReturn(4619.23)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalGoederen").DanReturn(4701.46)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn(94.03)
-	do VerkoopFactuur.IndienMethodCall("GeefTotaalPort").DanReturn(11.80)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalPortExclBTW").DanReturn(11.80)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalPortBTWBedrag").DanReturn(2.48)
 	
-	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
-	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)
+			##class(vhTest.Utils.DOM.VKP.BonLijn).ManueleLijn(703100,4418.58,21)
 	))
 	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
@@ -47,6 +41,7 @@
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).CashDiscAmount,"-88.15")
 		
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).AccountType,"Ledger")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).LedgerDimension.GetAt(1).Account,"746000")
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).CashDiscCode,"08D2%")	
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).ADUCorrectedTaxAmount,"2.43")
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).AmountCurCredit,"14.23")
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u -r35181 -r35187
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35181)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(.../TestBtwUitsplitsing.cls.xml)	(revision 35187)
@@ -7,7 +7,7 @@
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = ..GetJournalTable(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"21.00")
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"121.00")
@@ -17,25 +17,79 @@
 <Method name="Test: Btw wordt verdeeld over de rekeningen">
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
-	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
-	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(60,700000))
-	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)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"700000")
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"12.60")
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"72.60")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).LedgerDimension.GetAt(1).Account,"700100")
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"8.40")
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"48.40")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Steekproef 306742">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(306742)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
+
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurDebit,"204.44")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"703010")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"0.00")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"-51.10")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).LedgerDimension.GetAt(1).Account,"703110")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"0.00")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"255.54")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Steekproef 306789">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(306789)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
+
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurDebit,"1406.50")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"703000")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"179.10")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"1031.99")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).LedgerDimension.GetAt(1).Account,"703100")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"65.00")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"374.51")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Steekproef 591173">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(DOM.VKP.impl.DataM.DataMFactuur).%New(591173)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
+
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurDebit,"70.08")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,"0.98")
+		
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,"703000")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"8.75")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"57.75")
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).LedgerDimension.GetAt(1).Account,"746000")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"1.62")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"10.71")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMFactuur.cls.xml
===================================================================
diff -u -r34780 -r35187
--- DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 34780)
+++ DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 35187)
@@ -280,20 +280,33 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTotaalPort">
+<Method name="GeefTotaalPortExclBTW">
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit $piece($piece(^KFA("F",..FactuurNummer,0,0),"\",16),"#",2)
+<Implementation><![CDATA[	quit +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",2)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPortBTWPercentage">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BtwCode As %String = +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",1)
+	quit $Piece($Piece(^KBA(18,+..GeefBTWCode()),"\",1),"%",1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalPortBTWBedrag">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit +##class(TECH.Math).Round((..GeefTotaalPortExclBTW()*(..GeefBTWPercentage())),2)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekhoudBoekingen">
 <ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
 <Implementation><![CDATA[
 	set BoekingPerRekening = ##class(%ArrayOfDataTypes).%New()
 	
 	#dim Factor As %Integer = $$$If(..GeefFactuurCode()="C",-1,1)
-	
-	
+		
 	#dim Iterator As TECH.Iterator = ..GeefBonLijnIterator()
 	while Iterator.HasNext() {
 		#dim Lijn As DOM.VKP.PrijsOrderlijnMetBoekhoudInfo = Iterator.Next()
@@ -305,7 +318,7 @@
 		do BoekingPerRekening.SetAt(Bedrag+Totaal,Rekening)
 	}
 	
-	#dim Port As %Decimal = +$piece($piece(^KFA("F",..FactuurNummer,0,0),"\",17),"#",2)
+	#dim Port As %Decimal = ..GeefTotaalPortExclBTW()
 	do:Port'=0 BoekingPerRekening.SetAt(Port,746000)
 	
 	set List = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35181 -r35187
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35181)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35187)
@@ -103,7 +103,7 @@
 	
 	#dim BoekingBedrag As %String = $get(..BtwUitsplitsing(BoekhoudkundigeRekening,0,"TotaalNettoExclBtw")) + $get(..BtwUitsplitsing(BoekhoudkundigeRekening,1,"TotaalNettoExclBtw"))
 	
-	#dim TotaalGoederenInclusiefPort As %Numeric = Factuur.GeefTotaalGoederen() + Factuur.GeefTotaalPort()
+	#dim TotaalGoederenInclusiefPort As %Numeric = Factuur.GeefTotaalGoederen() + Factuur.GeefTotaalPortExclBTW()
 	set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / TotaalGoederenInclusiefPort * BoekingBedrag ,2)
 	set Transaction.CashDiscAmount = ..Formatter.FormatNumber( -1 * ( Factuur.GeefTotaalKortingKontant() / TotaalGoederenInclusiefPort * BoekingBedrag ) ,2)
 	
@@ -203,16 +203,26 @@
 <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)
 	}
 	
+	if $$$Not(Factuur.GeefTotaalPortExclBTW()=0) {
+		set BoekhoudkundigeRekening = 746000
+		set BtwPercentage = Factuur.GeefPortBTWPercentage()
+		set md(BoekhoudkundigeRekening,BtwPercentage,"TotaalNettoExclBtw") = $get(md(BoekhoudkundigeRekening,BtwPercentage,"TotaalNettoExclBtw")) + ##class(TECH.Math).Round(Factuur.GeefTotaalPortExclBTW(),2)
+		set md(BoekhoudkundigeRekening,BtwPercentage,"Btw") = $get(md(BoekhoudkundigeRekening,BtwPercentage,"Btw")) + ##class(TECH.Math).Round(Factuur.GeefTotaalPortBTWBedrag(),2)
+	}
+	
 	kill ..BtwUitsplitsing
 	set BoekhoudkundigeRekening = ""
 	for { set BoekhoudkundigeRekening = $order(md(BoekhoudkundigeRekening)) quit:BoekhoudkundigeRekening=""