BL.EC.Common,Prod.Product,vhLib.Macro 1 %RegisteredObject,%XML.Adaptor 0 %String %String %String PageNbr:%String %String +$List(^BlumCatalogPages(pdfFile),2))) Do . . . set res = pdfFile Quit res ]]> Taal 0 "_PDFName . else do . . ;Write !,"PDF exist "_Katern_":"_PageRef_"->"_PDFName . Set fileSize=$P(DirList(FileName),"\") . . Set LastTFile=$O(DirTList($E(FileName,1,$L(FileName)-4)_"_~"),-1) . If $E(LastTFile,1,$L(PDFName))'=PDFName Do Quit . . Write !,"Thumbnail doesn't exist "_Katern_":"_FileName_"->"_LastTFile_"<-"_$E(FileName,1,$L(FileName)-4)_"_~" . Set PageCnt=+$P(LastTFile,".",$L(LastTFile,".")-1) . w !,LastTFile,"=",PageCnt . ; Else . Set VolgNr="" . for Set VolgNr=$O(^KATALOOG(Katern,VolgNr)) Quit:VolgNr="" Do . . Set PRNr=$P(^KATALOOG(Katern,VolgNr),"\",1) . . Quit:PRNr'?4.7N . . Quit:'$D(^KPR(PRNr)) . . Do ..CreateImageLink(PRNr,$Piece(FileName,"."),PageCnt,fileSize,Katern_";"_PageRef,"VH") // Create the image link . . Kill ^|"TST-ADMIN1"|Res.ImageLinkD("PR",PRNr) else do . //d WL^vhDBG("file not found") . Quit Quit ]]> Taal 0 "_PDFName . else do . . ;Write !,"PDF exist "_Katern_":"_PageRef_"->"_PDFName . Set fileSize=$P(DirList(FileName),"\") . . Set LastTFile=$O(DirTList($E(FileName,1,$L(FileName)-4)_"_~"),-1) . If $E(LastTFile,1,$L(PDFName))'=PDFName Do Quit . . Write !,"Thumbnail doesn't exist "_Katern_":"_FileName_"->"_LastTFile_"<-"_$E(FileName,1,$L(FileName)-4)_"_~" . Set PageCnt=+$P(LastTFile,".",$L(LastTFile,".")-1) . ;w !,LastTFile,"=",PageCnt . ; Else . Set VolgNr="" . for Set VolgNr=$O(^KATALOOG(Katern,VolgNr)) Quit:VolgNr="" Do . . Set PRNr=$P(^KATALOOG(Katern,VolgNr),"\",1) . . Quit:PRNr'?4.7N . . Quit:'$D(^KPR(PRNr)) . . w !,Katern," ",$P(^KPR(PRNr,0),D,1),"->",FileName . . Do ..CreateImageLink(PRNr,$Piece(FileName,"."),PageCnt,fileSize,Katern_";"_PageRef,"HALUX") // Create the image link . . . . Kill ^|"TST-ADMIN1"|Res.ImageLinkD("PR",PRNr) else do . //d WL^vhDBG("file not found") . Quit Quit ]]> Pad,FileName PRNr,pdfFile,PageCnt,FileSize,Opmerking,Cataloog 1 ShortText:%String 1 %List