Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r39215 -r39217
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39215)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39217)
@@ -247,17 +247,12 @@
 <Implementation><![CDATA[
 	#dim NietMeeleveren As %String = ""
 	
-	Set:Product.NietMeeleveren.Find("NMAK") NietMeeleveren=NietMeeleveren_"NMAK;"
-	Set:Product.NietMeeleveren.Find("NMBS") NietMeeleveren=NietMeeleveren_"NMBS;"
-	Set:Product.NietMeeleveren.Find("NMBDS") NietMeeleveren=NietMeeleveren_"NMBDS;"
-	Set:Product.NietMeeleveren.Find("NMCP") NietMeeleveren=NietMeeleveren_"NMCP;"
-	Set:Product.NietMeeleveren.Find("NMFB") NietMeeleveren=NietMeeleveren_"NMFB;"
-	Set:Product.NietMeeleveren.Find("NMOVL") NietMeeleveren=NietMeeleveren_"NMOVL;"
-	Set:Product.NietMeeleveren.Find("NMRL") NietMeeleveren=NietMeeleveren_"NMRL;"
-	Set:Product.NietMeeleveren.Find("NMTOBSET") NietMeeleveren=NietMeeleveren_"NMTOBSET;"
-	Set:Product.NietMeeleveren.Find("NMTOBSTG") NietMeeleveren=NietMeeleveren_"NMTOBSTG;"
-	Set:Product.NietMeeleveren.Find("NMTOBTOEB") NietMeeleveren=NietMeeleveren_"NMTOBTOEB;"
+	Set NietMeeleverenIterator = ##class(TECH.ListIterator).%New(Product.NietMeeleveren)
 	
+	While NietMeeleverenIterator.HasNext() {
+		Set NietMeeleveren = NietMeeleveren _ NietMeeleverenIterator.Next() _ ";"
+	}
+	
 	Set TBXProduct.NietMeeleveren = ##class(TECH.StringUtils).RightTrim(NietMeeleveren,";")
 ]]></Implementation>
 </Method>