Partager cette page

# S’assurer que les propriétés d’entité sont définies avant qu’une entité devienne le point d’intérêt

Il est courant de définir les propriétés d’entité (telles que IsVisible, IsRequired et List) lors de la création ou de la modification d’une nouvelle entité (New ou FieldChanged). Lors de l’écriture des scripts de flux de travail ALM, il est également important de définir des propriétés d’entité lorsque l’entité devient le point d’intérêt (c’est-à-dire lorsque l’utilisateur navigue vers cette entité dans l’interface graphique utilisateur de ALM). Lorsqu’une entité devient le point d’intérêt, l’événement MoveTo est appelé.

Si les valeurs d’entité ne sont pas définies dans l’événement MoveTo, l’expérience de l’utilisateur final est imprévisible. Par exemple, des valeurs incorrectes peuvent s’afficher dans les listes déroulantes.

## Recommandations

Pour éviter des résultats imprévisibles, par exemple une liste déroulante ne contenant pas l’ensemble le plus récent de valeurs :

- Vérifiez que toutes les propriétés d’entité sont définies dans l’événement MoveTo, et pas seulement dans les événements New ou FieldChanged.

- Isolez le code de personnalisation de propriétés d’entité dans une routine distincte et appelez cette routine à partir de tous les événements pertinents.

Le tableau suivant donne un exemple de la façon de s’assurer que les propriétés d’une anomalie sont définies de manière appropriée lorsque l’anomalie est le point d’intérêt, et pas seulement lorsqu’elle est modifiée ou ajoutée.

Exemple :

    Sub SetupBugFields(Context1, Context2)
        ' Code for customizing defect properties is entered here,
        ' such as set IsVisible, IsRequired, IsReadonly, Label, List...
        If Context1="Focus" Then
              ' Code for handling the focus event is entered here
        ElseIf Context1="FieldChange" Then
                If Context2="RQ_USER_01" Then
                    ' Code for handling the FieldChange event
    		 ' is entered here
                ElseIf Context2="RQ_REQ_STATUS" Then
                    ' ... Enter your code here
                Else
                    ' ... Enter your code here
                End If
      End If
    End Sub
    Sub Req_FieldChange(FieldName)
        If FieldName = "RQ_REQ_STATUS" Then
            SetupBugFields("FieldChange", FieldName)
        Else
            '  ...Enter your code here
        End If
    End Sub
    Sub Req_MoveTo
            SetupBugFields("Focus")
    End Sub

https://admhelp.microfocus.com ALM 8942
Conseils pour améliorer vos résultats de recherche... ALM Help Center ALM Help Center Aide ALM 16.00 Tout Afficher le centre d’aide local Afficher le centre d’aide en ligne arrière Revenir en arrière dans l’historique de navigation avant Avancer dans l’historique de navigation Désactiver la mise en surbrillance dans les résultats de recherche rubrique suivante Atteindre la rubrique suivante rubrique précédente Atteindre la rubrique précédente Imprimer la rubrique actuelle Version :