Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml
===================================================================
diff -u -r35004 -r35021
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 35004)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 35021)
@@ -8,134 +8,67 @@
 <Private>1</Private>
 </Property>
 
-<Property name="VerkoopAPI">
-<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="Test: 703000 - België">
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New()
-	#dim KlantId As %String = "K||1234"
-	#dim AdminRekening As %String = "703000"
-	#dim AXRekening As %String = ""
-	
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(KlantId, AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703000","")
+	Do ##super(aTestName)
+	Set ..Klant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 70300x - EU">
-<Implementation><![CDATA[
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New()
-	#dim KlantId As %String = "K||1234"
-	#dim AdminRekening As %String = "703005"
-	#dim AXRekening As %String = ""
-	
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(KlantId, AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703010","")
-]]></Implementation>
-</Method>
-
 <Method name="Test: 705000 - Diverse landen - Export">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "705000"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)	
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703020","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())	
+	Do $$$AssertEquals(..BepaalGrootboekrekening("705000"), "703020")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 705000 - Diverse landen - EU">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "705000"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)	
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703010","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())	
+	Do $$$AssertEquals(..BepaalGrootboekrekening("705000"), "703010")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 703100 - Verkopen Halux - BE">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "703100"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703100","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	Do $$$AssertEquals(..BepaalGrootboekrekening("703100"), "703100")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 703100 - Verkopen Halux - EU">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "703100"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)	
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703110","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).EuLid())	
+	Do $$$AssertEquals(..BepaalGrootboekrekening("703100"), "703110")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 703100 - Verkopen Halux - Export">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "703100"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)	
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"703120","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())	
+
+	Do $$$AssertEquals(..BepaalGrootboekrekening("703100"), "703120")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: 123456 - Helemaal andere rekening">
 <Implementation><![CDATA[
-	#dim AdminRekening As %String = "123456"
-	#dim AXRekening As %String = ""
-	
-	#dim Adres As DOM.common.Adres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid()
-	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(Adres)
-	
-	#dim Bepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(..VerkoopAPI)
-	Set AXRekening = Bepaler.BepaalGrootboekrekening(..Klant.GeefCode(), AdminRekening)
-	
-	do $$$AssertEquals(AXRekening,"123456","")
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).NietEuLid())
+	Do $$$AssertEquals(..BepaalGrootboekrekening("123456"), "123456")
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="BepaalGrootboekrekening">
+<FormalSpec>RekeningId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ..Klant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
-	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+	Set VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+	
+	set Bepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New(VerkoopAPI)
+	quit Bepaler.BepaalGrootboekrekening(..Klant.GeefID(),RekeningId)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35004 -r35021
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35004)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35021)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="GrootboekrekeningBepaler">
+<Type>AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler</Type>
+<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>
@@ -41,6 +46,7 @@
 	set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New()
 		
 	Quit $$$OK
 ]]></Implementation>
@@ -95,13 +101,8 @@
 	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 = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(Boeking.BoekhoudRekeningId)
+	#dim BoekhoudRekeningId As %String = ..GrootboekrekeningBepaler.BepaalGrootboekrekening(Factuur.GeefKlantID(),Boeking.BoekhoudRekeningId)
 
-	#dim GrootboekrekeningBepaler As AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler
-	Set GrootboekrekeningBepaler = ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler).%New()
-	Set BoekhoudRekeningId = GrootboekrekeningBepaler.BepaalGrootboekrekening(Factuur.GeefKlantID(),BoekhoudRekeningId)
-
 	set Transaction.LedgerDimension.GetAt(1).Account = BoekhoudRekeningId
 	set Transaction.LedgerDimension.GetAt(1).DisplayValue = BoekhoudRekeningId
 	
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml
===================================================================
diff -u -r35004 -r35021
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml	(.../GrootboekrekeningBepaler.cls.xml)	(revision 35004)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml	(.../GrootboekrekeningBepaler.cls.xml)	(revision 35021)
@@ -21,30 +21,22 @@
 </Method>
 
 <Method name="BepaalGrootboekrekening">
-<FormalSpec>KlantId:%String,AdminRekening:%String</FormalSpec>
+<FormalSpec>KlantId:%String,AdminRekeningId:%String</FormalSpec>
 <Implementation><![CDATA[
+	#dim AxRekening As %String = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(AdminRekeningId)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
 	
-	Quit:AdminRekening=703000 703000
-	Quit:AdminRekening=703001 703010
-	Quit:AdminRekening=703002 703010
-	Quit:AdminRekening=703003 703010
-	Quit:AdminRekening=703004 703010
-	Quit:AdminRekening=703005 703010
-	Quit:AdminRekening=703006 703010
-	
-	If AdminRekening = 705000 {
+	If AxRekening = 703020 {
 		Quit:Klant.GeefAdres().GeefLand().IsLidVanEU() 703010
 		Quit 703020		
 	}
 	
-	If AdminRekening = 703100 {
+	If AxRekening = 703100 {
 		Quit:Klant.GeefAdres().GeefLand().GeefIso3()="BEL" 703100
 		Quit:Klant.GeefAdres().GeefLand().IsLidVanEU() 703110
 		Quit 703120		
 	}	
-	
-	Quit AdminRekening
+	Quit AxRekening
 ]]></Implementation>
 </Method>
 </Class>