Adición de un enganche de campo

En este ejercicio va a crear un script de enganche y añadirlo al campo ID_Usuario que ha añadido previamente al tipo de registro Defectos. Al añadir el campo ID_Usuario, ha definido su tipo de campo como Entero, puesto que los usuarios van a entrar un número en el campo. Ahora, quiere validar que los usuarios entren un número entre 1 y 100.

Para añadir un enganche de campo:

  1. En el espacio de trabajo de Designer, expanda las carpetas Tipos de registro y Defectos.
  2. Para abrir la cuadrícula Campos, efectúe una doble pulsación en Campos.
  3. Pulse la celda de la columna Validación para la fila del campo ID_Usuario; pulse la flecha abajo y seleccione SCRIPTS > BASIC. En la parte superior del editor de scripts, la opción Campos está establecida en ID_Usuario y la opción Tipos de enganche está establecida en VALIDACIÓN_CAMPO.
  4. Entre el código siguiente directamente debajo de la línea en la que pone REM End IF:
    Dim value_info
    Set value_info = GetFieldValue (fieldname)
    If Not IsNumeric(value_info.GetValue) Then
    user_number_Validation = "Must be an integer between 1 and 100"
    ElseIf (value_info.GetValue < 1) or
    (value_info.GetValue > 100) Then
    user_number_Validation = "Must be between 1 and 100"
    End if

    Cuando un usuario entra un número en el campo ID_Usuario, el cliente de Rational ClearQuest ejecuta este script de enganche de validación. En caso de que el usuario entre un valor que no sea numérico, o bien, un número que no esté en el rango de 1 a 100, el script de enganche mostrará el mensaje de error adecuado.

  5. Pulse Enganches > Compilar para compilar el script. El script se debe compilar sin errores.
  6. Cierre el editor de scripts.

Comentarios