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>