SetFormat

Descripción

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 formato.
Nota: Cada constante está precedida de AD para VBScript o $CQPerlExt::CQ para Perl. Por ejemplo, AD_REPORT_FORMAT_HTML32
Constante Valor Descripción
_NULL_REPORTFORMAT 0 Un valor no válido para la inicialización
_REPORT_FORMAT_HTML32 1 Generar archivo en formato HTML 3.2
_REPORT_FORMAT_HTML40 2 Generar archivo en formato HTML 4.0

El formato por omisión es el formato HTML 3.2 (_REPORT_FORMAT_HTML32). Si especifica _NULL_REPORTFORMAT como valor del argumento, o si no utiliza el método SetFormat antes de llamar a ExecuteReport, la salida se genera en el formato por omisión.

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

Sintaxis

VBScript

reportMgr.SetFormat
formato 

Perl

$reportMgr->SetFormat(formato); 
Identificador
Descripción
reportMgr
El objeto ReportMgr asociado a la sesión actual.
formato
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"

' Crear el objeto de sesión externo
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

' Eliminar la referencia
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