Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstIterator.cls.xml	(revision 40774)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// VestSpecOrdInst = VestigingSpecifiekeOrderInstelling
+
+]]></Content>
+</UDLText>
+
+<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.VestSpecOrdInst.impl.VestSpecOrdInstDixfConverter</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.VestSpecOrdInst.impl.VestSpecOrdInstDixfConverter).%New(,Vestiging)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SqlTableProdProduct As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("Prod.Product")
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT IdentNummer FROM "_SqlTableProdProduct_" 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.VestSpecOrdInst.VestSpecOrdInst</ReturnType>
+<Implementation><![CDATA[
+	#dim VestSpecOrdInst As AXdixf.VestSpecOrdInst.VestSpecOrdInst = ..Converter.Convert(..ResultSet)
+	Quit VestSpecOrdInst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfConverter.cls.xml	(revision 40774)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// VestSpecOrdInst = VestigingSpecifiekeOrderInstelling
+
+]]></Content>
+</UDLText>
+
+<Property name="ProductBepaler">
+<Type>AXdixf.VestSpecOrdInst.VestSpecOrdInst</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxProduct">
+<Type>AXdixf.VestSpecOrdInst.VestSpecOrdInst</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductBepaler:AXdixf.VestSpecOrdInst.VestSpecOrdInst,Vestiging:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductBepaler = $$$Inject(ProductBepaler, ##class(AXdixf.VestSpecOrdInst.VestSpecOrdInst).%New())
+	Set ..Vestiging = Vestiging
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>AXdixf.VestSpecOrdInst.VestSpecOrdInst</ReturnType>
+<Implementation><![CDATA[
+	If ..Vestiging = "VanHoecke" {
+		Do ..ConvertVanHoecke(ResultSet)
+	}
+	Else {
+		If ..Vestiging = "Halux" {
+			Do ..ConvertHalux(ResultSet)
+		}
+		Else {
+			Write !,"Geef als parameter ofwel VanHoecke, ofwel Halux mee!"
+		}
+	}
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVanHoecke">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>AXdixf.VestSpecOrdInst.VestSpecOrdInst</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AXdixf.VestSpecOrdInst.VestSpecOrdInst).%New()
+	Set AxProduct.InventDimId = "VHEPN1"
+	Set AxProduct.InventLocationId = "MAG1"
+	Set AxProduct.ItemId = ResultSet.GetDataByName("IdentNummer")
+	Set AxProduct.PurchInventLocationId = "MAG1"
+	Set AxProduct.SalesInventLocationId = "MAG1"
+	Set AxProduct.InventSiteId = "VHEPN1"
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="ConvertHalux">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>AXdixf.VestSpecOrdInst.VestSpecOrdInst</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AXdixf.VestSpecOrdInst.VestSpecOrdInst).%New()
+	Set AxProduct.InventDimId = "HLXEPN1"
+	Set AxProduct.InventLocationId = "MAG2"
+	Set AxProduct.ItemId = ResultSet.GetDataByName("IdentNummer")
+	Set AxProduct.PurchInventLocationId = "MAG2"
+	Set AxProduct.SalesInventLocationId = "MAG2"
+	Set AxProduct.InventSiteId = "HLXEPN1"
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/VestSpecOrdInst/impl/VestSpecOrdInstDixfGenerator.cls.xml	(revision 40774)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.VestSpecOrdInst.impl.VestSpecOrdInstDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// VestSpecOrdInst = VestigingSpecifiekeOrderInstelling
+
+]]></Content>
+</UDLText>
+
+<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.VestSpecOrdInst.impl.VestSpecOrdInstIterator).%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.VestSpecOrdInst.VestSpecOrdInst", "InventDimId","InventDimId")
+	Do AXProductData.VoegToeVeld("AXdixf.VestSpecOrdInst.VestSpecOrdInst", "InventLocationId","InventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VestSpecOrdInst.VestSpecOrdInst", "ItemId","ItemId")
+	Do AXProductData.VoegToeVeld("AXdixf.VestSpecOrdInst.VestSpecOrdInst", "PurchInventLocationId","Purch_InventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VestSpecOrdInst.VestSpecOrdInst", "SalesInventLocationId","Sales_InventLocationId")
+	Do AXProductData.VoegToeVeld("AXdixf.VestSpecOrdInst.VestSpecOrdInst", "InventSiteId","InventSiteId")
+	
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = ProductIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"VestSpecOrdInst"_..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>