Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u -r50620 -r50622
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 50620)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(.../KenmerkNaarDtoVisitor.cls.xml)	(revision 50622)
@@ -82,30 +82,34 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
 	Quit:(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(Kenmerken))
 	
-	Set Iterator = ##class(TECH.ListIterator).%New(Kenmerken.ExplicietGekozenKenmerken)
-	While (Iterator.HasNext()) {
-		#dim KenmerkNaam As %String = Iterator.Next()
-		if '..IngegevenKenmerken.ExplicietGekozenKenmerken.Find(KenmerkNaam) {
+	#dim ExplicietGekozenKenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken.ExplicietGekozenKenmerken)
+	
+	While (ExplicietGekozenKenmerkenIterator.HasNext()) {
+		#dim KenmerkNaam As %String = ExplicietGekozenKenmerkenIterator.Next()
+		
+		If $$$Not(..IngegevenKenmerken.ExplicietGekozenKenmerken.Find(KenmerkNaam)) {
 			Do ..IngegevenKenmerken.ExplicietGekozenKenmerken.Insert(KenmerkNaam)
 		}
 	}
 	
-	#dim GekoppeldeKenmerkenIt As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken.GekoppeldeIngegevenKenmerken)
-	While GekoppeldeKenmerkenIt.HasNext()
-	{
-		#dim GekoppeldeIK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeKenmerkenIt.Next()
-		#dim GekoppeldIKType As DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType = GekoppeldeKenmerkenIt.Key()
-		Set GekoppeldeKenmerkNaarDtoConverter = ##class(APPS.PM.Maatwerk.impl.GekoppeldeKenmerkNaarDtoConverter).%New()
-		#dim KenmerkDtoArray As Array of APPS.PM.Maatwerk.dto.IngegevenKenmerken = GekoppeldeKenmerkNaarDtoConverter.Converteer(GekoppeldeIK, GekoppeldIKType)
-		Set KenmerkDtoArrayIt = ##class(TECH.ListIterator).%New(KenmerkDtoArray)
-		While KenmerkDtoArrayIt.HasNext() {
-			#dim KenmerkDto As APPS.PM.Maatwerk.dto.IngegevenKenmerken = KenmerkDtoArrayIt.Next()
-			Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	#dim GekoppeldeKenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken.GekoppeldeIngegevenKenmerken)
+	
+	While (GekoppeldeKenmerkenIterator.HasNext()) {
+		#dim GekoppeldeIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeKenmerkenIterator.Next()
+		#dim GekoppeldType As DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType = GekoppeldeKenmerkenIterator.Key()
+		#dim GekoppeldeKenmerkNaarDtoConverter As APPS.PM.Maatwerk.impl.GekoppeldeKenmerkNaarDtoConverter = ##class(APPS.PM.Maatwerk.impl.GekoppeldeKenmerkNaarDtoConverter).%New()
+		#dim KenmerkDtoArray As Array of APPS.PM.Maatwerk.dto.IngegevenKenmerken = GekoppeldeKenmerkNaarDtoConverter.Converteer(GekoppeldeIngegevenKenmerken, GekoppeldType)
+		#dim KenmerkDtoArrayIterator = ##class(TECH.ListIterator).%New(KenmerkDtoArray)
+		
+		While (KenmerkDtoArrayIterator.HasNext()) {
+			#dim KenmerkDto As APPS.PM.Maatwerk.dto.IngegevenKenmerken = KenmerkDtoArrayIterator.Next()
+			#dim GekoppeldIngegevenKenmerk As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+			
 			Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = KenmerkDto
-			Set GekoppeldIngegevenKenmerk.Key = KenmerkDtoArrayIt.Key()
+			Set GekoppeldIngegevenKenmerk.Key = KenmerkDtoArrayIterator.Key()
+			
 			Do ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
 		}
 	}