GetEnabledEntityDefs

Description

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

Sintassi

VBScript

session.GetEnabledEntityDefs (packageName, revString) 

Perl

$session->GetEnabledEntityDefs(packageName, revString); 
Identificativo
Description
session
L'oggetto Session che rappresenta la sessione di accesso al database corrente.
packageName
Un valore String che contiene un nome del pacchetto.
revString
Un valore String che contiene la stringa di revisione di PackageRev.
Valore di ritorno
L'oggetto EntityDefs per la revisione pacchetto 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