Index: AXdixf/AankoopOrderRegel/AankoopOrderRegel.cls.xml
===================================================================
diff -u -r42265 -r42294
--- AXdixf/AankoopOrderRegel/AankoopOrderRegel.cls.xml	(.../AankoopOrderRegel.cls.xml)	(revision 42265)
+++ AXdixf/AankoopOrderRegel/AankoopOrderRegel.cls.xml	(.../AankoopOrderRegel.cls.xml)	(revision 42294)
@@ -15,6 +15,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="DefaultDimension">
+<Type>%String</Type>
+</Property>
+
 <Property name="DeliveryDate">
 <Type>%String</Type>
 </Property>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml
===================================================================
diff -u -r42265 -r42294
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(.../AankoopOrderRegelDixfGenerator.cls.xml)	(revision 42265)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(.../AankoopOrderRegelDixfGenerator.cls.xml)	(revision 42294)
@@ -36,6 +36,7 @@
 	Set AXRegelData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ConfirmedDlv")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "CurrencyCode")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "DefaultDimension")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "DeliveryDate")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ExternalItemId")
 	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "InventLocationId")
Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml
===================================================================
diff -u -r42265 -r42294
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42265)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 42294)
@@ -634,6 +634,48 @@
 ]]></Implementation>
 </Method>
 
+<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[
+	#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 AXimpl.InterneFirmaInitialen = ##class(AXimpl.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.DefaultDimension,"05000")
+	
+	Do ..LevNrConverterStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<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[
+	#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 AXimpl.InterneFirmaInitialen = ##class(AXimpl.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.DefaultDimension,"05002")
+]]></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()
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42265 -r42294
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42265)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42294)
@@ -105,6 +105,7 @@
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
+	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
 	Set ..AxRegel.InventLocationId = "MAG1"
 	Set ..AxRegel.InventSiteId = "VHEPN1"
 	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke(Leverancier)
@@ -116,6 +117,7 @@
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
+	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionHalux(Leverancier)
 	Set ..AxRegel.InventLocationId = "MAG2"
 	Set ..AxRegel.InventSiteId = "HLXEPN1"
 	Set ..AxRegel.VendAccount = ..BepaalVendAccountHalux(Leverancier)
@@ -141,6 +143,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalDefaultDimensionHalux">
+<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="BepaalDefaultDimensionVanHoecke">
+<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>
+
 <Method name="BepaalDeliveryDate">
 <FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>