Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler/Test.cls.xml	(revision 35004)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: 703000 - België">
+<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","")
+]]></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","")
+]]></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","")
+]]></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","")
+]]></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","")
+]]></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","")
+]]></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","")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<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)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml	(revision 0)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/GrootboekrekeningBepaler.cls.xml	(revision 35004)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter.GrootboekrekeningBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGrootboekrekening">
+<FormalSpec>KlantId:%String,AdminRekening:%String</FormalSpec>
+<Implementation><![CDATA[
+	#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 {
+		Quit:Klant.GeefAdres().GeefLand().IsLidVanEU() 703010
+		Quit 703020		
+	}
+	
+	If AdminRekening = 703100 {
+		Quit:Klant.GeefAdres().GeefLand().GeefIso3()="BEL" 703100
+		Quit:Klant.GeefAdres().GeefLand().IsLidVanEU() 703110
+		Quit 703120		
+	}	
+	
+	Quit AdminRekening
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r34911 -r35004
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34911)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35004)
@@ -98,6 +98,10 @@
 	
 	#dim BoekhoudRekeningId As %String = ##class(AX.common.impl.ConvertAdminToAX).ConvertLedgerCount(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