Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml
===================================================================
diff -u -r42885 -r45400
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42885)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45400)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringStub">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="UtilsStub">
 <Type>vhTest.Mock.AXimpl.Utils</Type>
 <Private>1</Private>
@@ -55,6 +60,7 @@
 	Do ToeleveringStub.IndienMethodCall("GeefAanmaakDatum").DanReturn(50000)
 	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5005||200000")
 	Do ToeleveringStub.IndienMethodCall("GeefReferentie").DanReturn("Ref")
+	Set ..ToeleveringStub = ToeleveringStub
 	
 	Set ProductToeleveringLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
 	Do ProductToeleveringLijnStub.IndienMethodCall("GeefLeverdag").DanReturn(50000)
@@ -98,6 +104,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -117,6 +126,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..LevNrConverterStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -133,6 +145,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..LevNrConverterStub.IndienMethodCall("ConvertorLeveranciersnummerVanHoeckeNaarHalux",$$$ElkeWaarde).DanReturn("5000")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).HaluxNv()
@@ -148,6 +163,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -163,6 +181,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -173,11 +194,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit KTO komt moet ExternalItemId de LeverancierReferentie van het Product zijn">
+<Method name="Test: Als de ToeleveringLijn uit KTO komt en de leverancier is niet Blum dan 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")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
+	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
+	Set ..AankoopApi = AankoopApiStub
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -188,11 +216,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ExternalItemId de LeverancierReferentie zijn zonder voorloopnul en met om de 3 karakters een punt">
+<Method name="Test: Als de ToeleveringLijn uit KTO komt en de leverancier is Blum dan moet ExternalItemId de LeverancierReferentie van het Product zijn zonder puntjes">
 <Implementation><![CDATA[
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5005")
+	
+	#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 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.ExternalItemId ,"L1234510")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als de ToeleveringLijn uit BlOrdRsp komt moet ExternalItemId de LeverancierReferentie zijn zonder voorloopnul">
+<Implementation><![CDATA[
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
+	
 	Set ..BlOrdRspStub.VolledigeLijn = """22258655.01       0663417000000026.23      017021323V      0000000.00          """
 	Set ..BlOrdRspStub.ToeleveringNr = "258655"
 	
@@ -202,7 +251,7 @@
 	
 	#dim AankoopOrderRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = Converter.Convert(..BlOrdRspStub,Vestiging)
 	
-	Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"663.417.0")
+	Do $$$AssertEquals(AankoopOrderRegel.ExternalItemId ,"6634170")
 ]]></Implementation>
 </Method>
 
@@ -211,6 +260,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -244,6 +296,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -259,6 +314,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -292,6 +350,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -307,6 +368,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -322,6 +386,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -339,6 +406,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -356,6 +426,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -373,6 +446,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -390,6 +466,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -408,6 +487,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -441,6 +523,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -456,6 +541,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -486,8 +574,11 @@
 
 <Method name="Test: Bij default wordt de TaxGroup bepaald">
 <Implementation><![CDATA[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -510,6 +601,9 @@
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierVendGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
 	
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim Converter As AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter = ..GeefConverter()
 	
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
@@ -522,8 +616,11 @@
 
 <Method name="Test: Voor Halux is DefaultDimension het cijfer in het LeverancierId na het dubbel pipeteken omgezet volgens LevNrConverter met voorloopnul indien kleiner dan 10000">
 <Implementation><![CDATA[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
@@ -545,8 +642,11 @@
 
 <Method name="Test: Voor Van Hoecke is DefaultDimension het cijfer in het LeverancierId na het dubbel pipeteken met voorloopnul indien kleiner dan 10000">
 <Implementation><![CDATA[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
@@ -564,8 +664,11 @@
 
 <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[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
@@ -587,8 +690,11 @@
 
 <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[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 	
 	Do ..UtilsStub.IndienMethodCall("ConvertLeverancierTaxGroup",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn("BX")
@@ -606,8 +712,11 @@
 
 <Method name="Test: Bij default wordt de VendGroup bepaald">
 <Implementation><![CDATA[
+	Do ..LeverancierStub.IndienMethodCall("GeefID").DanReturn("L||5002")
+	Do ..ToeleveringStub.IndienMethodCall("GeefLeverancierID").DanReturn("L||5002")
+	
 	#dim AankoopApiStub As vhTest.Mock.DOM.AKP.AankoopAPI = ##class(vhTest.Mock.DOM.AKP.AankoopAPI).MockInstance()
-	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5005").DanReturn(..LeverancierStub)
+	Do AankoopApiStub.IndienMethodCall("GeefLeverancier","L||5002").DanReturn(..LeverancierStub)
 	Set ..AankoopApi = AankoopApiStub
 
 	#dim Vestiging As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42885 -r45400
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42885)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 45400)
@@ -233,9 +233,11 @@
 	
 	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn") {
 		Set ExternalItemId = ##class(Prod.Product).%OpenId(ToeleveringLijn.GeefProductID()).LeverancierReferentie
+		If (..Leverancier.GeefID() = "L||5005"){
+			Set ExternalItemId = $Translate(ExternalItemId,".","")
+		}
 	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp") {
-		#dim LeverancierReferentie As %String = ToeleveringLijn.LeverancierReferentie
-		Set ExternalItemId = $Extract(LeverancierReferentie,2,4)_"."_$Extract(LeverancierReferentie,5,7)_"."_$Extract(LeverancierReferentie,8)
+		Set ExternalItemId = $Extract(ToeleveringLijn.LeverancierReferentie,2,8)
 	}
 	
 	Quit ExternalItemId