Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml
===================================================================
diff -u
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml	(revision 0)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfConverter.cls.xml	(revision 41316)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxTestProduct">
+<Type>zTryout.THB.AXdixf.TestProduct.TestProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeverancierNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverancierNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LeverancierNummer = LeverancierNummer
+	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>zTryout.THB.AXdixf.TestProduct.TestProduct</ReturnType>
+<Implementation><![CDATA[
+	Set AxTestProduct = ##class(zTryout.THB.AXdixf.TestProduct.TestProduct).%New()
+	
+	// Default velden:
+	Set AxTestProduct.IdentNummer = Product.Basis.IdentNummer
+	Set AxTestProduct.ID = Product.Basis.%Id()
+	
+	// Te ontdekken velden:
+	// Set AxTestProduct. = 
+	Set AxTestProduct.HoofdGroep = Product.Klassificatie.HoofdGroep
+	Set AxTestProduct.SubGroep = Product.Klassificatie.SubGroep
+	Set AxTestProduct.Klas = Product.Klassificatie.Klas
+	
+	Set ..AxTestProduct = AxTestProduct
+	Set ..LeverancierNummer = ""
+	Quit ..AxTestProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml
===================================================================
diff -u
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml	(revision 0)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductDixfGenerator.cls.xml	(revision 41316)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		#dim TestProductIterator As TECH.Iterator = ##class(zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductIterator).%New()
+		do ..Generate(TestProductIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>TestProductIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXTestProductData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXTestProductData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "IdentNummer")
+	Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "ID")
+	
+	// Hieronder kunnen de niet-default velden bijgevoegd worden (Zie ook klasse: zTryout.THB.AXdixf.TestProduct.TestProduct):
+	// Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "")
+	Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "HoofdGroep")
+	Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "SubGroep")
+	Do AXTestProductData.VoegToeVeld("zTryout.THB.AXdixf.TestProduct.TestProduct", "Klas")
+	
+
+	Set AXTestProductData.ScheidingsTeken = ";"	
+	Set AXTestProductData.Iterator = TestProductIterator
+	Set AXTestProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"TestProduct.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXTestProductData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml
===================================================================
diff -u
--- zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml	(revision 0)
+++ zTryout/THB/AX/Uitgaand/PM/TestProduct/impl/TestProductIterator.cls.xml	(revision 41316)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductIterator">
+<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>zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</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(zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfConverter).%New()
+	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%'"
+	// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+	_" and ID in (1432226,1432225,1425096,1425095,682391,1359867,1168696,1168689,830507,1155640,161442,906194,709825,924268,"
+	_"1124771,1038806,1039173,1039208,1247980,353741,353743,353744,254245,254258,1259381,161441,665626,1067709,1067714,268026,"
+	_"1168369,668615,878186,878220,1169509,1194443,383880,830257)"
+	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>zTryout.THB.AXdixf.TestProduct.TestProduct</ReturnType>
+<Implementation><![CDATA[
+	Set TestProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+	#dim ConvertedTestProduct As zTryout.THB.AXdixf.TestProduct.TestProduct = ..Converter.Convert(TestProduct)
+	Quit ConvertedTestProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml
===================================================================
diff -u
--- zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml	(revision 0)
+++ zTryout/THB/AXdixf/TestProduct/TestProduct.cls.xml	(revision 41316)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.AXdixf.TestProduct.TestProduct">
+<Super>TECH.DataTransferObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Deze DTO-klasse kan gebruikt worden om uit te proberen wat er precies in een veld in Admin zit:
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Zie klasse: zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfGenerator
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Zie klasse: zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductIterator
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Zie klasse: zTryout.THB.AX.Uitgaand.PM.TestProduct.impl.TestProductDixfConverter
+
+]]></Content>
+</UDLText>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.TestProduct.TestProduct</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Volgende 2 properties zijn defaults en worden gebruikt om  het IdentNummer en ID in weg te schrijven:
+
+]]></Content>
+</UDLText>
+
+<Property name="IdentNummer">
+<Type>%String</Type>
+</Property>
+
+<Property name="ID">
+<Type>%String</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Te ontdekken velden kunnen hieronder als properties aangemaakt worden:
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property  As %String;
+
+]]></Content>
+</UDLText>
+
+<Property name="HoofdGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="SubGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="Klas">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>