Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r41177 -r41187
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 41177)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 41187)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BestelreferentieSamensteller">
 <Type>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Type>
 <Private>1</Private>
@@ -39,25 +44,26 @@
 </Method>
 
 <Method name="GeefLeverancierNummer">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set:(..LeverancierNummer = "") ..LeverancierNummer = Product.Basis.LeverancierNummer
+	Set:(..LeverancierNummer = "") ..LeverancierNummer = ..Product.Basis.LeverancierNummer
 	Quit ..LeverancierNummer
 ]]></Implementation>
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
+	Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductID)
+	
 	If ..Vestiging = "VanHoecke" {
-		Do ..ConvertVanHoecke(Product)
+		Do ..ConvertVanHoecke()
 	}
 	Else {
 		If ..Vestiging = "Halux" {
-			Do ..ConvertHalux(Product)
+			Do ..ConvertHalux()
 		}
 		Else {
 			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
@@ -69,16 +75,15 @@
 </Method>
 
 <Method name="ConvertVanHoecke">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
 	Set AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationVH(Product)
-	Set AxProduct.ExternalItemID = Product.Basis.LeverancierReferentie
-	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
+	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationVH()
+	Set AxProduct.ExternalItemID = ..Product.Basis.LeverancierReferentie
+	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(..Product)
 	Set AxProduct.InventDimID = "AllBlank"
-	Set AxProduct.ItemId = Product.Basis.IdentNummer
+	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
 	Set AxProduct.ModuleType = "03"
 
 	Set ..AxProduct = AxProduct
@@ -87,16 +92,15 @@
 </Method>
 
 <Method name="ConvertHalux">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
 	Set AxProduct = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationHLX(Product)
-	Set AxProduct.ExternalItemID = Product.Basis.LeverancierReferentie
-	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(Product)
+	Set AxProduct.CustVendRelation = ..BepaalCustVendRelationHLX()
+	Set AxProduct.ExternalItemID = ..Product.Basis.LeverancierReferentie
+	Set AxProduct.ExternalItemTXT = ..BestelreferentieSamensteller.SamenstellingBestelreferentieProductenInEenString(..Product)
 	Set AxProduct.InventDimID = "AllBlank"
-	Set AxProduct.ItemId = Product.Basis.IdentNummer
+	Set AxProduct.ItemId = ..Product.Basis.IdentNummer
 	Set AxProduct.ModuleType = "03"
 	
 	Set ..AxProduct = AxProduct
@@ -105,13 +109,12 @@
 </Method>
 
 <Method name="BepaalCustVendRelationVH">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CustVendRelationVH As %String
-	#dim DefaultOrderTypeVH As %String = ##class(AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter).%New().BepaalDefaultOrderTypeVH(Product)
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim DefaultOrderTypeVH As %String = ..BepaalDefaultOrderTypeVH()
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
 	
 	Set CustVendRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
 
@@ -120,12 +123,11 @@
 </Method>
 
 <Method name="BepaalCustVendRelationHLX">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CustVendRelationHLX As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
 	
 	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
 	Set CustVendRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
@@ -135,13 +137,12 @@
 </Method>
 
 <Method name="BepaalDefaultOrderTypeVH">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BepaalDefaultOrderTypeVH As %String
-	#dim LinkType As %String = Product.Basis.LinkType
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LinkType As %String = ..Product.Basis.LinkType
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
 	
 	If ((LinkType = "S") && (LeverancierNummer = "6051")){
 		Set BepaalDefaultOrderTypeVH = "Productie"
@@ -154,12 +155,11 @@
 </Method>
 
 <Method name="BepaalDefaultOrderTypeHLX">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim BepaalDefaultOrderTypeHLX As %String
-	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer()
 	
 	If (LeverancierNummer = "6332") {
 		Set BepaalDefaultOrderTypeHLX = "Productie"