Index: BL/Prod/ImageLink.cls.xml =================================================================== diff -u -r1074 -r1972 --- BL/Prod/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 1074) +++ BL/Prod/ImageLink.cls.xml (.../ImageLink.cls.xml) (revision 1972) @@ -159,7 +159,7 @@ Quit:$LG($G(^Res.ImageCRMD("K",KLNr,ProdGrp)),DocPos)'="" $LI(^Res.ImageCRMD("K",KLNr,ProdGrp),DocPos) Quit:$LG($G(^Res.ImageCRMD("K",KLNr,"*")),DocPos)'="" $LI(^Res.ImageCRMD("K",KLNr,"*"),DocPos) - Set Regio=$P(^KKL(^KK1(KLNr),0),"\",20) + Set Regio=$P($G(^KKL($G(^KK1(KLNr),"??"),0)),"\",20) Set:(Regio="") Regio="*" Quit:$LG($G(^Res.ImageCRMD("R",Regio,ProdGrp)),DocPos)'="" $LI(^Res.ImageCRMD("R",Regio,ProdGrp),DocPos) Quit:$LG($G(^Res.ImageCRMD("R",Regio,"*")),DocPos)'="" $LI(^Res.ImageCRMD("R",Regio,"*"),DocPos) @@ -588,7 +588,7 @@ Set:Toepassing="LABELROOT" Pref=$LB("W",$LB("JPG","GIF","TIF","BMP"),"V",$LB("SVG")) Set:Toepassing="WMS" Pref=$LB("W",$LB("JPG")) Set:Toepassing="MAKOVA" Pref=$LB("M",$LB("BMP")) - Set:Toepassing="THUMBNAIL" Pref=$LB("T",$LB("JPG")) + Set:Toepassing="THUMBNAIL" Pref=$LB("T",$LB("JPG"),"W",$LB("JPG")) Quit Pref ]]> Index: BL/FOP/Prod/Product.cls.xml =================================================================== diff -u -r1074 -r1972 --- BL/FOP/Prod/Product.cls.xml (.../Product.cls.xml) (revision 1074) +++ BL/FOP/Prod/Product.cls.xml (.../Product.cls.xml) (revision 1972) @@ -126,7 +126,7 @@ . Quit:($G(OutputAction)?1(1"PRINT",1"FAX")) . Set ..InfoUrl=blImage.GetInfoPageURL(PRNr, "E", Taal) // URL van ProductBeeld om ge-embed te worden in de PDF door FOP; Returns proxy-object pxAttribType - If (Basis="[Prod.VoorraadTellingXXX]")||(blImage.ShowProductImage(KLNr,PRNr,Basis)) Do ; (Basis="[Prod.VoorraadTelling]") ; modified by WimV on 11/03/2011 + If (Basis="[Prod.VoorraadTelling]")||(blImage.ShowProductImage(KLNr,PRNr,Basis)) Do ; (Basis="[Prod.VoorraadTelling]") ; modified by WimV on 11/03/2011 --> terug actief op 07/06/2011 . Set ..ImageUrl=blImage.GetProductImageURL(PRNr,"FOPEMBED"_$S($G(OutputType)="PS":"PS", $G(OutputType)="PDF":"PDF", 1:"")) . ;d WLIP^vhDBG(97,$J(PRNr,8)_" : "_$S($IsObject(..ImageUrl):..ImageUrl.Content, 1:""))