Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevIterator.cls.xml	(revision 41173)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter).%New(Vestiging)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%'"
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+	#dim ConvertedProduct As AXdixf.ExtArtOmschr.ExtArtOmschr = ..Converter.Convert(Product)
+	
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfGenerator.cls.xml	(revision 41173)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Try {
+		#dim ProductIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevIterator).%New(,Vestiging)
+		do ..Generate(ProductIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>ProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "CustVendRelation")
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ExternalItemID")
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ExternalItemTXT")
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "InventDimID")
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ItemId")
+	Do AXProductData.VoegToeVeld("AXdixf.ExtArtOmschr.ExtArtOmschr", "ModuleType")
+
+	
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"ExtArtOmschrLev"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(revision 41173)
@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.ExtArtOmschr.ExtArtOmschr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelreferentieSamensteller">
+<Type>AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Vestiging:%String,LeverancierNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Vestiging = Vestiging
+	Set ..LeverancierNummer = LeverancierNummer
+	Set ..BestelreferentieSamensteller = ##class(AX.Uitgaand.PM.impl.SamenstellingBestelreferentieProductenInEenString).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierNummer">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:(..LeverancierNummer = "") ..LeverancierNummer = Product.Basis.LeverancierNummer
+	Quit ..LeverancierNummer
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
+<Implementation><![CDATA[
+	If ..Vestiging = "VanHoecke" {
+		Do ..ConvertVanHoecke(Product)
+	}
+	Else {
+		If ..Vestiging = "Halux" {
+			Do ..ConvertHalux(Product)
+		}
+		Else {
+			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+		}
+	}
+	Set ..LeverancierNummer = ""
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVanHoecke">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<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.InventDimID = "AllBlank"
+	Set AxProduct.ItemId = Product.Basis.IdentNummer
+	Set AxProduct.ModuleType = "03"
+
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<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.InventDimID = "AllBlank"
+	Set AxProduct.ItemId = Product.Basis.IdentNummer
+	Set AxProduct.ModuleType = "03"
+	
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCustVendRelationVH">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<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)
+	
+	Set CustVendRelationVH = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit CustVendRelationVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalCustVendRelationHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim CustVendRelationHLX As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	Set LeverancierNummer = ##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New().ConvertorLeveranciersnummerVanHoeckeNaarHalux(LeverancierNummer)
+	Set CustVendRelationHLX = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5)
+
+	Quit CustVendRelationHLX
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDefaultOrderTypeVH">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BepaalDefaultOrderTypeVH As %String
+	#dim LinkType As %String = Product.Basis.LinkType
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	If ((LinkType = "S") && (LeverancierNummer = "6051")){
+		Set BepaalDefaultOrderTypeVH = "Productie"
+	}
+	Else {
+		Set BepaalDefaultOrderTypeVH = "Aankooporder"
+	}
+	Quit BepaalDefaultOrderTypeVH
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDefaultOrderTypeHLX">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BepaalDefaultOrderTypeHLX As %String
+	#dim LeverancierNummer As %String = ..GeefLeverancierNummer(Product)
+	
+	If (LeverancierNummer = "6332") {
+		Set BepaalDefaultOrderTypeHLX = "Productie"
+	}
+	Else {
+		Set BepaalDefaultOrderTypeHLX = "Aankooporder"
+	}
+	Quit BepaalDefaultOrderTypeHLX
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>