Re: HP ALM 11.00 ota api - no idea :(

Hey Trudy,

so im back and tried, worked with the code u gave me.

The last hours i tried to fill my customfield with my defined default value but.. something worked not as i want it to :D

i write out my tries would you maybe look at them and show me my mistake :)?

thank you so much... thought it would be easy with the code u gave me but i  was wrong :D

Sub Test_AfterPost
    'On Error Resume Next
    Dim TestConfigFact
    Dim TCFFilter
    Dim TestConfigList
    Dim TCAdditem
    Dim TCAdditem1
    Dim TCAdditem2
    Dim TCAdditem3

    Set TestConfigFact = TDConnection.TestConfigFactory
    Set TCFFilter = TestConfigFact.Filter
    TCFFilter.Filter("TSC_TEST_ID")=Test_Fields.Field("TS_TEST_ID").Value
    Set TestConfigList= TCFFilter.NewList


    if TestConfigList.Count = 1 then
     ' Only one Test Configuration associated with the Test
       if len(TestConfigList.Item(1).Field("TSC_USER_01")) = 0 then
' custom field has no value.

          'set TCAdditem1= TestConfigFact.Additem(Null)
          'TCAdditem1.TestConfigList.Field("TSC_USER_01").Value = "Hoch"
          'TCAdditem1.TestConfigList.Item(1).Field("TSC_USER_01").Value = "Hoch"

          'set TCAdditem2 = TestConfigFact.Additem(Null)
          'TCAdditem2.TestConfigList.Item(1).Field("TSC_USER_01").Value = "Mittel"

          'set TCAdditem3=TestConfigList.Item(1).Additem(Null)
          'TCAdditem3.Field("TSC_USER_01").Value = "Niedrig"
          'TCAdditem3.Field("TSC_USER_01")="Niedrig"

          'TestConfigList.Item(1).Field("TSC_USER_01").Value= "Mittel"

          'TestConfigList.Item(1).Field("TSC_USER_01") = "Hoch"

          'set TCAdditem = TestConfigList.Item(1).Field("TSC_USER_01").Additem(Null)
          'TCAdditem.value = "Niedrig"
          'TCAdditem = "Niedrig"

' Set the value on the custom field.
' Use TestConfigList.Item(1).Post to save the change to the Test Config
       'TCAdditem.Post
       'TCAdditem1.Post
       'TCAdditem2.Post
       'TCAdditem3.Post
      'TestConfigList.Item(1).Post
       end if
    end if

     Set TestConfigList = nothing
    set TCFFilter = nothing
    set TestConfigFact = nothing

    'On Error GoTo 0
End Sub

 i tried out a line of code and if it did not worked i commented it out ;D

i am despairing.. :/