Restituisce l'oggetto di raccolta EntityDefs abilitato nello schema corrente per una determinata revisione pacchetto.
Utilizzare con GetEnabledPackageRevs per sapere quali pacchetti e revisioni pacchetto vengono applicati al database utente corrente. Se un nome pacchetto e una revisione con valore null vengono trasmessi, questo metodo restituisce l'oggetto EntityDefs che dispone del pacchetto denominato installato indipendentemente dalla revisione (come se la revisione fosse un carattere jolly.)
VBScript
session.GetEnabledEntityDefs (packageName, revString)
Perl
$session->GetEnabledEntityDefs(packageName, revString);
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)
Set edefs = sessionObj.GetEnabledEntityDefs(a, b)
For each edef in edefs
edefName = edef.GetName()
MsgBox (edefName)
Next
Next
Perl
use CQPerlExt;
#Start a 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);
for($y=0;$y<$edefs->Count();$y++){
$edef = $edefs->Item($y);
$name = $edef->GetName();
print "entitydefname:$name\n";
}
}
CQSession::Unbuild($Session);