Dans cet exercice, vous allez créer un script de crochet et l'associer à la zone ID_util que vous avez précédemment ajoutée au type d'enregistrement Defect. Lorsque vous avez défini cette zone, vous avez choisi INT (entier) comme type de données, car il est prévu que les utilisateurs y entrent une valeur numérique. Vous souhaitez maintenant soumettre cette zone à un contrôle de validité qui vérifiera que le nombre entré est bien compris entre 1 et 100.
Pour ajouter un crochet de zone :
Dim value_info Set value_info = GetFieldValue (fieldname) If Not IsNumeric(value_info.GetValue) Then user_number_Validation = "Spécifiez un entier compris entre 1 et 100" ElseIf (value_info.GetValue < 1) or (value_info.GetValue > 100) Then user_number_Validation = "Le numéro entré doit être compris entre 1 et 100" End if
Lorsque l'utilisateur entre une valeur dans la zone ID_util, le client Rational ClearQuest exécute ce script de contrôle de validité. Si la valeur n'est pas numérique ou n'est pas un numéro compris entre 1 et 100, le script affiche le message d'erreur approprié.