Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml
===================================================================
diff -u -r42197 -r42217
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42197)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42217)
@@ -8,6 +8,11 @@
 <Default>1000</Default>
 </Parameter>
 
+<Property name="AankoopApi">
+<Type>DOM.AKP.AankoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BlOrdRspStub">
 <Type>APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp</Type>
 <Private>1</Private>
@@ -18,6 +23,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LevNrConverterStub">
+<Type>vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierStub">
+<Type>vhTest.Mock.DOM.AKP.Leverancier</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UtilsStub">
+<Type>vhTest.Mock.AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
@@ -31,9 +51,9 @@
 	do ##super(aTestName)
 	
 	Set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5000")
+	Do ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5005")
 	Do ToeleveringStub.IndienMethodCall("GeefAanmaakDatum").DanReturn(50000)
-	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5000||200000")
+	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5005||200000")
 	Do ToeleveringStub.IndienMethodCall("GeefReferentie").DanReturn("Ref")
 	
 	Set ProductToeleveringLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
@@ -50,6 +70,19 @@
 	
 	Set BlOrdRspStub = ##class(APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp).%New()
 	Set ..BlOrdRspStub = BlOrdRspStub
+	
+	Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
+	Do LeverancierStub.IndienMethodCall("GeefKortingKontant").DanReturn(1.5)
+	Do LeverancierStub.IndienMethodCall("GeefTermijnKortingKontant").DanReturn("20DEM")
+	Do LeverancierStub.IndienMethodCall("GeefTaal").DanReturn("NL")
+	Do LeverancierStub.IndienMethodCall("GeefNaam").DanReturn("LevNaam")
+	Do LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do LeverancierStub.IndienMethodCall("GeefBTWnr").DanReturn("123.456.789")
+	Set ..LeverancierStub = LeverancierStub
+	
+	Set ..LevNrConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New()
+	
+	Set ..UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
 ]]></Implementation>
 </Method>
 
@@ -62,6 +95,9 @@
 
 <Method name="Test: Zijn alle gemeenschappelijke defaults goed">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -76,6 +112,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet ConfirmedDlv de leverdag zijn in formaat ddmmyyyy met tussenslashes">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -88,6 +127,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ConfirmedDlv leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -100,6 +142,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet DeliveryDate de leverdag zijn in formaat ddmmyyyy met tussenslashes">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -112,6 +157,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet DeliveryDate leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -124,6 +172,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet ExternalItemId de LeverancierReferentie van het Product zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -136,6 +187,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ExternalItemId de LeverancierReferentie zijn zonder voorloopnul en met om de 3 karakters een punt">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -150,6 +204,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet ItemId het IdentNummer van het Product zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -162,6 +219,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ItemId de LeverancierReferentie zijn met een punt na de voorloopnul en dan om de 3 karakters een punt">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -176,6 +236,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LineAmount de Nettoprijs zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -188,6 +251,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineAmount leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -200,6 +266,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LineNumber het BlumLijnNr zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -212,6 +281,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LineNumber het LijnNrBLUM zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -226,6 +298,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet LinePercent de Korting zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -238,6 +313,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet LinePercent leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -250,6 +328,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet OverDeliveryPct 50 zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -262,6 +343,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet OverDeliveryPct leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -274,6 +358,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde is E dan moet PriceUnit 1 zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -288,6 +375,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde is H dan moet PriceUnit 100 zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -302,6 +392,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde is M dan moet PriceUnit 1000 zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -316,6 +409,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde leeg is dan moet PriceUnit leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -330,6 +426,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt en GrootteOrde is NIET E H M of leeg is dan moet een exceptie gegooid worden">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -345,6 +444,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PriceUnit leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -357,18 +459,24 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt moet PurchId het ID van de Toelevering zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
 	
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
 	
-	Do $$$AssertEquals(AankoopOrderRegel.PurchId,"5000||200000")
+	Do $$$AssertEquals(AankoopOrderRegel.PurchId,"5005||200000")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchId het ToeleveringNr zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -383,6 +491,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt dan moet PurchPrice de EenheidsPrijs zijn en het decimale punt vervangen worden door een komma">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -395,6 +506,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchPrice leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -407,6 +521,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit KTO komt dan moet PurchQty Aantal zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -419,6 +536,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet PurchQty nul zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -429,8 +549,32 @@
 ]]></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||5005").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierTaxGroup",Vestiging,..LeverancierStub).DanReturn("ABC")
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
+	
+	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
+	
+	Do $$$AssertEquals(AankoopOrderRegel.TaxGroup,"ABC")
+	
+	Do ..UtilsStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Als de ToeleveringLijn uit KTO komt dan moet UnderDeliveryPct 50 zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -443,6 +587,9 @@
 
 <Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet UnderDeliveryPct leeg zijn">
 <Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -453,10 +600,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Voor Halux is VendAccount 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||5005").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.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
+	
+	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
+	
+	Do $$$AssertEquals(AankoopOrderRegel.VendAccount,"05000")
+	
+	Do ..LevNrConverterStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor Van Hoecke is VendAccount 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||5005").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
+	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()
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
+	
+	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
+	
+	Do $$$AssertEquals(AankoopOrderRegel.VendAccount,"05002")
+]]></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||5005").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+
+	#dim Vestiging As AX.common.enu.InterneFirmaInitialen = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv()
+	
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.VerwachtMethodCall("ConvertLeverancierVendGroup",Vestiging,..LeverancierStub).DanReturn("EU")
+	
+	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
+	
+	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..ProductToeleveringLijnStub,Vestiging)
+	
+	Do $$$AssertEquals(AankoopOrderRegel.VendGroup,"EU")
+	
+	Do ..UtilsStub.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefConverter">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter</ReturnType>
-<Implementation><![CDATA[	quit ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New()
+<Implementation><![CDATA[	Quit ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New(..AankoopApi,..UtilsStub,..LevNrConverterStub)
 ]]></Implementation>
 </Method>
 </Class>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42197 -r42217
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42197)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42217)
@@ -3,23 +3,42 @@
 <Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AankoopAPI">
+<Type>DOM.AKP.AankoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DatumFormatter">
 <Type>TECH.Format.FormatAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="LevNrConverter">
+<Type>AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AxRegel">
 <Type>AXdixf.AankoopOrderRegel.AankoopOrderRegel</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>AankoopApi:DOM.AKP.AankoopAPI,Utils:AXimpl.Utils,LevNrConverter:AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DatumFormatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
+	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
+	Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,15 +47,23 @@
 <FormalSpec>ToeleveringLijn:%RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
+	#dim Leverancier As DOM.AKP.Leverancier = ""
+	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
+	{
+		Set Leverancier = ..AankoopAPI.GeefLeverancier(ToeleveringLijn.GeefToelevering().GeefLeverancierID())
+	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
+	{
+		Set Leverancier = ##class(DOM.AKP.impl.DataM.DataMLeverancier).%New(5005)
+	}
 	Set ..AxRegel = ##class(AXdixf.AankoopOrderRegel.AankoopOrderRegel).%New()
 	
-	Do ..ConvertGemeenschappelijk(ToeleveringLijn)
+	Do ..ConvertGemeenschappelijk(ToeleveringLijn, Vestiging, Leverancier)
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		Do ..ConvertVanHoecke(ToeleveringLijn)
+		Do ..ConvertVanHoecke(ToeleveringLijn, Leverancier)
 	} Else {
 		If Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
-			Do ..ConvertHalux(ToeleveringLijn)
+			Do ..ConvertHalux(ToeleveringLijn, Leverancier)
 		}
 		Else {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
@@ -47,7 +74,7 @@
 </Method>
 
 <Method name="ConvertGemeenschappelijk">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
@@ -65,31 +92,32 @@
 	Set ..AxRegel.PurchPrice = ..BepaalPurchPrice(ToeleveringLijn)
 	Set ..AxRegel.PurchQty = ..BepaalPurchQty(ToeleveringLijn)
 	Set ..AxRegel.PurchUnit = "STK"
-	Set ..AxRegel.TaxGroup = ""
+	Set ..AxRegel.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,Leverancier)
 	Set ..AxRegel.TaxItemGroup = "G3"
 	Set ..AxRegel.UnderDeliveryPct = ..BepaalUnderDeliveryPct(ToeleveringLijn)
-	Set ..AxRegel.VendAccount = ""
-	Set ..AxRegel.VendGroup = ""
+	Set ..AxRegel.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,Leverancier)
 	//Set ..AxRegel. = ""
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertVanHoecke">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke(Leverancier)
+]]></Implementation>
 </Method>
 
 <Method name="ConvertHalux">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[	Set ..AxRegel.VendAccount = ..BepaalVendAccountHalux(Leverancier)
+]]></Implementation>
 </Method>
 
 <Method name="BepaalConfirmedDlv">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -108,7 +136,7 @@
 </Method>
 
 <Method name="BepaalDeliveryDate">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -127,7 +155,7 @@
 </Method>
 
 <Method name="BepaalExternalItemId">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -147,7 +175,7 @@
 </Method>
 
 <Method name="BepaalItemId">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -167,7 +195,7 @@
 </Method>
 
 <Method name="BepaalLineAmount">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -187,7 +215,7 @@
 </Method>
 
 <Method name="BepaalLineNumber">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -206,7 +234,7 @@
 </Method>
 
 <Method name="BepaalLinePercent">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -226,7 +254,7 @@
 </Method>
 
 <Method name="BepaalOverDeliveryPct">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -245,7 +273,7 @@
 </Method>
 
 <Method name="BepaalPriceUnit">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -275,7 +303,7 @@
 </Method>
 
 <Method name="BepaalPurchId">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -294,7 +322,7 @@
 </Method>
 
 <Method name="BepaalPurchPrice">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -314,7 +342,7 @@
 </Method>
 
 <Method name="BepaalPurchQty">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -333,7 +361,7 @@
 </Method>
 
 <Method name="BepaalUnderDeliveryPct">
-<FormalSpec>ToeleveringLijn:%RegisteredObject</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -350,6 +378,28 @@
 	Quit UnderDeliveryPct
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVendAccountHalux">
+<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	#Dim LevNummer As %String = $Extract(LevId,$Find(LevId,"||"),$Length(LevId))
+	Set LevNummer = ..LevNrConverter.ConvertorLeveranciersnummerVanHoeckeNaarHalux(LevNummer)
+	Quit ##class(TECH.StringUtils).AddLeadingChar(LevNummer,"0",5)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVendAccountVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Dim LevId As %String = Leverancier.GeefID()
+	Quit ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+]]></Implementation>
+</Method>
 </Class>