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