Index: vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(revision 34009)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter.TestFactuurKortingContant">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Een factuur met kortingcontant">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As vhTest.Mock.DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalInclusiefBTW").DanReturn(5683.3)
+	do VerkoopFactuur.IndienMethodCall("GeefBedragKortingContant").DanReturn(94.03)
+	
+	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(282.88,703000))
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(4418.58,703100))
+	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(11.80,746000))
+	
+	do VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
+	#dim VerkoopApiStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	do KlantStub.IndienMethodCall("GeefKortingContantPercentage").DanReturn("2")
+	do KlantStub.IndienMethodCall("GeefKortingContantTermijn").DanReturn("8D")
+	do VerkoopApiStub.IndienMethodCall("GeefKlant","K||1234").DanReturn(KlantStub)
+	
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New(,VerkoopApiStub)
+	
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	
+	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).CashDiscCode,"08D2%")
+		
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).CashDiscCode,"08D2%")
+		
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AccountType,"Ledger")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).CashDiscCode,"08D2%")
+		
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).AccountType,"Ledger")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(4).CashDiscCode,"08D2%")	
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml
===================================================================
diff -u -r29059 -r34009
--- DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml	(.../DataMVerkoopFactuur.cls.xml)	(revision 29059)
+++ DOM/BKH/impl/DataM/DataMVerkoopFactuur.cls.xml	(.../DataMVerkoopFactuur.cls.xml)	(revision 34009)
@@ -16,31 +16,27 @@
 <Default>KKL</Default>
 </Parameter>
 
-<Method name="GeefPartijIndex">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..GeefKlant().GeefKlantIndexKKL()
-]]></Implementation>
-</Method>
-
 <Method name="GeefKlantNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	quit $piece(..Data,"\",4)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBedragKortingContant">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit $piece(..Data,"\",10)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit $piece(..Data,"\",5)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKlant">
-<Private>1</Private>
-<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
-<Implementation><![CDATA[
-	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..GeefKlantNr())
-	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
+<Method name="GeefKlantID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(..GeefKlantNr())
 ]]></Implementation>
 </Method>
 
@@ -60,6 +56,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlant">
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(..GeefKlantID())
+]]></Implementation>
+</Method>
+
+<Method name="GeefPartijIndex">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..GeefKlant().GeefKlantIndexKKL()
+]]></Implementation>
+</Method>
+
 <Method name="GeefFoutMelding">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
Index: DOM/BKH/VerkoopFactuur.cls.xml
===================================================================
diff -u -r33961 -r34009
--- DOM/BKH/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 33961)
+++ DOM/BKH/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 34009)
@@ -41,6 +41,11 @@
 <ReturnType>%Integer</ReturnType>
 </Method>
 
+<Method name="GeefKlantID">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefKlantNaam">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
@@ -61,11 +66,16 @@
 <ReturnType>%Date</ReturnType>
 </Method>
 
-<Method name="GeefTotaalBedrag">
+<Method name="GeefBedragKortingContant">
 <Abstract>1</Abstract>
 <ReturnType>%Decimal</ReturnType>
 </Method>
 
+<Method name="GeefTotaalInclusiefBTW">
+<Abstract>1</Abstract>
+<ReturnType>%Decimal</ReturnType>
+</Method>
+
 <Method name="GeefMunt">
 <Abstract>1</Abstract>
 <ReturnType>DOM.enu.Munt</ReturnType>
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33963 -r34009
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33963)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34009)
@@ -29,7 +29,7 @@
 	set Custable.class = "entity"
 	set Custable.AccountNum = ..Formatter.FormatCustNumber(Partij.GeefCode())
 	set Custable.Blocked = $$$If(Klant.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"","Invoice")
-	set Custable.CashDisc = ..FormatCashDisc(Klant)
+	set Custable.CashDisc = ..Formatter.FormatCashDiscount(Klant.GeefKortingContantPercentage(),Klant.GeefKortingContantTermijn())
 	set Custable.Currency = "EUR"
 	set Custable.CustClassificationId = "R"_##class(TECH.StringUtils).AlignRight(Klant.GeefRegio(),0,2)
 	set Custable.CustGroup = ..ConvertCustGroup(Partij,Klant)
@@ -161,18 +161,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="FormatCashDisc">
-<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	quit:Klant.GeefKortingContantPercentage()=0 ""
-	
-	#dim ContantTermijn As %String = Klant.GeefKortingContantTermijn()
-	if ##class(TECH.StringUtils).Equals(ContantTermijn,"0D","") set ContantTermijn = "8D"
-	quit ( ##class(TECH.StringUtils).AlignRight(ContantTermijn,0,3) ) _ Klant.GeefKortingContantPercentage() _"%"
-]]></Implementation>
-</Method>
-
 <Method name="FormatEnterpriseNumber">
 <FormalSpec>BTWNr:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r33963 -r34009
--- vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 33963)
+++ vhUnitTest/AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 34009)
@@ -3,32 +3,12 @@
 <Class name="vhUnitTest.AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="VerkoopFactuur">
-<Type>vhTest.Mock.DOM.BKH.VerkoopFactuur</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestname:%String</FormalSpec>
+<Method name="Test: Algemeen gedrag">
 <Implementation><![CDATA[
-	set ..VerkoopFactuur = ##class(vhTest.Mock.DOM.BKH.VerkoopFactuur).%New()
-	do ..VerkoopFactuur.IndienMethodCall("GeefID").DanReturn(123456)
-	do ..VerkoopFactuur.IndienMethodCall("GeefTotaalBedrag").DanReturn(121)
-	do ..VerkoopFactuur.IndienMethodCall("GeefMunt").DanReturn("EUR")
-	do ..VerkoopFactuur.IndienMethodCall("GeefKlantNr").DanReturn("1234")
-	do ..VerkoopFactuur.IndienMethodCall("GeefDatum").DanReturn($$$DummyDate)
-	do ..VerkoopFactuur.IndienMethodCall("GeefKlantNaam").DanReturn("DE KLANTNAAM")
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
 	
-	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
-	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(100,700000))
-	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
-]]></Implementation>
-</Method>
-
-<Method name="Test">
-<Implementation><![CDATA[
 	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur) 
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur) 
 	
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	do ..AssertJournalTableBasisInfo(JournalTable)
@@ -43,8 +23,10 @@
 	do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")
 	do FirmaBepaler.IndienMethodCall("GeefNaam").DanReturn("Halux")
 	
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	
 	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New(FirmaBepaler)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
 
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	do $$$AssertEquals(JournalTable.JournalName,"HX-VF")
@@ -54,12 +36,13 @@
 
 <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.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
 	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
 	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(100,700000))
-	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	do VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
 	
 	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
@@ -69,15 +52,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Een creditnota geeft een omgekeerde werking">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardCreditnota()
+	
+	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	
+	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AmountCurCredit,"121.00")
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
+		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurDebit,"100.00")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: Een factuur met twee boekingslijnen bevat drie transacties één voor de klant en twee voor de grootberekening">
 <Implementation><![CDATA[
 	set Boekingen = ##class(DOM.BKH.FactuurBoekingList).%New()
 	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700000))
 	do Boekingen.Insert(##class(vhTest.Fake.DOM.BKH.FactuurBoeking).%New(50,700100))
-	do ..VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
 	
+	#dim VerkoopFactuur As DOM.BKH.VerkoopFactuur = ##class(vhTest.Utils.DOM.BKH.VerkoopFactuur).StandaardFactuur()
+	do VerkoopFactuur.IndienMethodCall("GeefBoekingen").DanReturn(Boekingen)
+	
 	set Converter = ##class(AX.Uitgaand.BKH.VerkoopFactuur.impl.AifConverter).%New()
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(..VerkoopFactuur)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur)
 	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),3) {
@@ -104,13 +106,15 @@
 <Implementation><![CDATA[
 	do $$$AssertEquals(Transactie.AccountType,"Cust")
 	do $$$AssertEquals(Transactie.AmountCurDebit,"121.00")
+	do $$$AssertEquals(Transactie.AmountCurCredit,"")
 	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
 	do $$$AssertEquals(Transactie.LedgerDimension.Account,"01234")
 	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"01234 - DE KLANTNAAM")
 	do $$$AssertEquals(Transactie.LineNum,"1.0000000000")
 	do $$$AssertEquals(Transactie.OffsetAccountType,"Ledger")
 	do $$$AssertEquals(Transactie.Txt,"DE KLANTNAAM")
 	do $$$AssertEquals(Transactie.TransDate,"2011-06-30")
+	do $$$AssertEquals(Transactie.DocumentNum,"F123.456")
 	do $$$AssertEquals(Transactie.Voucher,"F123456")
 ]]></Implementation>
 </Method>
@@ -121,6 +125,7 @@
 <Implementation><![CDATA[
 	do $$$AssertEquals(Transactie.AccountType,"Ledger")
 	do $$$AssertEquals(Transactie.AmountCurCredit,"100.00")
+	do $$$AssertEquals(Transactie.AmountCurDebit,"")
 	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
 	do $$$AssertEquals(Transactie.LedgerDimension.Account,"700000")
 	do $$$AssertEquals(Transactie.LedgerDimension.DisplayValue,"700000-")
Index: AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r33963 -r34009
--- AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33963)
+++ AX/Uitgaand/BKH/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34009)
@@ -8,19 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Formatter">
 <Type>AX.common.impl.Formatter</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -63,7 +69,10 @@
 <Implementation><![CDATA[
 	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,BoekingIndex+1)
 	set Transaction.AccountType = "Ledger"
-	set Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Factuur()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Boeking.GeefBedrag(),2)
+
 	set Transaction.LedgerDimension.Account = Boeking.GeefBoekhoudRekeningNr()
 	set Transaction.LedgerDimension.DisplayValue = Boeking.GeefBoekhoudRekeningNr()_"-"
 	quit Transaction
@@ -78,7 +87,12 @@
 	#dim Transaction As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans = ..MakeTransaction(Factuur,1)
 	set Transaction.AccountType = "Cust"
 	set Transaction.OffsetAccountType = "Ledger"
-	set Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalBedrag(),2)
+	
+	set Transaction.CashDiscAmount = ..Formatter.FormatNumber(Factuur.GeefBedragKortingContant(),2)
+
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Factuur()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Factuur.GeefTotaalInclusiefBTW(),2)
+	set:(Factuur.GeefType()=##class(DOM.BKH.enu.FactuurType).Creditnota()) Transaction.AmountCurCredit = ..Formatter.FormatNumber(Factuur.GeefTotaalInclusiefBTW(),2)
+		
 	set Transaction.LedgerDimension.Account = ..Formatter.FormatCustNumber(Factuur.GeefKlantNr())
 	set Transaction.LedgerDimension.DisplayValue = ..Formatter.FormatCustNumber(Factuur.GeefKlantNr())_" - "_Factuur.GeefKlantNaam()
 	quit Transaction
@@ -91,19 +105,40 @@
 <ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans</ReturnType>
 <Implementation><![CDATA[
 	set Transaction = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTrans).%New()
+	
 	set Transaction.LedgerDimension = ##class(AXaif.Shared.AxdTypeMultiTypeAccount).%New()
 	set Transaction.OffsetAccountType = "Ledger"
 	set Transaction.OffsetCompany = "prbe"
 	set Transaction.Company = "prbe"
 	set Transaction.class = "entity"
 	set Transaction.CurrencyCode = Factuur.GeefMunt()
+	
+	set:(Factuur.GeefBedragKortingContant()>0) Transaction.CashDiscCode = ..GetCashDiscCode(Factuur)
+	
 	set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10)
+	
 	set Transaction.TransDate = ..Formatter.FormatDate(Factuur.GeefDatum())
+	set Transaction.Due = ..Formatter.FormatDate(Factuur.GeefVervaldatum())
+	 
 	set Transaction.Txt = Factuur.GeefKlantNaam()
+	
+	set Transaction.DocumentNum = "F"_$extract(Factuur.GeefID(),1,3)_"."_$extract(Factuur.GeefID(),4,6)
 	set Transaction.Voucher = "F"_Factuur.GeefID()
+	
+	
 	quit Transaction
 ]]></Implementation>
 </Method>
+
+<Method name="GetCashDiscCode">
+<FormalSpec>Factuur:DOM.BKH.VerkoopFactuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(Factuur.GeefKlantID())
+	quit ..Formatter.FormatCashDiscount(Klant.GeefKortingContantPercentage(),Klant.GeefKortingContantTermijn())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r33963 -r34009
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 33963)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34009)
@@ -38,6 +38,18 @@
 <Implementation><![CDATA[	quit ..Formatter.FormatDate(Date,"JJJJ-MM-DD")
 ]]></Implementation>
 </Method>
+
+<Method name="FormatCashDiscount">
+<FormalSpec>Percentage:%String,Length:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	quit:Percentage=0 ""
+	
+	#dim ContantTermijn As %String = Length
+	if ##class(TECH.StringUtils).Equals(ContantTermijn,"0D","") set ContantTermijn = "8D"
+	quit ( ##class(TECH.StringUtils).AlignRight(ContantTermijn,0,3) ) _ Percentage _"%"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml
===================================================================
diff -u -r33964 -r34009
--- AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 33964)
+++ AX/Uitgaand/BKH/VerkoopFactuur/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 34009)
@@ -31,6 +31,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GenerateMonth">
+<FormalSpec>Period:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim FactuurIterator As TECH.Iterator = ..BoekhoudingAPI.GeefVerkoopFactuurInPeriodeIterator(Period)
+	while FactuurIterator.HasNext() {
+		#dim FactuurId As %String = FactuurIterator.Next()
+		do ..Generate(FactuurId)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Generate">
 <FormalSpec>FactuurId:%String</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Mock/DOM/BKH/VerkoopFactuur.cls.xml
===================================================================
diff -u -r33961 -r34009
--- vhTest/Mock/DOM/BKH/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 33961)
+++ vhTest/Mock/DOM/BKH/VerkoopFactuur.cls.xml	(.../VerkoopFactuur.cls.xml)	(revision 34009)
@@ -9,6 +9,12 @@
 <Super>DOM.BKH.VerkoopFactuur,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefBedragKortingContant">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBedragKortingContant")
+]]></Implementation>
+</Method>
+
 <Method name="GeefBoekingen">
 <ReturnType>DOM.BKH.FactuurBoekingList</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoekingen")
@@ -33,6 +39,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantID")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantNaam")
@@ -63,9 +75,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTotaalBedrag">
+<Method name="GeefTotaalInclusiefBTW">
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalBedrag")
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalInclusiefBTW")
 ]]></Implementation>
 </Method>