Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r66974 -r67364
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 66974)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 67364)
@@ -189,49 +189,58 @@
 	#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = IngegevenKenmerken.UitsparingData
 	
 	#dim i As %Integer
+	#dim KenmerkNaam, KenmerkWaarde As %String
+	#dim SstKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken 
+	
+	If ($IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()))) {
+		Set SstKenmerken = IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+	}
+	
 	For i = 1:1:KenmerkNamen.Count() {
-		If ((KenmerkNamen.GetAt(i) = "MatKleur")) {
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()), "Kleur") = KenmerkWaarden.GetAt(i)
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()), "Kleur") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM()), "Kleur") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1()), "Kleur") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2()), "Kleur") = KenmerkWaarden.GetAt(i)}
-		} ElseIf ((KenmerkNamen.GetAt(i) = "MatMateriaal")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()), "Materiaal") = KenmerkWaarden.GetAt(i)
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()), "Materiaal") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM()), "Materiaal") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1()), "Materiaal") = KenmerkWaarden.GetAt(i)} 
-			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2()), "Materiaal") = KenmerkWaarden.GetAt(i)}
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepBreedte")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Breedte") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepHoogte")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Hoogte") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepDiepte")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Diepte") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepKleur")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Kleur") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepUitvoering")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Uitvoering") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepBewegingstechnologie")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "Bewegingstechnologie") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepStekkerServodrive")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "StekkerServodrive") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "SpaceStepStekkerType")) {		
-			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()), "StekkerType") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingRugDeelX")) {		
-			Set $PROPERTY(UitsparingData, "RugDeelX") = KenmerkWaarden.GetAt(i)
-		} ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingRugDeelY")) {		
-			Set $PROPERTY(UitsparingData, "RugDeelY") = KenmerkWaarden.GetAt(i)
-		}  ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingRugDeelM")) {		
-			Set $PROPERTY(UitsparingData, "RugDeelM") = KenmerkWaarden.GetAt(i)
-		}  ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingUitsparingZ1")) {		
-			Set $PROPERTY(UitsparingData, "UitsparingZ1") = KenmerkWaarden.GetAt(i)
-		}  ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingUitsparingZ2")) {		
-			Set $PROPERTY(UitsparingData, "UitsparingZ2") = KenmerkWaarden.GetAt(i)
-		}  ElseIf ((KenmerkNamen.GetAt(i) = "UitsparingAantalUitsparingen")) {		
-			Set $PROPERTY(UitsparingData, "AantalUitsparingen") = KenmerkWaarden.GetAt(i)
+		Set KenmerkNaam = KenmerkNamen.GetAt(i)
+		Set KenmerkWaarde = KenmerkWaarden.GetAt(i)
+		If ((KenmerkNaam = "MatKleur")) {
+			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()), "Kleur") = KenmerkWaarde
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()), "Kleur") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM()), "Kleur") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1()), "Kleur") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2()), "Kleur") = KenmerkWaarde}
+		} ElseIf ((KenmerkNaam = "MatMateriaal")) {		
+			Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()), "Materiaal") = KenmerkWaarde
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()), "Materiaal") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM()), "Materiaal") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1()), "Materiaal") = KenmerkWaarde} 
+			If $IsObject(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2())) {Set $PROPERTY(GekoppeldeIK.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2()), "Materiaal") = KenmerkWaarde}
+		} ElseIf ((KenmerkNaam = "SpaceStepBreedte")) {		
+			Set $PROPERTY(SstKenmerken, "Breedte") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepHoogte")) {		
+			Set $PROPERTY(SstKenmerken, "Hoogte") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepDiepte")) {		
+			Set $PROPERTY(SstKenmerken, "Diepte") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepKleur")) {		
+			Set $PROPERTY(SstKenmerken, "Kleur") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepUitvoering")) {		
+			Set $PROPERTY(SstKenmerken, "Uitvoering") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepBewegingstechnologie")) {		
+			Set $PROPERTY(SstKenmerken, "Bewegingstechnologie") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepStekkerServodrive")) {		
+			Set $PROPERTY(SstKenmerken, "StekkerServodrive") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "SpaceStepStekkerType")) {		
+			Set $PROPERTY(SstKenmerken, "StekkerType") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "UitsparingRugDeelX")) {		
+			Set $PROPERTY(UitsparingData, "RugDeelX") = KenmerkWaarde
+		} ElseIf ((KenmerkNaam = "UitsparingRugDeelY")) {		
+			Set $PROPERTY(UitsparingData, "RugDeelY") = KenmerkWaarde
+		}  ElseIf ((KenmerkNaam = "UitsparingRugDeelM")) {		
+			Set $PROPERTY(UitsparingData, "RugDeelM") = KenmerkWaarde
+		}  ElseIf ((KenmerkNaam = "UitsparingUitsparingZ1")) {		
+			Set $PROPERTY(UitsparingData, "UitsparingZ1") = KenmerkWaarde
+		}  ElseIf ((KenmerkNaam = "UitsparingUitsparingZ2")) {		
+			Set $PROPERTY(UitsparingData, "UitsparingZ2") = KenmerkWaarde
+		}  ElseIf ((KenmerkNaam = "UitsparingAantalUitsparingen")) {		
+			Set $PROPERTY(UitsparingData, "AantalUitsparingen") = KenmerkWaarde
 		} Else {		
-			Set $PROPERTY(IngegevenKenmerken, KenmerkNamen.GetAt(i)) = KenmerkWaarden.GetAt(i)
+			Set $PROPERTY(IngegevenKenmerken, KenmerkNaam) = KenmerkWaarde
 		}
 	}
 	
@@ -334,22 +343,23 @@
 					}
 				} ElseIf (IngegevenKenmerkenAPI.HeeftGekoppeldeSpaceStep(IngegevenKenmerken)) {
 					If ($IsObject(IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()))) {
+						#dim SstKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken = IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
 						Set Namen = Namen _ Delimiter _ "SpaceStepBreedte"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Breedte
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Breedte
 						Set Namen = Namen _ Delimiter _ "SpaceStepHoogte"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Hoogte
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Hoogte
 						Set Namen = Namen _ Delimiter _ "SpaceStepDiepte"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Diepte
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Diepte
 						Set Namen = Namen _ Delimiter _ "SpaceStepKleur"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Kleur
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Kleur
 						Set Namen = Namen _ Delimiter _ "SpaceStepUitvoering"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Uitvoering
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Uitvoering
 						Set Namen = Namen _ Delimiter _ "SpaceStepBewegingstechnologie"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Bewegingstechnologie
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.Bewegingstechnologie
 						Set Namen = Namen _ Delimiter _ "SpaceStepStekkerServodrive"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).StekkerServodrive
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.StekkerServodrive
 						Set Namen = Namen _ Delimiter _ "SpaceStepStekkerType"
-						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).StekkerType
+						Set Waarden = Waarden _ Delimiter _ SstKenmerken.StekkerType
 					}
 				} Else {
 					Set PropertyWaarde = ##class(TECH.ListUtils).IteratorToPieces(##class(TECH.KeyListIterator).%New(PropertyWaarde),"`")