Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42800 -r42844
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42800)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42844)
@@ -110,7 +110,7 @@
 <ReturnType>AXdixf.AankoopOrderHoofding.AankoopOrderHoofding</ReturnType>
 <Implementation><![CDATA[
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
-	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
+	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier,Toelevering)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
 	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier,Toelevering)
 	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
@@ -147,12 +147,20 @@
 </Method>
 
 <Method name="BepaalDefaultDimensionVanHoecke">
-<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#Dim DefaultDimensionVanHoecke As %String
 	#Dim LevId As %String = Leverancier.GeefID()
-	Quit ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	
+	If (LevId = "L||5005"){
+		Set DefaultDimensionVanHoecke = ..BlumKundeOmzetter.AdminNaarAx(Toelevering.GeefKlantNummerBijLeverancier())
+	} Else {
+		Set DefaultDimensionVanHoecke = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	}
+	
+	Quit DefaultDimensionVanHoecke
 ]]></Implementation>
 </Method>
 
@@ -208,13 +216,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim OrderAccountVanHoecke As %String = ""
-	#Dim LevId As %String = Leverancier.GeefID()
 	
-	If (LevId = "L||5005"){
-		Set OrderAccountVanHoecke = ..BlumKundeOmzetter.AdminNaarAx(Toelevering.GeefKlantNummerBijLeverancier())
-	} Else {
-		Set OrderAccountVanHoecke = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
-	}
+	Set OrderAccountVanHoecke = ..BepaalDefaultDimensionVanHoecke(Leverancier,Toelevering)
 	
 	Quit OrderAccountVanHoecke
 ]]></Implementation>