Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34673 -r34679
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34673)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34679)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PartijAPI">
 <Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
@@ -24,12 +29,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,FirmaBepaler:AX.common.impl.FirmaBepaler</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 ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	set ..Validator = ##class(AX.common.impl.Validator).%New()
 	Quit $$$OK
@@ -55,7 +61,7 @@
 	set Custable.Blocked = $$$If(Klant.GeefCommercieleStatus()=##class(DOM.CRM.enu.CommercieleStatus).Actief(),"","Invoice")
 	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.CustClassificationId = ..ConvertCustClassificationId(Klant)
 	set Custable.CustGroup = ..ConvertCustGroup(Partij,Klant)
 	
 	set Custable.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
@@ -186,6 +192,19 @@
 	Quit LandCodeBTWnummer = LandCodeAdres
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertCustClassificationId">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ..FirmaBepaler.GeefInitialen()="VH" {
+		Quit "R"_##class(TECH.StringUtils).AlignRight(Klant.GeefRegio(),0,2)
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HX" {
+		Quit "HLX"
+	}
+	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r34673 -r34679
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34673)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 34679)
@@ -178,7 +178,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Regio&apos;s - Regio altijd in formaat Rxx - Een cijferige regio">
+<Method name="Test: Regio&apos;s - Regio altijd in formaat Rxx - Een cijferige regio (enkel als firma = VH)">
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
 
@@ -190,7 +190,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Regio&apos;s - Regio altijd in formaat Rxx - Tweecijferige regio">
+<Method name="Test: Regio&apos;s - Regio altijd in formaat Rxx - Tweecijferige regio (enkel als firma = VH)">
 <Implementation><![CDATA[
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(97)
 
@@ -945,6 +945,17 @@
 	do $$$AssertEquals(PostalAddres.CountryRegionId,"BEL")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ConvertCustClassificationId: als firma = HX dan result = HLX ">
+<Implementation><![CDATA[
+	Set ..Firma = "HX"
+
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	
+	Do $$$AssertEquals(CustTable.CustClassificationId,"HLX")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/TestBase.cls.xml
===================================================================
diff -u -r34673 -r34679
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 34673)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 34679)
@@ -14,6 +14,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Firma">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -47,6 +52,8 @@
 	do ..Klant.IndienMethodCall("GeefRegio").DanReturn(9)
 	do ..Klant.IndienMethodCall("GeefBetalingwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
 	do ..Klant.IndienMethodCall("GeefBetalingTermijn").DanReturn("30D")
+	
+	Set ..Firma = "VH"
 ]]></Implementation>
 </Method>
 
@@ -60,7 +67,10 @@
 	#dim VerkoopAPI As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
 	do VerkoopAPI.IndienMethodCall("GeefKlant",..Partij.GeefID()).DanReturn(..Klant)
 	
-	set AifConverter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New(PartijAPI,VerkoopAPI)
+	Set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn(..Firma)
+	
+	set AifConverter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New(PartijAPI,VerkoopAPI,FirmaBepaler)
 	quit AifConverter.Convert(..Partij.GeefID())
 ]]></Implementation>
 </Method>