Index: vhTest/Mock/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34617 -r34780
--- vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34617)
+++ vhTest/Mock/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34780)
@@ -185,6 +185,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTotaalPort">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalPort")
+]]></Implementation>
+</Method>
+
 <Method name="GeefTotaalTeBetalen">
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalTeBetalen")
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u -r34713 -r34780
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 34713)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 34780)
@@ -8,7 +8,11 @@
 	#dim VerkoopFactuur As vhTest.Utils.DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalTeBetalen").DanReturn(5683.3)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalBTW").DanReturn(970.04)
+	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)
 	
 	set Boekingen = ##class(DOM.VKP.Factuur.dto.BoekhoudBoekingList).%New()
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(282.88,703000))
@@ -33,17 +37,28 @@
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),4) {
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")
-		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,"94.03")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscAmount,94.03)
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).CashDiscCode,"08D2%")
 		
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscCode,"08D2%")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"58.22")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"341.10")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscAmount,"-5.64")
 		
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AccountType,"Ledger")
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).CashDiscCode,"08D2%")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"909.39")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"5,327.97")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).CashDiscAmount,"-88.15")
 		
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).AccountType,"Ledger")
 		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")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).CashDiscAmount,"-0.24")
+		
+
 	}
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml
===================================================================
diff -u -r34776 -r34780
--- AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34776)
+++ AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34780)
@@ -17,6 +17,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -26,6 +31,7 @@
 	set ..ClassMethodExecuter = ##class(TECH.Executer.impl.ClassMethod).%New()
 	set ..ClassName = "AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions"_##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_BKH_OpenstaandeVerkoopFactuur_Transaction_Storage")
 	set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	set ..FirmaBepaler = ##class(AX.common.impl.FirmaBepaler).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,7 +56,8 @@
 	set List = ##class(%ListOfObjects).%New()
 	
 	#dim SqlTableName As %String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..ClassName)
-	set Query = ##class(TECH.DynamicQuery).%New("SELECT RecId FROM "_SqlTableName_" WHERE TransactionId = ?",$listbuild(Id))
+	
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT RecId FROM "_SqlTableName_" WHERE TransactionId = ? AND %SQLUpper(DataAreaID) = %SQLUpper(?)",$listbuild(Id,..FirmaBepaler.GeefInitialen()))
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
 	while ResultSet.Next() {
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r34774 -r34780
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34774)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34780)
@@ -85,12 +85,19 @@
 <Implementation><![CDATA[
 	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,BoekingIndex+1)
 	set Transaction.AccountType = "Ledger"
+	
+	if Factuur.GeefTotaalKortingKontant()>0 {
+		#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:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.Bedrag,2)
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Boeking.Bedrag,2)
-
 	set Transaction.LedgerDimension.Account = Boeking.BoekhoudRekeningId
 	set Transaction.LedgerDimension.DisplayValue = Boeking.BoekhoudRekeningId_"-"
+	
 	quit Transaction
 ]]></Implementation>
 </Method>
@@ -112,7 +119,7 @@
 	set Transaction.TaxItemGroup = "G3"
 	
 	set Transaction.CashDiscAmount = ..Formatter.FormatNumber(Factuur.GeefTotaalKortingKontant(),2)
-
+			
 	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Factuur()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalTeBetalen(),2)
 	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Factuur.GeefTotaalTeBetalen(),2)
 		
Index: DOM/VKP/impl/DataM/DataMFactuur.cls.xml
===================================================================
diff -u -r34643 -r34780
--- DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 34643)
+++ DOM/VKP/impl/DataM/DataMFactuur.cls.xml	(.../DataMFactuur.cls.xml)	(revision 34780)
@@ -280,6 +280,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTotaalPort">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit $piece($piece(^KFA("F",..FactuurNummer,0,0),"\",16),"#",2)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekhoudBoekingen">
 <ReturnType>DOM.VKP.Factuur.dto.BoekhoudBoekingList</ReturnType>
 <Implementation><![CDATA[
Index: DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34617 -r34780
--- DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34617)
+++ DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34780)
@@ -206,6 +206,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefTotaalPort">
+<Abstract>1</Abstract>
+<ReturnType>%Decimal</ReturnType>
+</Method>
+
 <Method name="GeefOorsprong">
 <Abstract>1</Abstract>
 <ReturnType>BL.Flow.Offerte.enu.Oorsprong</ReturnType>