Esecuzione di un report con parametri e download risultato in PDF

Last updated on

 

' Il seguente frammento di codice mostra come eseguire un report REPX e farne scaricare il risultato in formato PDF
' In questo esempio si presuppone che il report abbia un parametro denominato NUMDOC per filtrare il questionario 

dim numdoc as string

UnPackCode("SC",form.findcontrol("COD_QUEST").value,numdoc)

Dim f as string
Dim par as new Assocarray()

par("NUMDOC")=numdoc

f = PrintReportWeb(form.Session, "STAMPA QUESTIONARIO.repx", New DBArray, nothing, New DBArray, par, "PDF") ' !!! ATTENZIONE: la chiamata a PrintReportWeb non va MAI inserita all'interno di una transazione

If File(Q95_PATH_TEMP + "\" + f) Then
   BrowserOpen(Form, CreateDownloadRequest(form, Q95_PATH_TEMP + "\" + f, False, "QUESTIONARIO.PDF"))
End If