Resource.Image persistent 1 %Persistent PR=Product, TR=Tree, KN=Kenmerk %String Bij produict een intern product nr %String voor uniciteit %String Indien Leeg = VH, Indien numeriek dan leveranciersnr Anders code van creator (bv. extern bureau, ...) %String %TimeStamp bv BMECat, CAT, OLKENM %String PB=ProductBeel,MO=Montage,PL=... %String %String Indien E = Extern toonbaar %String Omschrijving %String Zoeksleutels %String list Leeg betekent taal onafhankelijk %String %String %String Verhouding Breedte/Hoogte %Float Moet het beeld verkleind worden weergegeven. Bv. een drevel moet niet op 100% worden weergegeven %Float emLink array %TimeStamp Datum van controle dat het beeld goed afdrukt %TimeStamp PB;AG;FO;VG;IL;FI;TA;QT;VB;VF;MO;PL;PI;CA 1 1 ObjType,ObjRef,SubID 1 AND (Taal=:Taal OR isnull(Taal,'*')='*') %SQLQuery ObjType,ObjRef,lbFunctieType:%List,Taal 0 AND (Taal=:Taal OR isnull(Taal,'*')='*') ORDER BY $ListFind(:lbFunctieType,FunctieType)]]> JBL extra uitleg : VisueelType (W = Web, T = Tumbnail, P = Print) %SQLQuery ID:%String,FunctieType:%String,lbVisueelType:%List,lbExtensie:%List,Taal ID=:ID AND ImageLink->FunctieType=:FunctieType AND $ListFind(:lbVisueelType,Links_VisueelType)>0 AND $ListFind(:lbExtensie,Links_Extensie)>0 AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,'*')='*') ORDER BY $ListFind(:lbVisueelType,Links_VisueelType),$ListFind(:lbExtensie,Links_Extensie)]]> %SQLQuery ObjType,ObjRef,FunctieTypes:%List,VisueelType,Taal FunctieType,Links_VisueelType,Links_Pad,Links_BestandsNaam,Links_Sequence,Links_Extensie from Res.ImageLink_Links where ImageLink->ObjType=:ObjType AND ImageLink->ObjRef=:ObjRef AND $ListFind(:FunctieTypes,ImageLink->FunctieType)>0 AND Links_VisueelType=:VisueelTypes AND (ImageLink->Taal=:Taal OR isnull(ImageLink->Taal,'*')='*') ORDER BY $ListFind(:FunctieTypes,ImageLink->FunctieType)]]> 1 ObjType,ObjRef ObjType,ObjRef ##class(Res.ImageLink).GetFile("START","PR||1847||1",$LB("PB"),"\") 1 StartPad,ImageID,VisueelType,Delim 1 ImageID,VisueelType Taal %String 1 1 1 Pad1,Pad2,BestandsNaam,Sequence,Extensie,Delim 1 Pad1,Pad2,Delim 1 IDType,ID,Groep,GebruiksDoel,Taal IDType,ID,Groep,GebruiksDoel,Taal VolgNr is optioneel, alleen nodig als je de volgorde zelf in hand wil houden VisueelType,Pad,BestandsNaam,Sequence,Extensie,FileSize NewStatus =================================================================================================================================================== QUERY: QGetLinks =================================================================================================================================================== 1 0 %Status --------------------------------------------------------------------------------------------------------------------------------------------------- 1 QGetLinksExecute 0 %Status --------------------------------------------------------------------------------------------------------------------------------------------------- 1 QGetLinksExecute 0 %Status =================================================================================================================================================== %Query paObjType:%String,paObjRef:%String,palbFunctieType:%String=$LB("*"),palbVisueelType:%String=$LB("*"),palbExtensie:%String=$LB("*"),paTaal:%String =================================================================================================================================================== %SQLQuery paObjType:%String,paObjRef:%String,palbFunctieType:%String=$LB("*"),palbVisueelType:%String=$LB("*"),palbExtensie:%String=$LB("*"),paTaal:%String %ID,Element_Key,ImageLink->ObjType,ImageLink->ObjRef,ImageLink->FunctieType,Links_VisueelType,Links_Extensie FROM Res.ImageLink_Links WHERE (ImageLink->ObjType=:paObjType) AND (ImageLink->ObjRef=:paObjRef) AND (($ListFind(:palbFunctieType,'*')>0) OR ($ListFind(:palbFunctieType,ImageLink->FunctieType)>0)) AND (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]> =================================================================================================================================================== QUERY: QGetLinksViaID =================================================================================================================================================== 1 0 %Status --------------------------------------------------------------------------------------------------------------------------------------------------- 1 QGetLinksExecute 0 %Status --------------------------------------------------------------------------------------------------------------------------------------------------- 1 QGetLinksExecute 0 %Status =================================================================================================================================================== %Query paImageLinkID:%String,paFunctieType:%String,palbVisueelType:%String=$LB("*"),palbExtensie:%String=$LB("*"),paTaal:%String =================================================================================================================================================== %SQLQuery paImageLinkID:%String,paFunctieType:%String,palbVisueelType:%String=$LB("*"),palbExtensie:%String=$LB("*"),paTaal:%String %ID=:paImageLinkID) AND (ImageLink->FunctieType=:paFunctieType) AND (($ListFind(:palbVisueelType,'*')>0) OR ($ListFind(:palbVisueelType,Links_VisueelType)>0)) AND (($ListFind(:palbExtensie,'*')>0) OR ($ListFind(:palbExtensie,Links_Extensie)>0)) AND (ImageLink->Taal=:paTaal OR ISNULL(ImageLink->Taal,'*')='*')]]> 1 MaxSubID MaxSubID=SubID Set ^Res.ImageLinkD=MaxSubID ]]> insert:%Boolean 1 %Status 5 Set ..ApprovedOn="" Quit $$$OK ]]> %Library.CacheStorage ^Res.ImageLinkD ImageLinkDefaultData ^Res.ImageLinkD ^Res.ImageLinkI ^Res.ImageLinkS %%CLASSNAME BlumFormat BlumVersion Creator FunctieType Groep Omschrijving Sleutels Status Taal Oorsprong AspectRatio ScaleFactor CreatieTijdstip Approved ModifyTimeStamp ApprovedOn Links subnode "Links"