Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r18394 -r20214
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 18394)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 20214)
@@ -1086,77 +1086,41 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ImageCodeFromLC">
+<Method name="GeefTBXLadeImageCodeBepalerInputMetDefaults">
 <Description>
-Conversie van LadeCode en BoxSide</Description>
+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>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeCode,BoxSide,Design,BinnenGreep,SPZK</FormalSpec>
+<FormalSpec>LadeCode:%String,BoxSide:%String="",Design:%String,BinnenGreep:%String="",SPZK:%String="",OnderdelenSpeciaal:%String="",NietMeeleverenBoxSide:%Boolean=0</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
+<ReturnType>APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</ReturnType>
 <Implementation><![CDATA[
-	Quit:(LadeCode="") ""
-	;Quit:(BoxSide="") ""
-
-	// LadeCode , Boxside, Design 
-	Set KLAS=..KLASFromLC(LadeCode)
-	Set LC=$TR(LadeCode,"I\/","")
-	If (LC["2")&&(KLAS="SP2") { 
-		Set LC=$TR(LC,"2","")
+	Set LadeImageCodeBepalerInput = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput).%New(LadeCode,BoxSide,Design,BinnenGreep,SPZK,OnderdelenSpeciaal,NietMeeleverenBoxSide)
+	If LadeImageCodeBepalerInput.BoxSideID="" {
+		Set LadeImageCodeBepalerInput.BoxSideID=..GeefZijwandVerhogingDefault(LadeImageCodeBepalerInput.LadeCodeID,LadeImageCodeBepalerInput.DesignID)
 	}
-
-	Set BS=BoxSide
-	Set DC=..DesignCodeFromDS($G(Design))   ; Intivo = I-design 
-	
-	// Uitzonderingen 
-	If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() {
-		Set:(LC?1.E1"B") LC=$E(LC,1,$L(LC)-1)    ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen 
-		If (DC="A") {
-			Set:(LC="C")||(LC="D") LC=LC_"M"
-		}
-	}
-	
-	If DC="I" Do   ; intivo 
-	. Set:(BoxSide?1(1"BK",1"CAP")) BS="CAP"
- 	. Set:(BoxSide?1(1"BC",1"BZ",1"COV")) BS="COV"
-	. If $G(BinnenGreep)="V" Do              ; binnenlade met glas (Verre) 
-	. . Set BS=BS_"_FG"
-	Else  If DC="A" Do   ; Dus niet DC="MA" 
-	. If $G(BinnenGreep)="V" Do              ; binnenlade met glas (Verre) 
-	. . ;Set BS=BS_"_FG"
-	Else  Do
-	. Set DC=""
-
-	// Dubbele sifonlade 
-	Set SifonQty=""
-	If $L($G(SPZK)) Do
-	. Set SifonQty=..SpoelbakUitsparingen(LadeCode,SPZK)
-	. ;Set:(KLAS="SY")&&(SifonQty>1) LC=$$$Replace(LC,"Y","Y2")   ; Vorige opbouw van de imagecode. Deze gaf problemen voor klasse=SY2, want ladecode is reeds een "2" vlak na de "Y" 
-	
-	Quit DC_LC_$S($L(BS):"_"_BS, 1:"")_$S(SifonQty>1:"_x2",1:"")
+	Quit LadeImageCodeBepalerInput
 ]]></Implementation>
 </Method>
 
 <Method name="GetImageURL">
 <Description>
 Geeft de ImageURL voor de foto van de lade terug (berekening via BL.Prod.ImageLink) 
 Toepassing = "WEB" of "MAKOVA" 
-LadeCode is verplicht 
-BoxSide of reling :  indien "" dan wordt de default Boxside/Reling voor deze LadeCode gekozen 
-Design is belangrijk voor Intivo 
-BinnenGeep is optioneel, belangrijk voor Inschuifelement bij binnenladen DL/Z en CL/Z 
-SPZK is belangrijk voor dubbele sifonlade </Description>
+LadeImageCodeBepalerInput : zie method GeefTBXLadeImageCodeBepalerInputMetDefaults() </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Toepassing:%String,LadeCode:%String,BoxSide:%String,Design:%String,BinnenGreep:%String,SPZK:%String</FormalSpec>
+<FormalSpec>Toepassing:%String,LadeImageCodeBepalerInput:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:(LadeCode="") ""
-	
-	// Default Boxside indien leeg 
-	If $G(BoxSide)="" Set BoxSide=..GeefZijwandVerhogingDefault(LadeCode,Design)
-	
-	Set blImage=##class(BL.Prod.ImageLink).Instantiate()
-	Set ObjRef=blImage.TBXImageViaCode(LadeCode, BoxSide, Design, .BinnenGreep, .SPZK)   ; Deze roept  ##class(BL.PR.GA.TandemBox).ImageCodeFromLC(...)  op 
-	;d WLIP^vhDBG(97,"TBox GetImageURL()"_ObjRef_"  "_$$$LCVT($LB(LadeCode, BoxSide, Design, BinnenGreep, SPZK)))
-	Set URL=blImage.GetImageURL("TBX",ObjRef,Toepassing)
+	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=""
 	Quit URL
 ]]></Implementation>
Index: Prod/GAData/Product/tmpDev2.mac.rou
===================================================================
diff -u -r2589 -r20214
--- Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 2589)
+++ Prod/GAData/Product/tmpDev2.mac.rou	(.../tmpDev2.mac.rou)	(revision 20214)
@@ -259,24 +259,19 @@
  
 xmlwSpecialsTBX 
 #define VTLKeyLC   "PR;GA;TBLC"
- New LC,URL2
+ New LC,URL2,LadeImageCodeBepalerInput
  Set LC=..Val("LC")
  Do TAGWRITE^XMLWRITE(DevObj,"LADECODE",LC)
  Do WRITELN^XMLWRITE(DevObj)
  // Via BL.Prod.ImageLink 
- Set URL2=##class(BL.PR.GA.TandemBox).GetImageURL("WEB", ..Val("LC"),..Val("BS"),..Val("DS"),..Val("BGRP"),..Val("SPZK"))
  
- // Via VertalingLink (OLD) 
- ;Set URL2=##class(Res.VertalingLink).GetLinkVertaling($$$VTLKeyLC,$$xmlwTBXLCToImg(LC),"LB",Taal,,"WWW")
- ;Set:(URL2[".gif")&&(..Val("BS")="BD") URL2=$$REPLACE^vhRtn1(URL2,".gif","_BS.gif")   ; Dubbelwandige boxside
+ Set LadeImageCodeBepalerInput = ##class(BL.PR.GA.TandemBox).GeefTBXLadeImageCodeBepalerInputMetDefaults(..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
- /*
-xmlwTBXLCToImg(LC)
- Quit:($G(LC)="") ""
- Quit ##class(BL.PR.GA.TandemBox).ImageCodeFromLC(.LC,..Val("BS"))
- */ 
+
  
  
  ; GAData.Product methods:
Index: BL/PR/GA/TB/tmpDev.mac.rou
===================================================================
diff -u -r1152 -r20214
--- BL/PR/GA/TB/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1152)
+++ BL/PR/GA/TB/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 20214)
@@ -29,8 +29,6 @@
  Quit $G(lbTPs) 
 CalcBreedteIntern()   ; (CB,WD,OPVLLI,OPVLRE,MTIB)
  Quit CB-(2*$G(WD))-($G(OPVLLI)+$G(OPVLRE))-$G(MTIB)
-ImageCodeFromLC()   ; Parameters: LC,BS
- Quit ImgLC_"_"_$S($E(BS,1)="B":"BD", 1:BS)
 CalcInfoDiverse()   ; Parameters: WSOrdLn,lbArgs
  Quit tmpLB
 DFLBoxSideID()   ; Parameters: blnBX,VoorkeurID
Index: BL/Prod/ImageLink.cls.xml
===================================================================
diff -u -r2692 -r20214
--- BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 2692)
+++ BL/Prod/ImageLink.cls.xml	(.../ImageLink.cls.xml)	(revision 20214)
@@ -226,47 +226,57 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TBXImageCode">
+<Method name="GeefTBXLadeImageCodeBepalerInput">
+<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 
+	Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"BGRP"))   ; Binnengreep 
+	Set SPZK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"SPZK"))   ; Spoelbakzijkant / sifonlade type 
+	Set ODSP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"ODSP"))   ; Onderdelen Speciaal 
+	Set NMBS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"NMBS"))   ; NietMeeleveren BoxSide 
+	
+	Set LadeImageCodeBepalerInput = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput).%New(LC,BS,DS,BGRP,SPZK,ODSP,NMBS)
+	Quit LadeImageCodeBepalerInput
+]]></Implementation>
+</Method>
+
+<Method name="GeefImageCodeViaTBXProduct">
 <Description>
-d ##class(BL.Prod.ImageLink).TBXImageCode(PRNr)
-Bepaald aan de hand van de productkenmerken de code voor het beeld
+Bepaalt aan de hand van de productkenmerken de code voor het beeld
 Het eigenlijke beeld moet nog opgezocht worden in datastructuur Res.ImageLink</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))       ; LadeCode 
-	Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))       ; Design (A voor intivo) 
-	Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS"))       ; BoxSide 
-	Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP"))   ; Binnengreep 
-	Set NMBS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS"))     ; NietMeeleveren BoxSide 
-	Set SPZK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"SPZK"))   ; Spoelbakzijkant / sifonlade type 
-	Set:(BS="BD")&&NMBS BS="ER"
-
- 	Quit ..TBXImageViaCode(LC,BS,DS,BGRP,SPZK)
+	#dim LadeImageCodeBepalerInput As APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput = ..GeefTBXLadeImageCodeBepalerInput(PRNr)
+	Quit ..GeefTBXImageCode(LadeImageCodeBepalerInput)
 ]]></Implementation>
 </Method>
 
-<Method name="TBXImageViaCode">
-<Description>
-w ##class(BL.Prod.ImageLink).TBXImageViaCode("DLS2","BK","II")
-Bepaald aan de hand van kenmerken de code voor het beeld
-Wordt ook direct opgeroepen vanuit de TBX wizard</Description>
+<Method name="GeefTBXImageCode">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeCode,BoxSide,Design,BinnenGreep,SPZK</FormalSpec>
+<FormalSpec>LadeImageCodeBepalerInput:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Quit:(LadeCode="") ""
-	Quit:(BoxSide="") ""
+	Quit:(LadeImageCodeBepalerInput.LadeCodeID="") ""
+	Quit:(LadeImageCodeBepalerInput.BoxSideID="") ""
 
-	Set ImgCode=##class(BL.PR.GA.TandemBox).ImageCodeFromLC(LadeCode, BoxSide, Design, .BinnenGreep, .SPZK)
- 	Quit ImgCode
+	Set TBXLadeImageCodeBepaler = ##class(APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepaler).%New()
+	Quit TBXLadeImageCodeBepaler.GeefImageCode(LadeImageCodeBepalerInput)
 ]]></Implementation>
 </Method>
 
 <Method name="KADImageCode">
-<Description>
-d ##class(BL.Prod.ImageLink).KADImageCode(PRNr)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr</FormalSpec>
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set PT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"PT")) ; Profieltype
 	Quit:PT="" ""
@@ -316,19 +326,25 @@
 Gebruik = Intern of Extern</Description>
 <FormalSpec><![CDATA[PRNr:%Integer,Gebruik:%String="E",&ObjType,&ObjRef]]></FormalSpec>
 <Implementation><![CDATA[
-	#define OLGroep "OL"
-	Set (ObjType,ObjRef)=""
-	If ##class(Res.ImageLink).HasImage(..#ObjType,PRNr) Do
-	. Set ObjType=..#ObjType,ObjRef=PRNr
-	Else  Do ; mogelijk generisch afgeleid product
-	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
-	. Quit:GenTyp=""
- 	. Set Type=$P($G(^RES("HAD","PI","GENTYP","D",GenTyp)),"`",$S($E(Gebruik)="I":4,1:5))
- 	. Set:Type="TBX" Ref=..TBXImageCode(PRNr)
- 	. Set:Type="KAD" Ref=..KADImageCode(PRNr)
- 	. Set:Type="HALID" Ref=PRNr ; Halux product, alleen voor intern gebruik
- 	. If $L($G(Ref)),(Type="HALID")||(##class(Res.ImageLink).HasImage(Type,Ref)) Set ObjType=Type,ObjRef=Ref
- 	. ;W GenTyp," ", Type," ", ObjType,":",ObjRef,!
+	Set (ObjType,ObjRef) = ""
+	If ##class(Res.ImageLink).HasImage(..#ObjType,PRNr) {
+		Set ObjType = ..#ObjType
+		Set ObjRef = PRNr
+	} Else { ; mogelijk generisch afgeleid product
+		#dim GenTyp As %String = $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="TBX" Ref=..GeefImageCodeViaTBXProduct(PRNr)
+	 		Set:Type="KAD" Ref=..KADImageCode(PRNr)
+	 	//	Set:((Type="TAO") || (Type="LBX")) Ref = ..ImageCodeViaIngegevenKenmerken(PRNr)
+	 		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
+		 		Set ObjRef = Ref
+	 		}
+		}
+	}
 	Quit
 ]]></Implementation>
 </Method>