Re: Free Memory when cancel execution.

I am using HP QC 11.0

When I create a new run the sub Run_New call "Verifica_Execucao" it count how many executions there are then it received list corresponding to executions

if I call "Verifica_Execucao" in Run_MoveTo for exemple it cont right.

If I execut a new run in Test 227 for exemplo and cancel this run and select Test 228 and click em New Run the count down't  is correct.

I set the message box to show TestSetTest_Fields.Field("TC_TESTCYCL_ID").Value then is displayed the value to last execution "Test 227"

Sub Run_New
  On Error Resume Next
  dim tst

  Verifica_Execucao

  On Error GoTo 0
End Sub

sub Verifica_Execucao
    On Error Resume Next

       set myInstance2 = tdconnection.TSTestFactory.item(TestSetTest_Fields.Field("TC_TESTCYCL_ID").Value)
       set myRun2 =  myInstance2.RunFactory.newlist("")
       'msgbox TestSetTest_Fields.Field("TC_TESTCYCL_ID").Value
       'set myRunCount2 = myRun2.count
           'msgbox TestSetTest_Fields.Field("TC_TESTCYCL_ID").Value
           'msgbox myRunCount2 & " MyRunCount2 "
              x = 0
              Dim Vetor(20)
             ' Redim Vetor(myRunCount)


          for each run in myRun2

                 Vetor(x) = run.Field("RN_RUN_ID")
                 'msgbox Vetor(x)
                 x = x + 1

          Next
          msgbox x
          If x <= 1 Then
                            Run_Fields.Field("RN_USER_06").List = Lists("Motivo Execução2")


          End If


          set myInstance2 = nothing
          set myRun2 = nothing
          set myRunCount2 = nothing


    On Error GoTo 0
End Sub