Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml
===================================================================
diff -u -r20292 -r20293
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20292)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20293)
@@ -9,7 +9,7 @@
 <FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ImageCode As %String = ""
+	Set ImageCode = ""
 
 	If ($L(Input.LadeCodeID)) {
 		
@@ -30,10 +30,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ImageCode As %String = ""
+	Set ImageCode = ""
 
-	#dim RugHoogte As %String
-	#dim OnderdelenSpeciaalID = Input.OnderdelenSpeciaalID
+	Set OnderdelenSpeciaalID = Input.OnderdelenSpeciaalID
 	If OnderdelenSpeciaalID="R" {
 		Set RugHoogte = ..GeefRugHoogte(Input.LadeCodeID)
 		Set ImageCode="ODSP_Rug_"_RugHoogte
@@ -46,9 +45,9 @@
 		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 FrontHoogte  = ..GeefFrontHoogte(Input.LadeCodeID)
+		Set DesignCodeID = ..GeefDesignCodeID(Input.DesignID)
+		Set VoorwandType = ..GeefVoorwandTypeOmschrijving(Input.BinnenGreepID)
 		Set ImageCode="ODSP_Front_"_DesignCodeID_"_"_FrontHoogte_"_"_VoorwandType
 	}
 	ElseIf OnderdelenSpeciaalID="RH" {
@@ -74,11 +73,9 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LadeCodeID As %String = Input.LadeCodeID
-	#dim BoxSideID As %String = Input.BoxSideID
+	Set LadeCodeID = Input.LadeCodeID
+	Set BoxSideID = Input.BoxSideID
 
-	#dim KLAS,DC,SifonQty As %String
-		
 	Set KLAS=..GeefKLAS(LadeCodeID)
 	Set LadeCodeID=$TR(LadeCodeID,"I\/","")
 	If (LadeCodeID["2")&&(KLAS="SP2") { 
@@ -164,7 +161,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim VoorwandTypeOmschrijving As %String = ""
+	Set VoorwandTypeOmschrijving = ""
 	If BinnenGreepID="V" {
 		Set VoorwandTypeOmschrijving="Glas"
 	}