Private Sub GetCategory (id As Long)
' #Version = v2
' #Desc = Read one Category by id
' #Elements = [":id"]
DB.Table = "tbl_category"
DB.Find(id)
If DB.Found Then
HRM.ResponseCode = 200
HRM.ResponseObject = DB.First
Else
HRM.ResponseCode = 404
HRM.ResponseError = "Category not found"
End If
DB.Close
ReturnApiResponse
End Sub