How Do I show Test:Status in Manual Runner Dialog like Test:Name?

Hi there,

I'm customizing my dialogs to minimize the essential attributes so the users are available to see what's really necessary.

In the Manual Runner-Dialog are some attributes from other Entities like "CY_CYCLE", "TSC_NAME" and "TS_NAME" which are shown on the default

I've customized the Template_SetDefectFieldApp to the following

Sub Template_SetRunFieldApp( FieldName, Vis, Req, PNo, VOrder , RO)
  On Error Resume Next
  'Sets a field's appearance
  With Run_Fields.Field(FieldName)
    .IsRequired = Req
    .PageNo = PNo
    .ViewOrder = VOrder
    .IsVisible = Vis
    .IsReadOnly = RO
  End With
  On Error GoTo 0
End Sub

which ist used like

Sub Template_Customize_ManualRunnerDialog
  On Error Resume Next

  ' Links ungerade
  ' Rechts gerade

    Run_Fields.Field("RN_USER_TEMPLATE_02").Value = Template_GetFullName(Run_Fields.Field("RN_TESTER_NAME").Value)

    If Run_Fields.Field("RN_COMMENTS").Value = "" Then
        Run_Fields.Field("RN_COMMENTS").Value = "Button ""Add Comment"" aktivieren."
    End If

    Template_SetRunFieldApp "RN_USER_TEMPLATE_01", True, False, 0, 1, False   'Ausführungsumgebung
'    Template_SetRunFieldApp "RN_USER_TEMPLATE_01", True, True, 0, 1, False   'Ausführungsumgebung Pflichtfeld
    Template_SetRunFieldApp "RN_ASSIGN_RCYC", True, False, 0, 2, True         'Zielzyklus
    'Deaktivierte Felder
    Template_SetRunFieldApp "RN_BPTA_CHANGE_AWARENESS", False, False, 0, 0, False
    Template_SetRunFieldApp "RN_BPTA_CHANGE_DETECTED", False, False, 0, 0, False
    '...
    
      On Error GoTo 0
End Sub

So Far so Good. But when I try show another field like

    Template_SetRunFieldApp "TS_STATUS", True, False, 0, 13, True             'Teststatus

the field TS_Status is ignored.

How can I get this shown in the Run Manual Dialog?

Thanks a lot?

  • Verified Answer

    +1

    Got it by myself:

    1. Created a new String Entity "RN_USER_TEMPLATE_03"

    2. Add the following script in Sub Template_Run_New

      Set myTestfall = TDConnection.TestFactory.Item(Run_Fields("RN_TEST_ID").Value)
         TSStatus = myTestfall.Field("TS_STATUS")
      Set myTestfall = Nothing

    3. Now I can work natively with value of RN_USER_TEMPLATE_03.

    What drives me crazy is, that I can easily get the Testset_Fields in Sub Template_Run_New like

    'Ermittlung des Testsets zur aktuellen Testinstanz um dann die Umgebung abzugreifen
        TSSUmgebung = TestSet_Fields("CY_USER_TEMPLATE_01").Value
        Run_Fields.Field("RN_USER_TEMPLATE_01").Value = TSSUmgebung

    But not the assigned Releasecycle

    ' Gets Result ID = 1
        myTestSetID2 = TestSet_Fields("CY_CYCLE_ID").Value
        msgbox "myTestSetID2 CY_CYCLE_ID.Value= " & myTestSetID2
    ' Gets Result = [EMPTY] instead of 1016 
        myZielzyklus = TestSet_Fields("CY_ASSIGN_RCYC").Value
        msgbox "myZielzyklus TestSet_Fields CY_ASSIGN_RCYC.value= " & myZielzyklus

    Any ideas, how to get the Assigned ReleaseCycle ID?