Partager cette page

# Exemple : copie des valeurs des champs à un autre objet

Cet exemple montre comment utiliser l’objet TDConnection pour copier la valeur du champ Numéro de compilation d’une exécution (RN_USER_02) dans le champ Last Ran On Build d’un test d’une campagne de test (TC_USER_03).

Ajoutez le code à la procédure de l’événement `Run_AfterPost`.

    Sub Run_AfterPost
            On Error Resume Next
            Dim tdc
            set tdc = TDConnection
            Dim TSFact 'As TestSetFactory
            Set TSFact = tdc.TestSetFactory
            Dim TstSet 'As TestSet
            Set TstSet = TSFact.Item(Run_Fields("RN_CYCLE_ID").Value)
            MsgBox TstSet.Name
            Dim TSTestFact 'As TSTestFactory
            Set TSTestFact = TstSet.TSTestFactory
            Dim TSTst 'As TSTest
            Set TSTst = _
    	 TSTestFact.Item(Run_Fields("RN_TESTCYCL_ID").Value)
            MsgBox TSTst.Name

            TSTst.Field("tc_user_03").value = _
    	 Run_Fields("RN_USER_02").Value
            TSTst.Post

            PrintError ("Run_AfterPost")
            On Error GoTo 0
    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 17.0 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 :