Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest001UitvoeringTablet.cls.xml
===================================================================
diff -u -r61658 -r61670
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest001UitvoeringTablet.cls.xml	(.../SSTTest001UitvoeringTablet.cls.xml)	(revision 61658)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest001UitvoeringTablet.cls.xml	(.../SSTTest001UitvoeringTablet.cls.xml)	(revision 61670)
@@ -27,7 +27,7 @@
 <Method name="GeefLangtekstCreator">
 <Private>1</Private>
 <ReturnType>DOM.PM.impl.LBXLangtekstCreator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New()
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New(..GeefKenmerkenDto())
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/SSTLangtekstCreator.cls.xml
===================================================================
diff -u -r61651 -r61670
--- DOM/PM/impl/SSTLangtekstCreator.cls.xml	(.../SSTLangtekstCreator.cls.xml)	(revision 61651)
+++ DOM/PM/impl/SSTLangtekstCreator.cls.xml	(.../SSTLangtekstCreator.cls.xml)	(revision 61670)
@@ -3,16 +3,31 @@
 <Class name="DOM.PM.impl.SSTLangtekstCreator">
 <Super>DOM.PM.impl.LangtekstCreator,DOM.PM.Maatwerk.SST.impl.Base</Super>
 
+<Property name="SSTKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>IK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken="",Taal:DOM.enu.Taal="N"</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	
 	Set ..IngegevenKenmerken = IK
 	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(Taal)
+	Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+	
+	If $$$Not($IsObject(..SSTKenmerken)) {
+		Set GekoppeldeIKIt = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.GekoppeldeIngegevenKenmerken)
+		While GekoppeldeIKIt.HasNext() {
+			#dim GKIK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeIKIt.Next()
+			If (GKIK.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep()) {
+				Set ..SSTKenmerken = GKIK.IngegevenKenmerken
+			}		
+		}
+	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,9 +67,9 @@
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Breedte As %String = ..Vertaler.GeefVertaling("BreedteAfkorting")_":"_..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Breedte
-	#dim Diepte As %String = ..Vertaler.GeefVertaling("DiepteAfkorting")_":"_..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Diepte
-	#dim Hoogte As %String =  ..Vertaler.GeefVertaling("lblAfmeting_Hoogte_Kort")_":"_..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Hoogte
+	#dim Breedte As %String = ..Vertaler.GeefVertaling("BreedteAfkorting")_":"_..SSTKenmerken.Breedte
+	#dim Diepte As %String = ..Vertaler.GeefVertaling("DiepteAfkorting")_":"_..SSTKenmerken.Diepte
+	#dim Hoogte As %String =  ..Vertaler.GeefVertaling("lblAfmeting_Hoogte_Kort")_":"_..SSTKenmerken.Hoogte
 	
 	Quit ..Vertaler.GeefVertaling("Sokkel")_" "_Diepte_"x"_Breedte_"x"_Hoogte
 ]]></Implementation>
@@ -66,17 +81,17 @@
 <Implementation><![CDATA[
 	#dim TekstBewegingstechnologie As %String = ""
 	
-	If (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Bewegingstechnologie = ..Enum.Bewegingstechnologie.Blumotion) {
+	If (..SSTKenmerken.Bewegingstechnologie = ..Enum.Bewegingstechnologie.Blumotion) {
 		Set TekstBewegingstechnologie = "Blumotion"
-	} ElseIf (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Bewegingstechnologie = ..Enum.Bewegingstechnologie.TiponBlumotion) {
+	} ElseIf (..SSTKenmerken.Bewegingstechnologie = ..Enum.Bewegingstechnologie.TiponBlumotion) {
 		Set TekstBewegingstechnologie = "TIP-ON Blumotion"
-	} ElseIf (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Bewegingstechnologie = ..Enum.Bewegingstechnologie.Servodrive) {
+	} ElseIf (..SSTKenmerken.Bewegingstechnologie = ..Enum.Bewegingstechnologie.Servodrive) {
 		Set TekstBewegingstechnologie = "SERVO-DRIVE uitwerper voorgemonteerd"	
 	}
 	
 	Set TekstBewegingstechnologie = ..Vertaler.GeefVertaling(TekstBewegingstechnologie)
 	
-	If (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").StekkerServodrive = $$$True && (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Bewegingstechnologie = ..Enum.Bewegingstechnologie.Servodrive)) {
+	If (..SSTKenmerken.StekkerServodrive = $$$True && (..SSTKenmerken.Bewegingstechnologie = ..Enum.Bewegingstechnologie.Servodrive)) {
 		Set TekstBewegingstechnologie = TekstBewegingstechnologie_..Vertaler.GeefVertaling("incl. / excl. Blum netstroomstekker")
 	} 
 	
@@ -144,21 +159,21 @@
 <Method name="IsUitvoeringTablet">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Uitvoering = ..Enum.Uitvoering.Tablet)
+<Implementation><![CDATA[	Quit (..SSTKenmerken.Uitvoering = ..Enum.Uitvoering.Tablet)
 ]]></Implementation>
 </Method>
 
 <Method name="IsUitvoeringSokkelEnTablet">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Uitvoering = ..Enum.Uitvoering.SokkelEnTablet)
+<Implementation><![CDATA[	Quit (..SSTKenmerken.Uitvoering = ..Enum.Uitvoering.SokkelEnTablet)
 ]]></Implementation>
 </Method>
 
 <Method name="IsUitvoeringVolledig">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt("SpaceStep").Uitvoering = ..Enum.Uitvoering.Volledig)
+<Implementation><![CDATA[	Quit (..SSTKenmerken.Uitvoering = ..Enum.Uitvoering.Volledig)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest002UitvoeringSokkelEnTablet.cls.xml
===================================================================
diff -u -r61658 -r61670
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest002UitvoeringSokkelEnTablet.cls.xml	(.../SSTTest002UitvoeringSokkelEnTablet.cls.xml)	(revision 61658)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest002UitvoeringSokkelEnTablet.cls.xml	(.../SSTTest002UitvoeringSokkelEnTablet.cls.xml)	(revision 61670)
@@ -29,7 +29,7 @@
 <Method name="GeefLangtekstCreator">
 <Private>1</Private>
 <ReturnType>DOM.PM.impl.LBXLangtekstCreator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New()
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New(..GeefKenmerkenDto())
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml
===================================================================
diff -u -r61320 -r61670
--- DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 61320)
+++ DOM/PM/Maatwerk/LBX/impl/KorttekstBepaler.cls.xml	(.../KorttekstBepaler.cls.xml)	(revision 61670)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SSTKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.SSTKenmerken</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.LadeInfoAPI="",KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler=""</FormalSpec>
 <Private>1</Private>
@@ -60,10 +65,12 @@
 	Set ..Lade = ..LadeInfoAPI.GeefLade(HalffabItemsBoom,IngegevenKenmerken)	
 	
 	If (IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).SpaceStep())
-	{		
+	{
+		Set ..SSTKenmerken = ..IngegevenKenmerken.GekoppeldeIngegevenKenmerken.GetAt(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).SpaceStep())
+		
 		#dim UitvoeringCode As %String = ..GeefUitvoeringCode()
 		#dim SpaceStepDimensie As %String = ..GeefSpaceStepDimensie()
-		#dim SpaceStepKleur As %String = ..IngegevenKenmerken.SpaceStep.Kleur
+		#dim SpaceStepKleur As %String = ..SSTKenmerken.Kleur
 		
 		Set Korttekst = "SST#"_UitvoeringCode_$J(DossierNummer,5)_SpaceStepDimensie_SpaceStepKleur
 	} Else {
@@ -198,11 +205,11 @@
 <Implementation><![CDATA[
 	#dim UitvoeringCode As %String = ""
 	
-	If (..IngegevenKenmerken.SpaceStep.Uitvoering = ..Enum.SpaceStepUitvoering.Volledig) {
+	If (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Volledig) {
 		Set UitvoeringCode = "LB"_..IngegevenKenmerken.LadeHoogte
-	} ElseIf (..IngegevenKenmerken.SpaceStep.Uitvoering = ..Enum.SpaceStepUitvoering.SokkelEnTablet) {
+	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.SokkelEnTablet) {
 		Set UitvoeringCode = "   "	
-	} ElseIf (..IngegevenKenmerken.SpaceStep.Uitvoering = ..Enum.SpaceStepUitvoering.Tablet) {
+	} ElseIf (..SSTKenmerken.Uitvoering = ..Enum.SpaceStepUitvoering.Tablet) {
 		Set UitvoeringCode = "TAB"
 	}
 	
@@ -213,7 +220,7 @@
 <Method name="GeefSpaceStepDimensie">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim DimensieString As TECH.String = ..IngegevenKenmerken.SpaceStep.Diepte _ "x" _ ..IngegevenKenmerken.SpaceStep.Breedte
+	#dim DimensieString As TECH.String = ..SSTKenmerken.Diepte _ "x" _ ..SSTKenmerken.Breedte
 	Quit $Extract(##class(TECH.StringUtils).AddTrailingSpace(DimensieString, 8), 1, 8)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest003UitvoeringVolledig.cls.xml
===================================================================
diff -u -r61658 -r61670
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest003UitvoeringVolledig.cls.xml	(.../SSTTest003UitvoeringVolledig.cls.xml)	(revision 61658)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/SSTTest003UitvoeringVolledig.cls.xml	(.../SSTTest003UitvoeringVolledig.cls.xml)	(revision 61670)
@@ -6,9 +6,7 @@
 <Method name="GeefKenmerkenDto">
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLadeSSTVolledig()
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLadeSSTVolledig()
 ]]></Implementation>
 </Method>
 
@@ -29,7 +27,7 @@
 <Method name="GeefLangtekstCreator">
 <Private>1</Private>
 <ReturnType>DOM.PM.impl.LBXLangtekstCreator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New()
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.SSTLangtekstCreator).%New(..GeefKenmerkenDto())
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/LBXLangtekstCreator.cls.xml
===================================================================
diff -u -r61651 -r61670
--- DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 61651)
+++ DOM/PM/impl/LBXLangtekstCreator.cls.xml	(.../LBXLangtekstCreator.cls.xml)	(revision 61670)
@@ -23,11 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="SpaceStepTekstBepaler">
-<Type>DOM.PM.impl.SSTLangtekstCreator</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>SpoelbakAfmetingBepaler:APPS.PM.Maatwerk.LBX.SpoelbakAfmetingBepaler="",IngegevenKenmerkenTypeAPI:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler="",KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler="",SpaceStepTekstBepaler:DOM.PM.impl.SSTLangtekstCreator</FormalSpec>
 <Private>1</Private>
@@ -40,7 +35,6 @@
 	Set ..OnderdeelTekstBepaler = $$$Implementation(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.LBXEnkelOnderdeelTekstBepaler).%New())
 	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler.LBX).%New())
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.LBX.impl.UitsparingTekstFormatter).%New()
-	Set ..SpaceStepTekstBepaler = ##class(DOM.PM.impl.SSTLangtekstCreator).%New(..IngegevenKenmerken, ..Taal)
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -174,18 +168,7 @@
 <Method name="IsSpaceStep">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsSpaceStep As %Boolean = $$$False
-	
-	Set GekoppeldeIKIt = ##class(TECH.ListIterator).%New(..IngegevenKenmerken.GekoppeldeIngegevenKenmerken)
-	While GekoppeldeIKIt.HasNext() {
-		#dim IK As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = GekoppeldeIKIt.Next()
-		If (IK.GeefVariant() = ##class(DOM.PM.enu.Variant).SpaceStep()) {
-			Set IsSpaceStep = $$$True
-		}		
-	}
-	
-	Quit IsSpaceStep
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).SpaceStep()
 ]]></Implementation>
 </Method>