Resource.Image Prod.Product,vhLib.Macro 1 %RegisteredObject 0 %String 1 %String 1 %RegisteredObject %Integer 1 ImageID,Key ",Sequence,! . Do oImg.%Save() Else . Set URL=..blImg.CreateURL("FILE",oLink.Pad,oLink.BestandsNaam,oLink.Extensie) . Set Size=##class(%File).GetFileSize(URL) . Quit:oLink.FileSize=Size . Set oLink.FileSize=Size . Do oImg.%Save() ]]> Path:%String="" 100 Sequence="" ; fout in databank size is ingevuld in sequence . If Sequence>0 Do . . For i=1:1:Sequence Do . . . Set URL=..blImg.CreateURL("FILE",Pad,Naam,Extensie,i) . . . Quit:$L(Path)&&($E($ZCVT(URL,"U"),1,$L(Path))'=Path) ; Beperken tot path . . . If '##class(%File).Exists(URL) Do . . . . Write rs.Data("ID")," ",rs.Data("element_key"),": ",URL," is niet gevonden (sequence)",! . . . . Do ..UpdateFileSize(rs.Data("ID"),rs.Data("element_key")) . . . . Set i=999 . Else Do . . Set URL=..blImg.CreateURL("FILE",Pad,Naam,Extensie) . . Quit:$L(Path)&&($E($zcvt(URL,"U"),1,$L(Path))'=Path) ; Beperken tot path . . If '##class(%File).Exists(URL) Do . . . Write rs.Data("ID")," ",rs.Data("element_key"),": ",URL," is niet gevonden ",! . . Else Do . . . Do ..UpdateFileSize(rs.Data("ID"),rs.Data("element_key")) ]]> Path 1 Path:%String Path:%String="" Producten ophalen pxCriteria:BL.Prod.sub.pxImageLinkCriteria Image(Res.Imagelink) is approved %Status URL %String FilePad %String URL %String Haalt de ID's op van de ImageLink met dezelfde afbeelding en pad %ID,Element_Key,Links_VisueelType,Links_Extensie,Links_Pad,Links_BestandsNaam INTO :ImgID,:Key,:VisueelType,:Extensie,:Pad,:Naam FROM Res.ImageLink_Links WHERE (Links_Extensie=:Extensie) and (Links_Pad=:Pad) and (Links_BestandsNaam=:BestandsNaam)) &sql(OPEN IdCheckUp) For &sql(FETCH IdCheckUp) Quit:SQLCODE Do . Set arID(VisueelType,ImgID)="" &sql(CLOSE IdCheckUp) ]]> Alleen als de afbeeldingen van alle types gelijk zijn, dan wordt de ID toegevoegd aan het lijstje BONNr %SQLQuery ObjType,ImageLink->ObjRef,ImageLink->SubID From Res.ImageLink_Links]]>