Consente di specificare la versione dell'HTML in cui salvare il report.
È necessario richiamare tale metodo una volta richiamato il metodo SetHTMLFileName e prima di richiamare il metodo ExecuteReport per impostare il tipo di formato HTML del file di output di report.
Costante | Valore | Descrizione |
---|---|---|
_REPORT_FORMAT_HTML32 | 1 | Genera un file in formato HTML 3.2 |
_REPORT_FORMAT_HTML40 | 2 | Genera un file in formato HTML 4.0 |
Il formato predefinito è il formato HTML 3.2 (_REPORT_FORMAT_HTML32). Se il metodo SetFormat non viene utilizzato prima di richiamare ExecuteReport, l'output viene generato nel formato predefinito.
VBScript
Dim cq_user,cq_pass,dbset,userdb cq_user="admin" cq_pass="" dbset="7.0.0" userdb="sampl" 'Create external session object Set sessionObj = CreateObject("CLEARQUEST.SESSION") sessionObj.UserLogon cq_user, cq_pass , userdb, AD_PRIVATE_SESSION, dbset Set wkspc = sessionObj.GetWorkSpace Set repMgr = wkspc.GetReportMgr("Public Queries/Reports/Defect Detail (All)") repMgr.SetHTMLFileName "W:\Shared\Defects\out_report_format32.html" repMgr.SetFormat AD__REPORT_FORMAT_HTML32 repMgr.ExecuteReport ' Remove the reference Set sessionObj = Nothing
Perl
use CQPerlExt; $CQSessionobj = CQSession::Build(); $CQSessionobj->UserLogon('admin', '', 'sampl', '7.0.0'); $CQWorkSpace = $CQSessionobj->GetWorkSpace(); $CQReportMgr = $CQWorkSpace->GetReportMgr('Public Queries/Reports/Defect Detail (All)'); $CQReportMgr->SetHTMLFileName("W:\\Shared\\Defects\\out_pl_CQ_REPORT_FORMAT_HTML40.html"); $CQReportMgr->SetFormat($CQPerlExt::CQ_REPORT_FORMAT_HTML40); $CQReportMgr->ExecuteReport(); CQSession::Unbuild($CQSessionobj);