Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml
===================================================================
diff -u -r41749 -r41801
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 41749)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingIterator.cls.xml	(.../AankoopOrderHoofdingIterator.cls.xml)	(revision 41801)
@@ -4,9 +4,8 @@
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
 <Property name="Vestiging">
-<Type>%String</Type>
+<Type>AX.common.enu.InterneFirmaInitialen</Type>
 <Private>1</Private>
-<Parameter name="VALUELIST" value=",VanHoecke,Halux"/>
 </Property>
 
 <Property name="QueryAPI">
@@ -30,7 +29,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String(VALUELIST=",VanHoecke,Halux"),ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AX.common.enu.InterneFirmaInitialen,ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml
===================================================================
diff -u -r41751 -r41801
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(.../AankoopOrderHoofdingDixfGenerator.cls.xml)	(revision 41751)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfGenerator.cls.xml	(.../AankoopOrderHoofdingDixfGenerator.cls.xml)	(revision 41801)
@@ -9,13 +9,12 @@
 </Property>
 
 <Property name="Vestiging">
-<Type>%String</Type>
+<Type>AX.common.enu.InterneFirmaInitialen</Type>
 <Private>1</Private>
-<Parameter name="VALUELIST" value=",VanHoecke,Halux"/>
 </Property>
 
 <Method name="GenerateAll">
-<FormalSpec>Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<FormalSpec>Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
 <Implementation><![CDATA[
 	Do StartTimer^vhLib
 	Set ..Vestiging = Vestiging
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r41749 -r41801
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 41749)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 41801)
@@ -13,11 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FirmaBepaler">
-<Type>AX.common.impl.FirmaBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Formatter">
 <Type>AX.common.impl.Formatter</Type>
 <Private>1</Private>
@@ -33,13 +28,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AxHoofding">
 <Type>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>AankoopAPI:DOM.AKP.AankoopAPI,FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
+<FormalSpec>AankoopAPI:DOM.AKP.AankoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -49,26 +49,26 @@
 	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
 	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	Set ..LevNrConverter = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	Set ..Utils = ##class(AXimpl.Utils).%New()
 	Set ..AankoopAPI = $$$Inject(AankoopAPI,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
-	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	#Dim Leverancier As DOM.AKP.Leverancier = ..AankoopAPI.GeefLeverancier(Toelevering.GeefLeverancierID())
 	Set ..AxHoofding = ##class(AXdixf.AankoopOrderHoofding.AankoopOrderHoofding).%New()
 	
 	Do ..ConvertGemeenschappelijk(Leverancier,Toelevering,Vestiging)
 	
-	If Vestiging = "VanHoecke" {
+	If Vestiging = "VHBE" {
 		Do ..ConvertVanHoecke(Leverancier)
 	}
 	Else {
-		If Vestiging = "Halux" {
+		If Vestiging = "HLX" {
 			Do ..ConvertHalux(Leverancier)
 		}
 		Else {
@@ -80,7 +80,7 @@
 </Method>
 
 <Method name="ConvertGemeenschappelijk">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
@@ -100,9 +100,9 @@
 	Set ..AxHoofding.PurchName = Leverancier.GeefNaam()
 	Set ..AxHoofding.PurchStatus = "Openstaande order"
 	Set ..AxHoofding.SettleVoucher = "Geen"
-	Set ..AxHoofding.TaxGroup = ..BepaalTaxGroup(Leverancier,Vestiging)
+	Set ..AxHoofding.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,Leverancier)
 	Set ..AxHoofding.VATNum = ..Formatter.FormatVATNumVoorDIXF(Leverancier.GeefBTWnr())
-	Set ..AxHoofding.VendGroup = ..BepaalVendGroup(Leverancier,Vestiging)
+	Set ..AxHoofding.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,Leverancier)
 	Set ..AxHoofding.VendorRef = Toelevering.GeefReferentie()
 	//Set ..AxHoofding. = ""
 ]]></Implementation>
@@ -223,46 +223,6 @@
 	Quit PaymModeVanHoecke
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalTaxGroup">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If Vestiging="VanHoecke" {
-		Quit:Leverancier.GeefID()="L||6332" "BUNIT"
-		Quit:Leverancier.GeefID()="L||6051" "BUNIT"
-		Quit:Leverancier.GeefID()="L||5908" "BUNIT"
-	} ElseIf Vestiging="Halux" {
-		Quit:Leverancier.GeefID()="L||5497" "BUNIT"
-	}
-	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
-	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BDOM"
-	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "BIC"
-	Quit "BX"
-]]></Implementation>
-</Method>
-
-<Method name="BepaalVendGroup">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier,Vestiging:%String(VALUELIST=",VanHoecke,Halux")</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If Vestiging="VanHoecke" {
-		Quit:Leverancier.GeefID()="L||6332" "IC"
-		Quit:Leverancier.GeefID()="L||6051" "IC"
-		Quit:Leverancier.GeefID()="L||5908" "IC"
-		Quit:Leverancier.GeefID()="L||6373" "IC"
-	} ElseIf Vestiging="Halux" {
-		Quit:Leverancier.GeefID()="L||5497" "IC"
-	}
-	#Dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Leverancier.GeefID())
-	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
-	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
-	
-	Quit "EX"
-]]></Implementation>
-</Method>
 </Class>