Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u -r41842 -r41847
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41842)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41847)
@@ -18,12 +18,17 @@
 <Private>1</Private>
 </Property>
 
+<Property name="UtilsMock">
+<Type>vhTest.Mock.AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ##super(aTestName)
 	Set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("5000")
+	Do ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5000")
 	Do ToeleveringStub.IndienMethodCall("GeefAanmaakDatum").DanReturn(50000)
 	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5000||200000")
 	Do ToeleveringStub.IndienMethodCall("GeefReferentie").DanReturn("Ref")
@@ -37,16 +42,21 @@
 	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
 	Do LeverancierStub.IndienMethodCall("GeefBTWnr").DanReturn("123.456.789")
 	Set ..LeverancierStub = LeverancierStub
+	
+	Set ..UtilsMock = ##class(vhTest.Mock.AXimpl.Utils).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Zijn alle gemeenschappelijke defaults goed">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -68,10 +78,13 @@
 <Method name="Test: Zijn alle specifiek voor Van Hoecke defaults goed">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -84,10 +97,13 @@
 <Method name="Test: Zijn alle specifiek voor Halux defaults goed">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
+
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "HLX"
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -102,10 +118,13 @@
 <Method name="Test: AccountingDate is de AanmaakDatum van de Toelevering volgens format DD MM JJJJ gescheiden door slashes">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
+
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -118,10 +137,13 @@
 <Method name="Test: CashDisc gebruikt KortingKontant en TermijnKortingKontant van de Leverancier als parameters voor de method FormatCashDiscount van AX common impl Formatter">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -134,10 +156,13 @@
 <Method name="Test: Als er voor CashDiscPercent een KortingKontant bedrag is wordt het decimale punt vervangen door een komma">
 <Implementation><![CDATA[
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","5000").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
-	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = "VHBE"
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
 	
@@ -147,10 +172,109 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bij default wordt de TaxGroup bepaald">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Do ..UtilsMock.VerwachtMethodCall("ConvertLeverancierTaxGroup",Vestiging,..LeverancierStub).DanReturn("ABC")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.TaxGroup,"ABC")
+	
+	Do ..UtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: VATNum gebruikt GeefBTWnr van de Leverancier als parameter voor de method FormatVATNumVoorDIXF van AX common impl Formatter">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.VATNum,"3.456.789")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij default wordt de VendGroup bepaald">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Do ..UtilsMock.VerwachtMethodCall("ConvertLeverancierVendGroup",Vestiging,..LeverancierStub).DanReturn("ABC")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.VendGroup,"ABC")
+	
+	Do ..UtilsMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is InvoiceAccount het cijfer in het LeverancierId na het dubbel pipeteken met voorloopnul indien kleiner dan 10000">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.InvoiceAccount,"05002")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is OrderAccount het cijfer in het LeverancierId na het dubbel pipeteken met voorloopnul indien kleiner dan 10000">
+<Implementation><![CDATA[
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5000").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsMock.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.OrderAccount,"05002")
+]]></Implementation>
+</Method>
+
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New(..AankoopApi)
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New(..AankoopApi,..UtilsMock)
 ]]></Implementation>
 </Method>
 </Class>