Select A.Code, Max(A.Data) ; FROM dc099 A ; Where A.Code In (Select Codigo From curclientes) ; ORDER By A.Code ; GROUP BY A.Code ; INTO Cursor curcoment