GetEnabledPackageRevs

Descripción

Devuelve el conjunto PackageRev que se ha habilitado en la revisión actual del esquema.

Cuando se llama a este método desde el objeto Session, ya se conoce la revisión de esquema al iniciar la sesión en la base de datos de usuario.

Consulte este método, GetEnabledPackageRevs, en su otro objeto, el objeto SchemaRev, donde se proporciona otra utilización.

Sintaxis

VBScript

session.GetEnabledPackageRevs

Perl

$session->GetEnabledPackageRevs();
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno
El objeto de recopilación PackageRevs que contiene el conjunto PackageRev.

Ejemplos

VBScript

Set sessionObj = CreateObject("CLEARQUEST.SESSION")

sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""

Set packages = sessionObj.GetEnabledPackageRevs

For each pack in packages

   a = pack.PackageName()

   b = pack.RevString()

   MsgBox (a)

   MsgBox (b)

Next

Perl

use CQPerlExt;

#Start a Rational ClearQuest session

$Session = CQSession::Build();

$Session->UserLogon("admin","","SAMPL","");

$packages = $Session->GetEnabledPackageRevs();

for($x=0;$x<$packages->Count();$x++){

  $pack = $packages->Item($x);

  $a = $pack->GetPackageName();

  $b = $pack->GetRevString();

  print "$a $b\n";

  $edefs = $Session->GetEnabledEntityDefs($a,$b);

}

CQSession::Unbuild($Session);

Comentarios