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:
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.