GetFieldOriginalValue

Descripción

Devuelve un objeto FieldInfo que contiene el valor al que va a volver el campo especificado, si la acción se cancela.

Cuando se inicia una acción, Rational ClearQuest almacena en caché los valores originales de los campos del registro en caso de que se cancele la acción. Puede utilizar este método para volver al valor original de un campo que ha modificado. Sólo puede obtener el valor original de un campo mientras el registro sea editable. El enganche de notificación del registro es la última oportunidad para obtener el valor original antes de que el nuevo valor entre en vigor.

Sintaxis

VBScript

entity.GetFieldOriginalValue (field_name) 

Perl

$entity->GetFieldOriginalValue(field_name); 
Identificador
Descripción
entity
Un objeto Entity que representa un registro de datos de usuario. En un enganche, si se omite esta parte de la sintaxis, se presupone el objeto Entity correspondiente al registro de datos actual (sólo VBScript).
field_name
Un valor String que contiene un nombre de campo válido de este objeto Entity.
Valor de retorno
Objeto FieldInfo que contiene el valor original para el campo especificado.

Ejemplo

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

      #...
   } 

Comentarios