Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42237 -r42264
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42237)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42264)
@@ -106,6 +106,7 @@
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
+	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
@@ -120,6 +121,7 @@
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 7"
+	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionHalux(Leverancier)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountHalux(Leverancier)
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountHalux(Leverancier)
 	Set ..AxHoofding.Payment = ""
@@ -128,6 +130,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalDefaultDimensionHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</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.Leverancier</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="BepaalInvoiceAccountHalux">
 <FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
 <Private>1</Private>