SetFormat

Descrizione

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.

Specificare una delle seguenti costanti formato report nel parametro format.
Nota: ciascuna costante viene preceduta da AD per VBScript o da $CQPerlExt::CQ per Perl. Ad esempio, AD_REPORT_FORMAT_HTML32.
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.

Nota: questo metodo è nuovo nella versione 7.0.0.1 (e nella 2003.06.16)

Sintassi

VBScript

reportMgr.SetFormat format 

Perl

$reportMgr->SetFormat(format); 
Identificativo
Descrizione
reportMgr
L'oggetto ReportMgr associato alla sessione corrente.
format
Un valore Long che specifica il tipo di formato HTML del file di report.
Valore di ritorno
Nessuno.

Esempi

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);

Feedback