VBScript
entitydef.DoesTransitionExist sourceState, destState
Perl
$entitydef->DoesTransitionExist(sourceState, destState);
Perl의 경우, 두 상태 사이에 적어도 하나의 전이가 있으면 이 메소드는 문자열 배열에 대한 참조를 리턴합니다.
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]); }