Index: AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGeneratorRefactored.cls.xml
===================================================================
diff -u -r43330 -r43340
--- AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGeneratorRefactored.cls.xml	(.../KlantenAssortimentGeneratorRefactored.cls.xml)	(revision 43330)
+++ AX/Uitgaand/PM/Assortimenten/impl/KlantenAssortimentGeneratorRefactored.cls.xml	(.../KlantenAssortimentGeneratorRefactored.cls.xml)	(revision 43340)
@@ -15,6 +15,11 @@
 <Type>AX.Uitgaand.PM.Assortimenten.impl.AssortimentCategorieBepaler</Type>
 </Property>
 
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="HoofdingFileWriter">
 <Type>TECH.File.FileWriter</Type>
 <Private>1</Private>
@@ -39,12 +44,16 @@
 <Type>%String</Type>
 </Property>
 
-<Property name="KLNr">
+<Property name="KLNaam">
 <Description>
 Property AssortimentGroep As %String;</Description>
 <Type>%String</Type>
 </Property>
 
+<Property name="KLNr">
+<Type>%String</Type>
+</Property>
+
 <Property name="DeviceProducten">
 <Type>%String</Type>
 </Property>
@@ -99,8 +108,9 @@
 	
 	Set itKlant=..KlantIterator()
 	While itKlant.HasNext() {
-		Set rs=itKlant.Next()
-		Set ..KLNr=rs.Data("Klant")
+		#dim Klant As AX.Uitgaand.EC.Klanten.impl.Klanten =itKlant.Next()
+		Set ..KLNr= Klant.Klant.Nummer
+		Set ..KLNaam = Klant.Klant.Naam
 		Continue:'((..KLNr=4810)||(..KLNr=23112)||(..KLNr=1736))
 		Do ..ExportKlant()
 	}
@@ -169,12 +179,12 @@
 <Method name="KlantIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("Select Klant from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID=?")
-	
- 	Set sc=rs.Execute(..GenerationID)
-	Set it=##class(TECH.ResultSetIterator).%New(rs)
-	Quit it
+	Set rs =##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select ID from AX_Uitgaand_EC_Klanten_impl.Klanten where GenerationID = ?")
+	Do rs.Execute(..GenerationID)
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(rs)
+	#dim Statement As %String = "##class(AX.Uitgaand.EC.Klanten.impl.Klanten).%OpenId(Item.GetData(1))"
+	Quit ##class(TECH.DynamicIterator).%New(ResultSetIterator,Statement)
 ]]></Implementation>
 </Method>
 
@@ -191,7 +201,7 @@
 <Implementation><![CDATA[
 	Do ..ClearTableID()
 	Do ..ClearAssortimentGroep()
-	Do ..HoofdingStream.WriteLine(..GeefTableID()_";"_..GeefKlantIDInAXFormaat())
+	Do ..HoofdingStream.WriteLine(..GeefTableID()_";"_..GeefKlantIDInAXFormaat()_";"_"assortiment voor "_..GeefKlantIDInAXFormaat()_" "_..KLNaam)
 ]]></Implementation>
 </Method>