Restituisce l'oggetto di raccolta EntityDefs abilitato nello schema corrente per una determinata revisione package.
Utilizzare con GetEnabledPackageRevs per sapere quali package e revisioni package vengono applicati al database utente corrente. Se un nome package e una revisione con valore null vengono trasmessi, questo metodo restituisce l'oggetto EntityDefs che dispone del package 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);