Re: How to manage traces (requirement tracability) with ALM 11 REST API

I'm also searching for deleting or updating a trace, but I may help with getting a list of traces:

    Dim objReq
    Dim objReqFact
    Dim objReqFactFilter
    Dim objReqFactFilterList
    Dim intTypeID(2)
    Dim intI
    Dim ChildTracedList
    Dim ParentTracedList
    Dim objChildReq
    Dim objParentReq
    
    On Error Resume Next
    
    intTypeID(1) = 110
    intTypeID(2) = 111
    intI = 1
    
    ' filter requirements by type
    Set objReqFact = TDConnection.ReqFactory
    Set objReqFactFilter = objReqFact.Filter
    
    Do While intI <= 2
        objReqFactFilter.Filter("RQ_TYPE_ID") = intTypeID(intI)
        Set objReqFactFilterList = objReqFactFilter.NewList
        
        ' List of filtered requirements
        For Each objReq In objReqFactFilterList
            
            If objReq.HasReqTraceability(1) Then     ' TDOLE_TRACED_TO, Value = 1 -> Traced to this item
                Set ChildTracedList = objReqFact.GetTracedList(objReq.Field("RQ_REQ_ID"), 1)
                For Each objChildReq In ChildTracedList



                Next
                Set objChildReq = Nothing
                Set ChildTracedList = Nothing
            End If
            If objReq.HasReqTraceability(0) Then     ' TDOLE_TRACED_FROM, Value = 0 -> Traced from this item
                Set ParentTracedList = objReqFact.GetTracedList(objCurrReq.Field("RQ_REQ_ID"), 0)
                For Each objParentReq In ParentTracedList



                Next
                Set objParentReq = Nothing
                Set ParentTracedList = Nothing
            End If

        Next
        
        intI = intI + 1
        
        Set objReqFactFilterList = Nothing
        Set objReq = Nothing
    Loop

    Set objReqFactFilter = Nothing
    Set objReqFact = Nothing