Resource.Image Prod.Product,vhLib.Macro 1 %RegisteredObject 0 //Notes01/Images //Notes01/Images/Copy d ##class(BL.Prod.ImageLinkChangeName).Test(1) 1 Verify Verify ID ",ToPath . . If '##class(%File).Exists(ToPath) Do . . . Do ..CopyFile(FromPath,ToPath) . . . If '##class(%File).Exists(ToPath) Do . . . . Write !,ID," Bestand bestaat niet na copieren",ToPath . . . . r !,"press enter",k . Else Do ; Remove link . . Set IsModified=1 . . Do oImage.Links.RemoveAt(.Key) If oImage.Links.Count()="" Do . Set oImage="" . Set sc=$$$OK . Set sc=##class(Res.ImageLink).%DeleteId(ID) . Write:$$$ISERR(sc) ID," kan niet verwijderen ",$$ParseStatus^vhLib(sc),! . Write ID," ",Verwijderd,! . r !,"press enter",k Else If IsModified Do . Set sc=$$$OK . Set sc=oImage.%Save() . Write:$$$ISERR(sc) ID," ",$$ParseStatus^vhLib(sc),! ]]> ID oLink " Set NewNaam=..NormalizeName(Naam) Set:Naam'=NewNaam oLink.BestandsNaam=NewNaam,Changed=1 If oLink.Extensie="SVG"&&((oLink.Pad["BLUM")||(oLink.Pad["VH"))&&($E($Reverse(oLink.Pad),1,2)'?1"V"1(1"\",1"/")) Do . Set Pad=oLink.Pad . Set $E(Pad,$L(Pad))="V" . Set Changed=1 . Set oLink.Pad=Pad ;w NewNaam Quit Changed ; changed ]]> Naam FromPath,ToPath ",ToPath,! ]]>