Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r20214 -r20225
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 20214)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 20225)
@@ -1086,13 +1086,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTBXLadeImageCodeBepalerInputMetDefaults">
-<Description>
+<Method name="GeefImageCodeBepalerInputMetDFL">
+<Description><![CDATA[
 LadeCode is verplicht 
 BoxSide of reling :  indien "" dan wordt de default Boxside/Reling voor deze LadeCode gekozen 
 Design is belangrijk voor Intivo en Antaro 
 BinnenGeep is optioneel, belangrijk voor Inschuifelement bij binnenladen DL/Z en CL/Z 
-SPZK is belangrijk voor dubbele sifonlade </Description>
+SPZK is belangrijk voor dubbele sifonlade 
+
+MethodNaam orig : GeefTBXLadeImageCodeBepalerInputMetDefaults --> ingekort tot 31 tekens; ]]></Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LadeCode:%String,BoxSide:%String="",Design:%String,BinnenGreep:%String="",SPZK:%String="",OnderdelenSpeciaal:%String="",NietMeeleverenBoxSide:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
@@ -1110,17 +1112,17 @@
 <Description>
 Geeft de ImageURL voor de foto van de lade terug (berekening via BL.Prod.ImageLink) 
 Toepassing = "WEB" of "MAKOVA" 
-LadeImageCodeBepalerInput : zie method GeefTBXLadeImageCodeBepalerInputMetDefaults() </Description>
+LadeImageCodeBepalerInput : zie method GeefImageCodeBepalerInputMetDFL() </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Toepassing:%String,LadeImageCodeBepalerInput:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Quit:(LadeImageCodeBepalerInput.LadeCodeID="") ""
 
-	#dim blImage As BL.Prod.ImageLink = ##class(BL.Prod.ImageLink).Instantiate()
-	#dim ObjRef As %String = blImage.GeefTBXImageCode(LadeImageCodeBepalerInput)
-	#dim URL As %String = blImage.GetImageURL("TBX",ObjRef,Toepassing)
+	Set blImage = ##class(BL.Prod.ImageLink).Instantiate()
+	Set ObjRef = blImage.GeefTBXImageCode(LadeImageCodeBepalerInput)
+	Set URL = blImage.GetImageURL("TBX",ObjRef,Toepassing)
 	Set blImage=""
 	Quit URL
 ]]></Implementation>
Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml
===================================================================
diff -u -r20211 -r20225
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20211)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(.../TBXLadeImageCodeBepaler.cls.xml)	(revision 20225)
@@ -1,7 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepaler">
-<Super>TECH.Mockable</Super>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefImageCode">
 <FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
@@ -21,10 +23,8 @@
 	
 	*/
 
-	#dim LadeCodeID As %String = Input.LadeCodeID
-	#dim BoxSideID As %String = Input.BoxSideID
-
-	#dim KLAS,DC,SifonQty As %String
+	Set LadeCodeID = Input.LadeCodeID
+	Set BoxSideID = Input.BoxSideID
 		
 	Set KLAS=..GeefKLAS(LadeCodeID)
 	Set LadeCodeID=$TR(LadeCodeID,"I\/","")
@@ -36,7 +36,7 @@
 	
 	// Uitzonderingen 
 	If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() {
-		Set:(LadeCodeID?1.E1"B") LadeCodeID=$E(LadeCodeID,1,*-1)    ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen 
+		Set:(LadeCodeID?1.E1"B") LadeCodeID=$E(LadeCodeID,1,$L(LadeCodeID)-1)    ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen 
 		If (DC="A") {
 			Set:(LadeCodeID="C")||(LadeCodeID="D") LadeCodeID=LadeCodeID_"M"
 		}
@@ -90,6 +90,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml
===================================================================
diff -u -r20211 -r20225
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml	(.../TBXLadeImageCodeBepalerInput.cls.xml)	(revision 20211)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml	(.../TBXLadeImageCodeBepalerInput.cls.xml)	(revision 20225)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput">
-<Super>TECH.RegisteredObject</Super>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="LadeCodeID">
 <Type>%String</Type>
@@ -54,6 +55,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: Prod/GAData/Product/tmpDev2.mac.rou
===================================================================
diff -u -r20214 -r20225
--- Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 20214)
+++ Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 20225)
@@ -265,15 +265,15 @@
  Do WRITELN^XMLWRITE(DevObj)
  // Via BL.Prod.ImageLink 
  
- Set LadeImageCodeBepalerInput = ##class(BL.PR.GA.TandemBox).GeefTBXLadeImageCodeBepalerInputMetDefaults(..Val("LC"),..Val("BS"),..Val("DS"),..Val("BGRP"),..Val("SPZK"), ..Val("ODSP"), ..Val("NMBS"))
+ Set LadeImageCodeBepalerInput = ##class(BL.PR.GA.TandemBox).GeefImageCodeBepalerInputMetDFL(..Val("LC"),..Val("BS"),..Val("DS"),..Val("BGRP"),..Val("SPZK"), ..Val("ODSP"), ..Val("NMBS"))
  Set URL2=##class(BL.PR.GA.TandemBox).GetImageURL("WEB", LadeImageCodeBepalerInput)
  
  Do TAGWRITE^XMLWRITE(DevObj,"IMAGEURL",URL2)
  Do WRITELN^XMLWRITE(DevObj)
  Quit
-
  
  
+ 
  ; GAData.Product methods:
 ConsistencyCheck()   ; Parameters: CheckArray,lbChecks   CheckArray als .local doorgeven
  Set:('$D(lbChecks)) lbChecks=$LB($$$ccChildExpr,$$$ccVolgNrDItem,$$$ccVolgNrKost,$$$ccItemLabel,$$$ccProgLabel,$$$ccKolomNrParam,$$$ccParamMode,$$$ccExecutes)
Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r20214 -r20225
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 20214)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 20225)
@@ -6,6 +6,7 @@
 <IncludeCode>BL.EC.Common,Prod.Product,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ADBTemplate">
 <Default>ImageLinkControle_01.01</Default>
@@ -226,13 +227,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTBXLadeImageCodeBepalerInput">
+<Method name="GeefTBXImageCodeBepalerInput">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProductID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</ReturnType>
 <Implementation><![CDATA[
-	#dim LC,DS,BS,BGRP,NMBS,SPZK,ODSP
 	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"LC"))       ; LadeCode 
 	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"DS"))       ; Design (A voor intivo) 
 	Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"BS"))       ; BoxSide 
@@ -255,7 +255,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LadeImageCodeBepalerInput As APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput = ..GeefTBXLadeImageCodeBepalerInput(PRNr)
+	Set LadeImageCodeBepalerInput = ..GeefTBXImageCodeBepalerInput(PRNr)
 	Quit ..GeefTBXImageCode(LadeImageCodeBepalerInput)
 ]]></Implementation>
 </Method>
@@ -331,13 +331,13 @@
 		Set ObjType = ..#ObjType
 		Set ObjRef = PRNr
 	} Else { ; mogelijk generisch afgeleid product
-		#dim GenTyp As %String = $P($$GENTYP^HAD(PRNr),"\",1,2)
+		Set GenTyp = $P($$GENTYP^HAD(PRNr),"\",1,2)
 		If GenTyp '= "" {
-	 		#dim Type As %String = $P($G(^RES("HAD","PI","GENTYP","D",GenTyp)),"`",$S($E(Gebruik)="I":4,1:5))
-	 		#dim Ref As %String = ""
+	 		Set Type = $P($G(^RES("HAD","PI","GENTYP","D",GenTyp)),"`",$S($E(Gebruik)="I":4,1:5))
+	 		Set Ref = ""
 	 		Set:Type="TBX" Ref=..GeefImageCodeViaTBXProduct(PRNr)
 	 		Set:Type="KAD" Ref=..KADImageCode(PRNr)
-	 	//	Set:((Type="TAO") || (Type="LBX")) Ref = ..ImageCodeViaIngegevenKenmerken(PRNr)
+	 	//	Set:((Type="TAO") || (Type="LBX")) Ref = ..ImageCodeViaIngegevenKenmerken(PRNr)   ; Nieuw maatwerk-framework alleen op Cache2010 
 	 		Set:Type="HALID" Ref=PRNr ; Halux product, alleen voor intern gebruik
 	 		If $L(Ref)&&((Type="HALID") || ##class(Res.ImageLink).HasImage(Type,Ref)) {
 		 		Set ObjType = Type