Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u -r42837 -r42841
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42837)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(.../AankoopOrderRegelDixfConverter.cls.xml)	(revision 42841)
@@ -3,16 +3,32 @@
 <Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="AxProduct">
-<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Property name="IsBlumProduct">
+<Type>%Boolean</Type>
+<InitialExpression>$$$False</InitialExpression>
 <Private>1</Private>
 </Property>
 
+<Property name="Leverancier">
+<Type>DOM.AKP.Leverancier</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AankoopAPI">
 <Type>DOM.AKP.AankoopAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="AxProduct">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxRegel">
+<Type>AXdixf.AankoopOrderRegel.AankoopOrderRegel</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BlumKundeOmzetter">
 <Type>AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde</Type>
 <Private>1</Private>
@@ -23,12 +39,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IsBlumProduct">
-<Type>%Boolean</Type>
-<InitialExpression>$$$False</InitialExpression>
-<Private>1</Private>
-</Property>
-
 <Property name="LevNrConverter">
 <Type>AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
 <Private>1</Private>
@@ -54,11 +64,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AxRegel">
-<Type>AXdixf.AankoopOrderRegel.AankoopOrderRegel</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>AankoopApi:DOM.AKP.AankoopAPI,Utils:AXimpl.Utils,LevNrConverter:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux</FormalSpec>
 <Private>1</Private>
@@ -82,34 +87,34 @@
 <FormalSpec>ToeleveringLijn:%RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
-	#dim Leverancier As DOM.AKP.Leverancier = ""
-	
 	If ToeleveringLijn.%Extends("DOM.AKP.ProductToeleveringLijn")
 	{
-		Set Leverancier = ..AankoopAPI.GeefLeverancier(ToeleveringLijn.GeefToelevering().GeefLeverancierID())
+		Set ..Leverancier = ..AankoopAPI.GeefLeverancier(ToeleveringLijn.GeefToelevering().GeefLeverancierID())
 		Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ToeleveringLijn.GeefProductID())
 	} ElseIf ToeleveringLijn.%Extends("APPS.EDIExport.AankoopOrderResponse.BLUM.impl.BlOrdRsp")
 	{
-		Set Leverancier = ##class(DOM.AKP.impl.DataM.DataMLeverancier).%New(5005)
+		Set ..Leverancier = ##class(DOM.AKP.impl.DataM.DataMLeverancier).%New(5005)
 		#dim AxProductIdentNummer As %String = ToeleveringLijn.LeverancierReferentie
 		Set AxProductIdentNummer = $Extract(AxProductIdentNummer,1)_"."_$Extract(AxProductIdentNummer,2,4)_"."_$Extract(AxProductIdentNummer,5,7)_"."_$Extract(AxProductIdentNummer,8)
-		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(ToeleveringLijn.ToeleveringNr,"L||5005")
+		#dim Toelevering As DOM.AKP.impl.DataM.DataMToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(ToeleveringLijn.ToeleveringNr,"L||5005")
 		#dim KundeNr As %String = Toelevering.GeefKlantNummerBijLeverancier()
 		Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ProductApi.GeefProductIdVolgensIdentNummer(AxProductIdentNummer,KundeNr))
 	}
+	
 	Set ..AxRegel = ##class(AXdixf.AankoopOrderRegel.AankoopOrderRegel).%New()
 	
-	Do ..BepaalIsBlumProduct(Leverancier)
+	Do ..BepaalIsBlumProduct()
+	
 	If ..IsBlumProduct {
 		Do ..MaakSoprAxProduct()
 	}
 	
-	Do ..ConvertGemeenschappelijk(ToeleveringLijn, Vestiging, Leverancier)
+	Do ..ConvertGemeenschappelijk(ToeleveringLijn, Vestiging)
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		Do ..ConvertVanHoecke(ToeleveringLijn, Leverancier)
+		Do ..ConvertVanHoecke(ToeleveringLijn)
 	} ElseIf Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
-		Do ..ConvertHalux(ToeleveringLijn, Leverancier)
+		Do ..ConvertHalux(ToeleveringLijn)
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_Vestiging))
 	}
@@ -121,7 +126,7 @@
 </Method>
 
 <Method name="ConvertGemeenschappelijk">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
@@ -131,7 +136,7 @@
 	Set ..AxRegel.DeliveryDate = ..BepaalDeliveryDate(ToeleveringLijn)
 	Set ..AxRegel.ExternalItemId = ..BepaalExternalItemId(ToeleveringLijn)
 	Set ..AxRegel.InventLocationId = "CACHE"
-	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn,Vestiging,Leverancier)
+	Set ..AxRegel.ItemId = ..BepaalItemId(ToeleveringLijn,Vestiging)
 	Set ..AxRegel.LineAmount = ..BepaalLineAmount(ToeleveringLijn)
 	Set ..AxRegel.LineNumber = ..BepaalLineNumber(ToeleveringLijn)
 	Set ..AxRegel.LinePercent = ..BepaalLinePercent(ToeleveringLijn)
@@ -141,33 +146,33 @@
 	Set ..AxRegel.PurchPrice = ..BepaalPurchPrice(ToeleveringLijn)
 	Set ..AxRegel.PurchQty = ..BepaalPurchQty(ToeleveringLijn)
 	Set ..AxRegel.PurchUnit = "STK"
-	Set ..AxRegel.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,Leverancier)
+	Set ..AxRegel.TaxGroup = ..Utils.ConvertLeverancierTaxGroup(Vestiging,..Leverancier)
 	Set ..AxRegel.TaxItemGroup = "G3"
 	Set ..AxRegel.UnderDeliveryPct = ..BepaalUnderDeliveryPct(ToeleveringLijn)
-	Set ..AxRegel.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,Leverancier)
+	Set ..AxRegel.VendGroup = ..Utils.ConvertLeverancierVendGroup(Vestiging,..Leverancier)
 	//Set ..AxRegel. = ""
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertVanHoecke">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
-	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
+	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionVanHoecke()
 	Set ..AxRegel.InventSiteId = "VHEPN1"
-	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke(Leverancier)
+	Set ..AxRegel.VendAccount = ..BepaalVendAccountVanHoecke()
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertHalux">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
 <Implementation><![CDATA[
-	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionHalux(Leverancier)
+	Set ..AxRegel.DefaultDimension = ..BepaalDefaultDimensionHalux()
 	Set ..AxRegel.InventSiteId = "HLXEPN1"
-	Set ..AxRegel.VendAccount = ..BepaalVendAccountHalux(Leverancier)
+	Set ..AxRegel.VendAccount = ..BepaalVendAccountHalux()
 ]]></Implementation>
 </Method>
 
@@ -191,24 +196,30 @@
 </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 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)
+	#dim DefaultDimensionVanHoecke As %String
+	#Dim LevId As %String = ..Leverancier.GeefID()
+	
+	If ..IsBlumProduct {
+		Set DefaultDimensionVanHoecke = ..BepaalLeverancierVolgensBlumKunde()
+	} Else {
+		Set DefaultDimensionVanHoecke = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	}
+	
+	Quit DefaultDimensionVanHoecke
 ]]></Implementation>
 </Method>
 
@@ -252,7 +263,7 @@
 </Method>
 
 <Method name="BepaalItemId">
-<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
+<FormalSpec>ToeleveringLijn:TECH.RegisteredObject,Vestiging:AXimpl.InterneFirmaInitialen</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -463,40 +474,32 @@
 </Method>
 
 <Method name="BepaalVendAccountHalux">
-<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim LevId As %String = Leverancier.GeefID()
+	#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="BepaalVendAccountVanHoecke">
-<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#Dim LevId As %String = Leverancier.GeefID()
+	#dim VendAccountVanHoecke As %String
 	
-	Set LevId = ##class(TECH.StringUtils).AddLeadingChar($Extract(LevId,$Find(LevId,"||"),$Length(LevId)),"0",5)
+	Set VendAccountVanHoecke = ..BepaalDefaultDimensionVanHoecke()
 	
-	If ..IsBlumProduct {
-		If (..SoprAxProduct.HeeftVervangSoprPRNr = $$$True) {
-			Set LevId = ..BepaalLeverancierVolgensBlumKunde()
-	}}
-	
-	Quit LevId
+	Quit VendAccountVanHoecke
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalIsBlumProduct">
-<FormalSpec>Leverancier:DOM.AKP.impl.DataM.DataMLeverancier</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim LeverancierId As %String = Leverancier.GeefID()
+	#dim LeverancierId As %String = ..Leverancier.GeefID()
 	
 	If (LeverancierId = "L||5005") {
 		Set ..IsBlumProduct = $$$True