Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r35139 -r35145
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35139)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 35145)
@@ -1,19 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Base</Super>
 
 <Method name="Test: Algemeen gedrag">
 <Implementation><![CDATA[
 	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
 	do ..AssertJournalTableBasisInfo(JournalTable)
 	do ..AssertKlantGerelateerdeGegevens(JournalTable.LedgerJournalTrans.GetAt(1))
 	do ..AssertGrootboekGerelateerdeGegevens(JournalTable.LedgerJournalTrans.GetAt(2))
@@ -27,9 +22,7 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(100,700000))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
@@ -40,20 +33,15 @@
 
 <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))
-	
-	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
-	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),3) {
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
@@ -65,26 +53,18 @@
 <Method name="Test: Een creditnota geeft een omgekeerde werking">
 <Implementation><![CDATA[
 	#dim Creditnota As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardCreditnota()
-	#dim Factuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
 	
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",Creditnota.GeefID()).DanReturn(Creditnota)
-	do OrderApiStub.IndienMethodCall("GeefFactuur",Factuur.GeefID()).DanReturn(Factuur)
+	#dim JournalTableCreditnota As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(Creditnota)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	
-	#dim GeneralJournalCreditnota As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(Creditnota.GeefID())
-	#dim JournalTableCreditnota As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournalCreditnota.LedgerJournalTable.GetAt(1)
-	
 	if $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.Count(),2) {
 		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
 		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(1).AmountCurCredit,"121.00")
 		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
 		do $$$AssertEquals(JournalTableCreditnota.LedgerJournalTrans.GetAt(2).AmountCurDebit,"100.00")
 	}
 
-	#dim GeneralJournalFactuur As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(Factuur.GeefID())
-	#dim JournalTableFactuur As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournalFactuur.LedgerJournalTable.GetAt(1)
+	#dim Factuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
+	#dim JournalTableFactuur As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(Factuur)
 	
 	if $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.Count(),2) {
 		do $$$AssertEquals(JournalTableFactuur.LedgerJournalTrans.GetAt(1).AccountType,"Cust")	
@@ -102,13 +82,8 @@
 	
 	#dim Creditnota As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur(Klant)
 
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",Creditnota.GeefID()).DanReturn(Creditnota)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(Creditnota)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(Creditnota.GeefID())
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
-	
 	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(1).PaymMode,"SEPA-DD")
 ]]></Implementation>
 </Method>
@@ -121,13 +96,8 @@
 	do Boekingen.Insert(##class(DOM.VKP.Factuur.dto.BoekhoudBoeking).%New(100,703006))
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").DanReturn(Boekingen)
 	
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = GeneralJournal.LedgerJournalTable.GetAt(1)
-	
 	if $$$AssertEquals(JournalTable.LedgerJournalTrans.Count(),2) {
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AccountType,"Ledger")	
 		do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).LedgerDimension.GetAt(1).Account,703010)
@@ -175,6 +145,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	do $$$AssertEquals(Transactie.AccountType,"Ledger")
+	do $$$AssertEquals(Transactie.ADUCorrectedTaxAmount,"21.00")
 	do $$$AssertEquals(Transactie.AmountCurCredit,"100.00")
 	do $$$AssertEquals(Transactie.AmountCurDebit,"")
 	do $$$AssertEquals(Transactie.CurrencyCode,"EUR")
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestBtwUitsplitsing.cls.xml	(revision 35145)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.TestBtwUitsplitsing">
+<Super>vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Base</Super>
+
+<Method name="Test: Algemeen gedrag">
+<Implementation><![CDATA[
+	#dim VerkoopFactuur As DOM.VKP.Factuur = ##class(vhTest.Utils.DOM.VKP.Factuur).StandaardFactuur()
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = ..GetJournalTable(VerkoopFactuur)
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"21.00")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"100.00")
+]]></Implementation>
+</Method>
+
+<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)
+	
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = ..GetJournalTable(VerkoopFactuur)
+	
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).ADUCorrectedTaxAmount,"12.60")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(2).AmountCurCredit,"60.00")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).ADUCorrectedTaxAmount,"8.40")
+	do $$$AssertEquals(JournalTable.LedgerJournalTrans.GetAt(3).AmountCurCredit,"40.00")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/VKP/Factuur.cls.xml
===================================================================
diff -u -r34988 -r35145
--- vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 34988)
+++ vhTest/Utils/DOM/VKP/Factuur.cls.xml	(.../Factuur.cls.xml)	(revision 35145)
@@ -14,7 +14,10 @@
 	do VerkoopFactuur.IndienMethodCall("GeefID").DanReturn(123456)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalTeBetalen").DanReturn(121)
 	do VerkoopFactuur.IndienMethodCall("GeefTotaalBelastbaar").DanReturn(100)
-	do VerkoopFactuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn("")
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalGoederen").DanReturn(100)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalPort").DanReturn(0)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalBTW").DanReturn(21)
+	do VerkoopFactuur.IndienMethodCall("GeefTotaalKortingKontant").DanReturn(0)
 	do VerkoopFactuur.IndienMethodCall("GeefMuntCode").DanReturn("EUR")
 	do VerkoopFactuur.IndienMethodCall("GeefFactuurDatum").DanReturn($$$DummyDate)
 	do VerkoopFactuur.IndienMethodCall("GeefVervalDatum").DanReturn($$$DummyDate+30)
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Base.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Base.cls.xml	(revision 35145)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Base">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="GetJournalTable">
+<FormalSpec>VerkoopFactuur:DOM.VKP.Factuur</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
+	
+	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,,OrderApiStub)
+	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
+	
+	quit GeneralJournal.LedgerJournalTable.GetAt(1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35133 -r35145
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35133)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35145)
@@ -92,17 +92,20 @@
 	#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()
+	#dim TotaalGoederenInclusiefPort As %Numeric = Factuur.GeefTotaalGoederen() + Factuur.GeefTotaalPort()
+	
+	if Factuur.GeefTotaalKortingKontant() = 0 {
+		set Transaction.ADUCorrectedTaxAmount = ..Formatter.FormatNumber( Factuur.GeefTotaalBTW() / TotaalGoederenInclusiefPort * Boeking.Bedrag,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)
+	} else {
 		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+Transaction.ADUCorrectedTaxAmount,2)	
-	set:(Factuur.GeefFactuurCode()=##class(DOM.VKP.Factuur.enu.FactuurType).Creditnota()) Transaction.AmountCurDebit = ..Formatter.FormatNumber(Boeking.Bedrag+Transaction.ADUCorrectedTaxAmount,2)	
 
 	#dim BoekhoudRekeningId As %String = ..GrootboekrekeningBepaler.BepaalGrootboekrekening(Factuur.GeefKlantID(),Boeking.BoekhoudRekeningId)
-
 	set Transaction.LedgerDimension.GetAt(1).Account = BoekhoudRekeningId
 	set Transaction.LedgerDimension.GetAt(1).DisplayValue = BoekhoudRekeningId
 	
Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml
===================================================================
diff -u -r34987 -r35145
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 34987)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/TestFactuurKortingContant.cls.xml	(.../TestFactuurKortingContant.cls.xml)	(revision 35145)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.TestFactuurKortingContant">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.Base</Super>
 
 <Method name="Test: Een factuur met kortingcontant">
 <Implementation><![CDATA[
@@ -21,20 +21,8 @@
 	
 	do VerkoopFactuur.IndienMethodCall("GeefBoekhoudBoekingen").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)
+	#dim JournalTable As AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalTable = ..GetJournalTable(VerkoopFactuur)
 	
-	#dim OrderApiStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	do OrderApiStub.IndienMethodCall("GeefFactuur",VerkoopFactuur.GeefID()).DanReturn(VerkoopFactuur)
-		
-	set Converter = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New(,VerkoopApiStub,OrderApiStub)
-	
-	#dim GeneralJournal As AXaif.LedgerGeneralJournal.AxdLedgerGeneralJournal = Converter.Convert(VerkoopFactuur.GeefID())
-	#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)