Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64429 -r66974
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64429)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 66974)
@@ -186,6 +186,7 @@
 	}
 	
 	#dim GekoppeldeIK As array Of DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = IngegevenKenmerken.GekoppeldeIngegevenKenmerken
+	#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = IngegevenKenmerken.UitsparingData
 	
 	#dim i As %Integer
 	For i = 1:1:KenmerkNamen.Count() {
@@ -201,6 +202,34 @@
 			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)
 		} Else {		
 			Set $PROPERTY(IngegevenKenmerken, KenmerkNamen.GetAt(i)) = KenmerkWaarden.GetAt(i)
 		}
@@ -274,6 +303,7 @@
 	Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
 	Set IngegevenKenmerkenAPI = ##class(DOM.PM.impl.IngegevenKenmerkenAPIimpl).%New()
+	Set IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	
 	#dim Namen As %String = ""
 	#dim Waarden As %String = ""
@@ -302,6 +332,25 @@
 						Set Namen = Namen _ Delimiter _ "MatKleur"
 						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()).Kleur
 					}
+				} ElseIf (IngegevenKenmerkenAPI.HeeftGekoppeldeSpaceStep(IngegevenKenmerken)) {
+					If ($IsObject(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 Namen = Namen _ Delimiter _ "SpaceStepHoogte"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Hoogte
+						Set Namen = Namen _ Delimiter _ "SpaceStepDiepte"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Diepte
+						Set Namen = Namen _ Delimiter _ "SpaceStepKleur"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Kleur
+						Set Namen = Namen _ Delimiter _ "SpaceStepUitvoering"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Uitvoering
+						Set Namen = Namen _ Delimiter _ "SpaceStepBewegingstechnologie"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).Bewegingstechnologie
+						Set Namen = Namen _ Delimiter _ "SpaceStepStekkerServodrive"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).StekkerServodrive
+						Set Namen = Namen _ Delimiter _ "SpaceStepStekkerType"
+						Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()).StekkerType
+					}
 				} Else {
 					Set PropertyWaarde = ##class(TECH.ListUtils).IteratorToPieces(##class(TECH.KeyListIterator).%New(PropertyWaarde),"`")
 					Set Namen = Namen _ Delimiter _ PropertyNaam
@@ -313,6 +362,22 @@
 				Set Waarden = Waarden _ Delimiter _ PropertyWaarde
 			}
 		}
+		If (PropertyNaam = "UitsparingData") {
+			If (IngegevenKenmerkenTypeAPI.IsLadeMetUitsparing(IngegevenKenmerken)) {
+				Set Namen = Namen _ Delimiter _ "UitsparingRugDeelX"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.RugDeelX
+				Set Namen = Namen _ Delimiter _ "UitsparingRugDeelY"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.RugDeelY
+				Set Namen = Namen _ Delimiter _ "UitsparingRugDeelM"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.RugDeelM
+				Set Namen = Namen _ Delimiter _ "UitsparingUitsparingZ1"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.UitsparingZ1
+				Set Namen = Namen _ Delimiter _ "UitsparingUitsparingZ2"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.UitsparingZ2
+				Set Namen = Namen _ Delimiter _ "UitsparingAantalUitsparingen"
+				Set Waarden = Waarden _ Delimiter _ IngegevenKenmerken.UitsparingData.AantalUitsparingen
+			}
+		}
 		If (PropertyNaam = "NietMeeleveren") {
 			Set Result.NietMeeleveren = ##class(TECH.ListUtils).ListToPieces(PropertyWaarde,"\")
 		}