SetFormat

Description

Permite especificar la versión de HTML en la que desea guardar el informe.

Debe llamar a este método después de llamar al método SetHTMLFileName y antes de llamar al método ExecuteReport para establecer el tipo de formato HTML del archivo de salida del informe.

Especifique una de las siguientes constantes de formato del informe en el parámetro format.
Nota: Cada constante está precedida de AD para VBScript o $CQPerlExt::CQ para Perl. Por ejemplo, AD_REPORT_FORMAT_HTML32.
Constante Valor Description
_REPORT_FORMAT_HTML32 1 Generar archivo en formato HTML 3.2
_REPORT_FORMAT_HTML40 2 Generar archivo en formato HTML 4.0

El formato predeterminado es el formato HTML 3.2 (_REPORT_FORMAT_HTML32). Si no utiliza el método SetFormat antes de llamar a ExecuteReport, se genera la salida en el formato predeterminado.

Nota: Este método es nuevo en la versión 7.0.0.1 (y en 2003.06.16)

Sintaxis

VBScript

reportMgr.SetFormat
format 

Perl

$reportMgr->SetFormat(format); 
Identificador
Description
reportMgr
El objeto ReportMgr asociado a la sesión actual.
format
Un valor Long que especifica el tipo de formato HTML del archivo de informe.
Valor de retorno
Ninguno.

Ejemplos

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

Comentarios