Public Function DeleteReq(r As Req) As Boolean
    
' Delete a requirement
    
    On Error GoTo FUNC_ERR
    DeleteReq = SUCCESS

    Dim reqF As ReqFactory
    Set reqF = tdc.ReqFactory

    reqF.RemoveItem (r.ID)
           
Exit Function
FUNC_ERR:
    errmsg = "Error deleting req " & r.name
    DeleteReq = FAILURE
End Function