Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34616 -r34618
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34616)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml	(.../Convert.cls.xml)	(revision 34618)
@@ -41,8 +41,11 @@
 	do ..Partij.IndienMethodCall("GeefEmail").DanReturn("")
 	
 	Set ..Leverancier = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do ..Leverancier.IndienMethodCall("GeefCode").DanReturn(100)
+	Do ..Leverancier.IndienMethodCall("GeefNaam").DanReturn("Van Hoecke")
+	Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("NV")
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("30D")
 	Do ..Leverancier.IndienMethodCall("GeefKortingKontant").DanReturn(0)
 	Do ..Leverancier.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("")
 	Do ..Leverancier.IndienMethodCall("GeefBankRekeningNr").DanReturn("BE23571113171923")
@@ -466,7 +469,7 @@
 <Method name="Test Betalingwijze - Vooruitbetaling">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -493,7 +496,7 @@
 <Method name="Test Betalingwijze - Termijn - 30D">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30D")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("30D")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -507,7 +510,7 @@
 <Method name="Test Betalingwijze - Termijn - 8D">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("8D")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("8D")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -521,7 +524,7 @@
 <Method name="Test Betalingwijze - Termijn - 30DEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("30DEM")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("30DEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -535,7 +538,7 @@
 <Method name="Test Betalingwijze - Termijn - 1M">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1M")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("1M")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -549,7 +552,7 @@
 <Method name="Test Betalingwijze - Termijn - 2M">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2M")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("2M")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -563,7 +566,7 @@
 <Method name="Test Betalingwijze - Termijn - 1MEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("1MEM")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("1MEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -577,7 +580,7 @@
 <Method name="Test Betalingwijze - Termijn - 2MEM">
 <Implementation><![CDATA[
 	Do ..Leverancier.IndienMethodCall("GeefBetaalwijze").DanReturn(##class(DOM.VKP.enu.Betalingwijze).Betalingstermijn())
-	Do ..Leverancier.IndienMethodCall("GeefBetaalTermijn").DanReturn("2MEM")
+	Do ..Leverancier.IndienMethodCall("GeefBetalingVoorwaarde").DanReturn("2MEM")
 	Do ..Partij.IndienMethodCall("GeefMunt").DanReturn("EUR")
 	
 	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
@@ -669,17 +672,46 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LeveranciersCategorie - Lid BTW eenheid - IC">
+<Method name="Test: LeveranciersCategorie - Leverancier 6332 en werkmaatschappij = VH dan IC ">
 <Implementation><![CDATA[
-	Do ..Partij.IndienMethodCall("GeefID").DanReturn("K||6332")
+	Set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("VH")	
+	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||6332")
 
-	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New()
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
 	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
 	
 	Do $$$AssertEquals(..AxLeverancier.VendGroup,"IC")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LeveranciersCategorie - Leverancier 6332 en werkmaatschappij niet VH dan standaard logica ">
+<Implementation><![CDATA[
+	Set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("")	
+	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||6332")
+	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"BE")
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeveranciersCategorie - Leverancier 5497 en werkmaatschappij = HX dan IC ">
+<Implementation><![CDATA[
+	Set FirmaBepaler = ##class(vhTest.Mock.AX.common.impl.FirmaBepaler).%New()
+	Do FirmaBepaler.IndienMethodCall("GeefInitialen").DanReturn("HX")	
+	Do ..Partij.IndienMethodCall("GeefID").DanReturn("L||5497")
+
+	Set Converter = ##class(AX.Uitgaand.AKP.Leverancier.impl.DixfConverter).%New(FirmaBepaler)
+	Set ..AxLeverancier = Converter.Convert(..Partij, ..Leverancier)
+	
+	Do $$$AssertEquals(..AxLeverancier.VendGroup,"IC")
+]]></Implementation>
+</Method>
+
 <Method name="Test: LeveranciersCategorie - Belgisch adres - BE">
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34616 -r34618
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34616)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml	(.../DixfConverter.cls.xml)	(revision 34618)
@@ -8,13 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>FirmaBepaler:AX.common.impl.FirmaBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..FirmaBepaler = $$$Inject(FirmaBepaler,##class(AX.common.impl.FirmaBepaler).%New())
+	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -23,6 +30,7 @@
 <FormalSpec>Partij:DOM.PARTIJ.Partij,Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <ReturnType>AXdixf.Vendor.Vendor</ReturnType>
 <Implementation><![CDATA[
+	
 	Set AxLeverancier = ##class(AXdixf.Vendor.Vendor).%New()
 	Set AxLeverancier.AccountNum = ..Formatter.FormatAccountNumber(Partij.GeefCode())
 	Set AxLeverancier.PartyType = "2"
@@ -43,7 +51,7 @@
 	Set AxLeverancier.Currency = Partij.GeefMunt()
 	Set AxLeverancier.EnterpriseNumber = ..Formatter.FormatEnterpriseNumber(Partij.GeefBTWNr())
 	Set AxLeverancier.VATNum = ..Formatter.FormatVATNum(Partij.GeefBTWNr())
-	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetaalTermijn())
+	Set AxLeverancier.PaymTermId = ..Formatter.ConvertPaymTermId(Leverancier.GeefBetaalwijze(),Leverancier.GeefBetalingVoorwaarde())
 	Set AxLeverancier.PaymMode = ..ConvertPaymentMode(Partij)
 	Set AxLeverancier.UseCashDisc = ..Formatter.FormatCashDiscount(Leverancier.GeefKortingKontant(),Leverancier.GeefTermijnKortingKontant())
 	Set:$$$HasLength(Leverancier.GeefBankRekeningNr()) AxLeverancier.BankAccount = "1"
@@ -78,22 +86,25 @@
 <FormalSpec>Partij:DOM.PARTIJ.Partij,Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	quit:Partij.GeefID()="K||6332" "IC"
-	quit:Partij.GeefID()="K||6051" "IC"
-	quit:Partij.GeefID()="K||5908" "IC"
-	quit:Partij.GeefID()="K||6373" "IC"
-	quit:Partij.GeefID()="K||5497" "IC"
-	quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
-	quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
-	quit "EX"
+	If ..FirmaBepaler.GeefInitialen()="VH" {
+		Quit:Partij.GeefID()="L||6332" "IC"
+		Quit:Partij.GeefID()="L||6051" "IC"
+		Quit:Partij.GeefID()="L||5908" "IC"
+		Quit:Partij.GeefID()="L||6373" "IC"
+	} ElseIf ..FirmaBepaler.GeefInitialen()="HX" {
+		Quit:Partij.GeefID()="L||5497" "IC"
+	}
+	Quit:Partij.GeefAdres().GeefLand().GeefCode()="BE" "BE"
+	Quit:Partij.GeefAdres().GeefLand().IsLidVanEU() "EU"
+	
+	Quit "EX"
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertPaymentMode">
 <FormalSpec>Partij:DOM.PARTIJ.Partij</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
- 
 	Quit:Partij.GeefID()="L||5005" "BLUM-SEPA"
 	Quit:Partij.GeefMunt()="EUR" "SEPA"
 	Quit "SWIFT"
Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r34615 -r34618
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34615)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34618)
@@ -113,8 +113,6 @@
 	Quit:Betalingwijze=##class(DOM.VKP.enu.Betalingwijze).Vooruitbetaling() "VOORUIT"
 	Quit:Betalingwijze=##class(DOM.VKP.enu.Betalingwijze).Rembours() "REMBOURS"
 	
-	Do ##class(Tools.Wlip).%New(127).String("BetalingTermijn $"_BetalingTermijn_"$")
-	
 	If BetalingTermijn'="" {
 		
 		Quit:##class(TECH.StringUtils).EndsWith(BetalingTermijn,"D") "NET"_##class(TECH.StringUtils).AlignRight(+BetalingTermijn,0,2)