GetFieldOriginalValue

説明

アクションがキャンセルされた場合に、指定されたフィールドに戻される値を含む FieldInfo オブジェクトを戻します。

アクションを開始すると、Rational® ClearQuest® によって、アクションがキャンセルされる場合に備えて、レコードのフィールドのオリジナルの値がキャッシュされます。このメソッドを使用すると、変更したフィールドのオリジナルの値を戻すことができます。フィールドのオリジナルの値が取得できるのは、レコードが編集可能である場合のみです。レコードの通知フックが、新規の値が有効になる前に、オリジナルの値を取得する最後の機会です。

構文

VBScript

entity.GetFieldOriginalValue (field_name) 

Perl

$entity->GetFieldOriginalValue(field_name); 
識別子
説明
entity
Entity オブジェクトは、ユーザー データ レコードを表します。構文のこの部分を省略すると、フック内では、現在のデータ レコードに対応する Entity オブジェクトが想定されます (VBScript のみ)。
field_name
この Entity オブジェクトの有効なフィールド名を含む String。
戻り値
指定されたフィールドのオリジナルの値を含む FieldInfo オブジェクト。

VBScript

' Iterate through the fields and report which ones have changed.
fieldNameList = GetFieldNames 
For Each fieldName in fieldNameList
   originalValue = GetFieldOriginalValue(fieldName).GetValue
   currentValue = GetFieldValue(fieldName).GetValue
   If currentValue <> originalValue Then
      ' Report a change in the field value
      OutputDebugString "The value in field " & fieldName & " has changed."

   End If 
Next

Perl

my($FieldNamesRef) = $entity->GetFieldNames();

   foreach $FN (@$FieldNamesRef) {

      # Get the field's original value...

      $FieldInfo = $entity->GetFieldOriginalValue($FN);

      #...
   } 

フィードバック