Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml
===================================================================
diff -u -r20225 -r20292
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20225)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20292)
@@ -9,30 +9,83 @@
 <FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:(Input.LadeCodeID="") ""
+	#dim ImageCode As %String = ""
 
+	If ($L(Input.LadeCodeID)) {
+		
+		If ($L(Input.OnderdelenSpeciaalID)) {
+			Set ImageCode=..GeefImageCodeOnderdelenSpeciaal(Input)   ; Return value kan "" (leeg) zijn! 
+		}
+		
+		If ImageCode="" {
+			Set ImageCode=..GeefImageCodeVolledigeLade(Input)
+		}
+	}
+	Quit ImageCode
+]]></Implementation>
+</Method>
 
-	/*
-OndSpecial (ODSP)	Alleen rug	R
-	Alleen bodem	B
-	Alleen rug en bodem	RB
-	Alleen voorfront	F
-	Alleen rug en rughouder	RH
-	Alleen rug, bodem en voorfront	RBF
-	Andere	X
-	
-	*/
+<Method name="GeefImageCodeOnderdelenSpeciaal">
+<FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ImageCode As %String = ""
 
-	Set LadeCodeID = Input.LadeCodeID
-	Set BoxSideID = Input.BoxSideID
+	#dim RugHoogte As %String
+	#dim OnderdelenSpeciaalID = Input.OnderdelenSpeciaalID
+	If OnderdelenSpeciaalID="R" {
+		Set RugHoogte = ..GeefRugHoogte(Input.LadeCodeID)
+		Set ImageCode="ODSP_Rug_"_RugHoogte
+	}
+	ElseIf OnderdelenSpeciaalID="B" {
+		Set ImageCode="ODSP_Bodem"
+	}
+	ElseIf OnderdelenSpeciaalID="RB" {
+		Set RugHoogte = ..GeefRugHoogte(Input.LadeCodeID)
+		Set ImageCode="ODSP_BodemRug_"_RugHoogte
+	}
+	ElseIf OnderdelenSpeciaalID="F" {
+		#dim FrontHoogte As %String  = ..GeefFrontHoogte(Input.LadeCodeID)
+		#dim DesignCodeID As %String = ..GeefDesignCodeID(Input.DesignID)
+		#dim VoorwandType As %String = ..GeefVoorwandTypeOmschrijving(Input.BinnenGreepID)
+		Set ImageCode="ODSP_Front_"_DesignCodeID_"_"_FrontHoogte_"_"_VoorwandType
+	}
+	ElseIf OnderdelenSpeciaalID="RH" {
+		Set RugHoogte = ..GeefRugHoogte(Input.LadeCodeID)
+		Set ImageCode="ODSP_RugMetHouders_"_RugHoogte
+	}
+	ElseIf OnderdelenSpeciaalID="RBF" {   // Alleen rug, bodem en voorfront 
+		Set ImageCode=""
+	}
+	ElseIf OnderdelenSpeciaalID="X" {     // Andere (custom parts) 
+		Set ImageCode=""
+	}
+	Else {
+		Set ImageCode=""
+	}
+
+	Quit ImageCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefImageCodeVolledigeLade">
+<FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeCodeID As %String = Input.LadeCodeID
+	#dim BoxSideID As %String = Input.BoxSideID
+
+	#dim KLAS,DC,SifonQty As %String
 		
 	Set KLAS=..GeefKLAS(LadeCodeID)
 	Set LadeCodeID=$TR(LadeCodeID,"I\/","")
 	If (LadeCodeID["2")&&(KLAS="SP2") { 
 		Set LadeCodeID=$TR(LadeCodeID,"2","")
 	}
 
-	Set DC=..GeefDC(Input.DesignID)
+	Set DC=..GeefDesignCodeID(Input.DesignID)
 	
 	// Uitzonderingen 
 	If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() {
@@ -74,7 +127,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDC">
+<Method name="GeefDesignCodeID">
 <FormalSpec>DesignID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -89,5 +142,38 @@
 <Implementation><![CDATA[	Quit ##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(LadeCodeID,SpoelbakZijkantID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRugHoogte">
+<FormalSpec>LadeCodeID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $E(LadeCodeID,1)   ; werkt correct voor 99.9% van de gevallen  :-P
+]]></Implementation>
+</Method>
+
+<Method name="GeefFrontHoogte">
+<FormalSpec>LadeCodeID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $E(LadeCodeID,1)   ; werkt correct voor 99.9% van de gevallen  :-P
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorwandTypeOmschrijving">
+<FormalSpec>BinnenGreepID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorwandTypeOmschrijving As %String = ""
+	If BinnenGreepID="V" {
+		Set VoorwandTypeOmschrijving="Glas"
+	}
+	ElseIf (BinnenGreepID="R")||(BinnenGreepID?1"R".E) {
+		Set VoorwandTypeOmschrijving="Reling"
+	}
+	
+	Quit VoorwandTypeOmschrijving
+]]></Implementation>
+</Method>
 </Class>
 </Export>