GetEnabledEntityDefs

Descripción

Devuelve el objeto de recopilación EntityDefs habilitado en el esquema actual para una revisión de paquete determinada.

Se debe utilizar con GetEnabledPackageRevs para descubrir los paquetes y las revisiones de paquete que se aplican a la base de datos de usuario actual. Si pasa un nombre de paquete y una revisión nula, este método devuelve los EntityDefs que tienen instalado el paquete denominado, independientemente de la revisión (como si la revisión fuera un comodín).

Sintaxis

VBScript

session.GetEnabledEntityDefs (packName, revString) 

Perl

$session->GetEnabledEntityDefs(packName,
revString); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
packageName
Un valor String que contiene el nombre de un paquete.
revString
Un valor String que contiene la serie de revisión de PackageRev.
Valor de retorno
El objeto EntityDefs para la revisión de paquete actual.

Ejemplos

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

Comentarios