VBScript
entitydef.DoesTransitionExist sourceState, destState
Perl
$entitydef->DoesTransitionExist(sourceState, destState);
Perl の場合、2 つの状態の間に最低 1 つの遷移が存在する場合、このメソッドから文字列の配列への参照が戻されます。
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]); }