Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42691 -r42720
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42691)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml	(.../AankoopOrderHoofdingDixfConverter.cls.xml)	(revision 42720)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BlumKundeOmzetter">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DatumFormatter">
 <Type>TECH.Format.FormatAPI</Type>
 <Private>1</Private>
@@ -45,6 +50,7 @@
 	Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
 	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
 	Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -108,7 +114,7 @@
 	Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
 	Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
 	Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
-	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
+	Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier,Toelevering)
 	Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
 	Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke(Leverancier)
 	Set ..AxHoofding.VendorRef = ..BepaalVendorRefVanHoecke(Leverancier,Toelevering)
@@ -199,12 +205,20 @@
 </Method>
 
 <Method name="BepaalOrderAccountVanHoecke">
-<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 OrderAccountVanHoecke 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 OrderAccountVanHoecke = ..BlumKundeOmzetter.AdminNaarAx(Toelevering.GeefKlantNummerBijLeverancier())
+	} Else {
+		Set OrderAccountVanHoecke = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	}
+	
+	Quit OrderAccountVanHoecke
 ]]></Implementation>
 </Method>