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>