User cache %CSP.Page 0 c:\cachesys\csp\admin1\ProductLinks.csp /csp/admin1/ProductLinks.csp 60600,56228 1 code lbErrTypes cache ",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum") #EndIf Quit ]]> 1 code %Status 1 code %Boolean " Write !,$c(9)_"

Taal : "_(%Taal)_" - " Write "" Write ($S(%Taal="N":"Français",1:"Nederlands")) Write "" Write "

",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
" Write "" Write "Product: "_($S(blnValidProd:oProd.KortTekst, 1:"Onbekend product"))_"" Write "" Write "
",! Write $c(9)_"

 

",! If '(blnValidProd) Goto %csp00001 ;{ Write !,! #define MaxPdfPerRow 5 #define MaxPdfToShow 100 Set StartPad="//res.vanhoecke.be/" Set rsImg=##Class(%ResultSet).%New("Res.ImageLink:Image") Do rsImg.Execute("PR",oProd.%Id(),$LB("CA"),%Taal) ; Haalt alle objecten waarvan de functietype is CA(ook dubbels worden getoond) Write !,$c(9),! %csp00003 If '(rsImg.Next()) Goto %csp00002 ;{ Write !,$c(9)_"",! Write $c(9,9) Do ##class(Res.ImageLink).GetFiles(StartPad,rsImg.Data("%ID"),"T","/",.arJPGs) Set WFilePDF="http:"_$ZCVT(##class(Res.ImageLink).GetFile(StartPad,rsImg.Data("%ID"),"P","/"),"O","URL") d WLIP^vhDBG(97,"URLs"_$$$ArrayTT("arJPGs")) Set:(WFilePDF="http:") WFilePDF="#" Set txtPDF=$S(WFilePDF?1"http://".E:$P(WFilePDF,"/",4,99), 1:WFilePDF) Set Cnt=0 Set I="" Set I=$O(arJPGs(I)) Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) %csp00005 If '(((I'="")&&(Cnt<$$$MaxPdfToShow))) Goto %csp00004 ;{ Write !,$c(9,9,9,9) Set WFile="http:"_$ZCVT($G(arJPGs(I)),"O","URL") Set:(WFile="http:") WFile="#" Set blnNewRow=($INCREMENT(Cnt) # $$$MaxPdfPerRow=0) Write !,$c(9,9,9)_"",! Write $c(9) If '(blnNewRow) Goto %csp00006 ;{ Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9) %csp00006 ;} Write !,$c(9,9,9) Set I=$O(arJPGs(I)) Write !,$c(9,9,9) Goto %csp00005 %csp00004 ;} Write !,$c(9,9)_"",! Write $c(9)_"
" Write "" Write (txtPDF) Write "" Write "
" Write "" Write "" Write "" Write "
",! Goto %csp00003 %csp00002 ;} Write !,!,$c(9)_"

 

",! Write $c(9),! Write $c(9)_"",! Write $c(9) Set StartPad="//res.vanhoecke.be/" Set rsImg=##Class(%ResultSet).%New("Res.ImageLink:Image") Do rsImg.Execute("PR",oProd.%Id(),##class(Res.ImageLink).AllFunctieTypes(),%Taal) ; Haalt alle objecten waarvan de functietype is PB en AG (ook dubbels worden getoond) Write ! %csp00008 If '(rsImg.Next()) Goto %csp00007 ;{ Write !,$c(9,9) Set WFile="http:"_$ZCVT(##class(Res.ImageLink).GetFile(StartPad,rsImg.Data("%ID"),"W","/"),"O","URL") Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9) Set Cont=rsImg.Next() Set:Cont WFile="http:"_$ZCVT(##class(Res.ImageLink).GetFile(StartPad,rsImg.Data("%ID"),"W","/"),"O","URL") Write !,$c(9,9,9)_"",! Write $c(9,9)_"",! Goto %csp00008 %csp00007 ;} Write !,$c(9)_"
" Write "" Write "" Write "" Write "",! Write $c(9,9,9) If '(Cont) Goto %csp00009 ;{ Write !,$c(9,9,9)_" " Write "" Write "" Write "" Write !,$c(9,9,9)_" " Goto %csp00010 ;} %csp00009 ;{ Write " ",! Write $c(9,9,9) %csp00010 ;} Write !,$c(9,9,9)_"
",! Write $c(9),! Write $c(9)_"

 

",! Write ! %csp00001 ;} Write !,$c(9),! Write "" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"Product documentatie",! Write $c(9) Write "" Write !,!,"" ]]> 1 code %Boolean " Write ! Do ..Include("vhLib.Macro.INC") Write !,!,!,! Set %session.AppTimeout = 300 Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean