Index: AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfConverter.cls.xml	(revision 41244)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.AssortimentenDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AxProduct">
+<Type>AXdixf.Assortimenten.Assortimenten</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeLijnVanProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>ProductID:AX.Uitgaand.PM.Product.impl.Product,HuidigeLijnVanProduct:%Integer</FormalSpec>
+<ReturnType>AXdixf.Assortimenten.Assortimenten</ReturnType>
+<Implementation><![CDATA[
+	Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductID)
+	Set ..HuidigeLijnVanProduct = HuidigeLijnVanProduct
+	
+	Set AxProduct = ##class(AXdixf.Assortimenten.Assortimenten).%New()
+	
+	Set AxProduct.AssortmentID = ..BepaalAssortmentID()
+	Set AxProduct.ItemId = ProductID.Basis.IdentNummer
+	
+	Set ..AxProduct = AxProduct
+	Quit ..AxProduct
+	
+	Quit ..AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAssortmentID">
+<Implementation><![CDATA[
+	#dim AssortmentID As %String
+	#dim LinkType As %String = ..Product.Basis.LinkType
+	#dim KSPrijsLijst As %String = ..Product.Basis.KSPrijsLijst
+	
+	If (..HuidigeLijnVanProduct = 1){
+		If ((KSPrijsLijst = "1") || (KSPrijsLijst = "-1")){
+			Set AssortmentID = "AS000001"
+		}
+		Else {
+			Set AssortmentID = "AS000002"
+		}
+	}
+	ElseIf (..HuidigeLijnVanProduct = 2){
+		If (LinkType = "K"){
+			Set AssortmentID = "AS000003"
+		}
+		ElseIf ((LinkType = "H") || (LinkType = "HH") || (LinkType = "HHZ") || (LinkType = "HZ")){
+			Set AssortmentID = "AS000004"
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Lijn teveel. Als LinkType = '' of 'S', dan geen 2e lijn. LinkType = '"_LinkType_"', huidig aantal lijnen = '"_..HuidigeLijnVanProduct_"' <"))
+		}
+	}
+	Else{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Aantal lijnen per product = max 2. Huidig aantal lijnen = '"_..HuidigeLijnVanProduct_"' <"))
+	}
+	Quit AssortmentID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXdixf/Assortimenten/Assortimenten.cls.xml
===================================================================
diff -u
--- AXdixf/Assortimenten/Assortimenten.cls.xml	(revision 0)
+++ AXdixf/Assortimenten/Assortimenten.cls.xml	(revision 41244)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXdixf.Assortimenten.Assortimenten">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLTYPE">
+<Default>AXdixf.Assortimenten.Assortimenten</Default>
+</Parameter>
+
+<Property name="AssortmentID">
+<Type>%String</Type>
+</Property>
+
+<Property name="DisplayProductNumber">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/AssortimentenDixfGenerator.cls.xml	(revision 41244)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.AssortimentenDixfGenerator">
+<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 AssortimentenIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.Assortimenten.impl.AssortimentenIterator).%New()
+		do ..Generate(AssortimentenIterator)
+		Write !,"Klaar"
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>AssortimentenIterator: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.Assortimenten.Assortimenten", "AssortmentID")
+	Do AXProductData.VoegToeVeld("AXdixf.Assortimenten.Assortimenten", "DisplayProductNumber")
+
+	Set AXProductData.ScheidingsTeken = ";"	
+	Set AXProductData.Iterator = AssortimentenIterator
+	Set AXProductData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"Assortimenten.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/Assortimenten/impl/AssortimentenIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/Assortimenten/impl/AssortimentenIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/Assortimenten/impl/AssortimentenIterator.cls.xml	(revision 41244)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.Assortimenten.impl.AssortimentenIterator">
+<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.Assortimenten.impl.AssortimentenDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Product">
+<Type>AX.Uitgaand.PM.Product.impl.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalLijnenPerProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeLijnVanProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LinkType">
+<Type>%String</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(AX.Uitgaand.PM.Assortimenten.impl.AssortimentenDixfConverter).%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 selectie nodig is...
+	/*_" 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[
+	#Dim HeeftVolgendeLijnVoorProduct, HeeftVolgendProduct As %Boolean = $$$False
+	If (..HuidigeLijnVanProduct > 0) {
+		Set HeeftVolgendeLijnVoorProduct = $$$True
+	} ElseIf (..ResultSet.Next() > 0) {
+		Set HeeftVolgendProduct = $$$True
+		
+		Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.GetData(1))
+		Set ..AantalLijnenPerProduct = ..BepaalAantalLijnenPerProduct()
+		Set ..HuidigeLijnVanProduct = ..AantalLijnenPerProduct
+	}
+	
+	Quit (HeeftVolgendeLijnVoorProduct || HeeftVolgendProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.Assortimenten.Assortimenten</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijnen As %Integer = ..AantalLijnenPerProduct
+	#dim ConvertedProduct As AXdixf.UOMConversie.UOMConversie = ..Converter.Convert(..Product, ..HuidigeLijnVanProduct) 
+	
+	Set ..HuidigeLijnVanProduct = ..HuidigeLijnVanProduct - 1
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalLijnenPerProduct">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim LinkType As %String
+	Set ..LinkType = ..Product.Basis.LinkType
+	
+	If ((..LinkType = "K") || (..LinkType = "H") || (..LinkType = "HH") || (..LinkType = "HHZ") || (..LinkType = "HZ")){
+		Set ..AantalLijnenPerProduct = 2
+	}
+	Else {
+		Set ..AantalLijnenPerProduct = 1
+	}
+	
+	Quit ..AantalLijnenPerProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>