Index: APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml
===================================================================
diff -u -r45869 -r61830
--- APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml	(.../AfbeeldingCodeBepaler.cls.xml)	(revision 45869)
+++ APPS/PM/Maatwerk/impl/LBX/AfbeeldingCodeBepaler.cls.xml	(.../AfbeeldingCodeBepaler.cls.xml)	(revision 61830)
@@ -8,15 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SSTImageCodeBepaler">
+<Type>APPS.PM.Maatwerk.AfbeeldingService.impl.SSTImageCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LBXNietVolledigeLadeImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler</FormalSpec>
+<FormalSpec>LBXNietVolledigeLadeImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler,SSTImageCodeBepaler:APPS.PM.Maatwerk.AfbeeldingService.impl.SSTImageCodeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LBXNietVolledigeLadeImageCodeBepaler = $$$Implementation(LBXNietVolledigeLadeImageCodeBepaler, ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.LBXNietVolledigeLadeImageCodeBepaler).%New())
-	
+	Set ..SSTImageCodeBepaler = $$$Implementation(SSTImageCodeBepaler, ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.SSTImageCodeBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,28 +30,34 @@
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim AfbeeldingCode As %String = LBXKenmerken.GeefLadeCode()
-
-	If $$$Not(LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
-		Set AfbeeldingCode = ..LBXNietVolledigeLadeImageCodeBepaler.BepaalLBXNietVolledigeLadeImageCode(LBXKenmerken)
+	#dim AfbeeldingCode As %String
+	
+	If LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).SpaceStep() {
+		Set AfbeeldingCode = ..SSTImageCodeBepaler.BepaalSpaceStepAfbeelding(LBXKenmerken)
 	} Else {
-		If (LBXKenmerken.IsBinnenlade) {
-			Set AfbeeldingCode = $Translate(AfbeeldingCode, "/Z", "_Z")
-			
-			If (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
-				Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
+		Set AfbeeldingCode = LBXKenmerken.GeefLadeCode()
+
+		If $$$Not(LBXKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+			Set AfbeeldingCode = ..LBXNietVolledigeLadeImageCodeBepaler.BepaalLBXNietVolledigeLadeImageCode(LBXKenmerken)
+		} Else {
+			If (LBXKenmerken.IsBinnenlade) {
+				Set AfbeeldingCode = $Translate(AfbeeldingCode, "/Z", "_Z")
 				
-				If (LBXKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) {
-					Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandVerhogingHoogte
+				If (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
+					Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
+					
+					If (LBXKenmerken.VoorWandType = ..Enum.VoorWandType.Vulling) {
+						Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandVerhogingHoogte
+					}
+				} ElseIf ((LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) || (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.K)) {
+					Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
 				}
-			} ElseIf ((LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.M) || (LBXKenmerken.LadeHoogte = ..Enum.LadeHoogte.K)) {
-				Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.VoorWandType 
 			}
+			
+			If (LBXKenmerken.ZijWandType = ..Enum.ZijwandType.Free) {
+				Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.ZijWandType
+			}
 		}
-		
-		If (LBXKenmerken.ZijWandType = ..Enum.ZijwandType.Free) {
-			Set AfbeeldingCode = AfbeeldingCode _ "_" _ LBXKenmerken.ZijWandType
-		}
 	}
 	
 	Quit AfbeeldingCode