GetEnabledEntityDefs

Descrizione

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.)

Sintassi

VBScript

session.GetEnabledEntityDefs (packageName, revString) 

Perl

$session->GetEnabledEntityDefs(packageName, revString); 
Identificativo
Descrizione
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
packageName
Una stringa che contiene un nome del package.
revString
Una stringa che contiene la stringa di revisione di PackageRev.
Valore di ritorno
L'oggetto EntityDefs per la revisione package corrente.

Esempi

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); 

Feedback