Neste exercício, você criará um script de gancho e o incluirá no campo User_ID que incluiu anteriormente no tipo de registro Defect. Ao incluir o campo User_ID, você definiu o tipo de campo como Integer, pois os usuários digitarão um número no campo. Agora você deseja validar que os usuários digitem um número entre 1 e 100.
Para incluir um gancho 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
Quando um usuário digita um número no campo User_ID, o cliente Rational ClearQuest executa este script de gancho da validação. Se o usuário digitar um valor não numérico ou um número que esteja fora do intervalo de 1 e 100, o script de gancho exibirá a mensagem de erro apropriada.