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.
VBScript
session.GetEnabledPackageRevs
Perl
$session->GetEnabledPackageRevs();
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);