DoesTransitionExist

Descripción

Devuelve la lista de transiciones que existen entre dos estados.

La lista de transiciones se devuelve sin ningún orden concreto. Debe examinar cada entrada de la matriz hasta encontrar el nombre de la acción que está buscando.

Sintaxis

VBScript

entitydef.DoesTransitionExist sourceState, destState 

Perl

$entitydef->DoesTransitionExist(sourceState, destState); 
Identificador
Descripción
entitydef
Un objeto EntityDef que corresponde a un tipo de registro de un esquema.
sourceState
Un valor String que contiene el nombre del estado que es el origen de la transición.
destState
Un valor String que contiene el nombre del estado que es el destino de la transición.
Valor de retorno
Para Visual Basic, si existe, como mínimo, una transición entre ambos estados, este método devuelve un valor Variant que contiene una lista de series. Cada serie corresponde al nombre de una acción. Si no existe ninguna transición, este método devuelve un EMPTY Variant.

Para Perl, si existe, como mínimo, una transición entre ambos estados, este método devuelve una referencia a una matriz de series.

Ejemplos

VBScript

set sessionObj = GetSession
set entityDefObj = sessionObj.GetEntityDef(GetEntityDefName())

transitions = entityDefObj.DoesTransitionExist("open", "resolved")
If transitions <> Empty Then
   ' Simply initiate an action using the first entry.
   sessionObj.EditEntity entity, transitions(0)

   ' ...
End If 

Perl

$sessionObj = $entity->GetSession();

$entityDefObj = $sessionObj->GetEntityDef($entity->GetEntityDefName());



$transitions = $entityDefObj->DoesTransitionExist("open",
       "resolved");



if (@$transitions)

 {

 # Simply initiate an action using the first entry.

 $sessionObj->EditEntity($entity, @$transitions[0]);

 } 

Comentarios