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