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>