Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u -r41849 -r41858
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41849)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 41858)
@@ -18,11 +18,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="UtilsMock">
+<Property name="UtilsStub">
 <Type>vhTest.Mock.AXimpl.Utils</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="LevNrConverterStub">
+<Type>vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -43,7 +48,9 @@
 	Do LeverancierStub.IndienMethodCall("GeefBTWnr").DanReturn("123.456.789")
 	Set ..LeverancierStub = LeverancierStub
 	
-	Set ..UtilsMock = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	Set ..UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
+	
+	Set ..LevNrConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
 ]]></Implementation>
 </Method>
 
@@ -53,8 +60,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -81,8 +88,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -100,9 +107,11 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LevNrConverterStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000")
+	
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv()
 	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
@@ -121,8 +130,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -140,8 +149,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -159,8 +168,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -180,16 +189,16 @@
 
 	#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")
+	Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierTaxGroup",Vestiging,..LeverancierStub).DanReturn("ABC")
+	Do ..UtilsStub.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()
+	Do ..UtilsStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -199,8 +208,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -220,16 +229,16 @@
 
 	#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")
+	Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierVendGroup",Vestiging,..LeverancierStub).DanReturn("ABC")
+	Do ..UtilsStub.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()
+	Do ..UtilsStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -239,8 +248,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -258,8 +267,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -279,8 +288,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -298,8 +307,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -319,8 +328,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -338,8 +347,8 @@
 	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")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 
 	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
 	
@@ -351,10 +360,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Halux is InvoiceAccount het cijfer in het LeverancierId na het dubbel pipeteken omgezet volgens LevNrConverter 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 ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
+	Do ..LevNrConverterStub.VerwachtMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000")
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter = ..GeefConverter()
+	
+	#dim Hoofding As AXdixf.AankoopOrderHoofding.AankoopOrderHoofding = Converter.Convert(..ToeleveringStub,Vestiging)
+	
+	Do $$$AssertEquals(Hoofding.InvoiceAccount,"05000")
+	
+	Do ..LevNrConverterStub.Verifieer()
+]]></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,..UtilsMock)
+<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopOrderHoofding.impl.AankoopOrderHoofdingDixfConverter).%New(..AankoopApi,..UtilsStub,..LevNrConverterStub)
 ]]></Implementation>
 </Method>
 </Class>