Caro Fernando,

Eu vou supor que você tenha em seu arquivo os seguintes campos:

a) Campo ItnDats (Data da Venda)
b) Campo ItnCods (Código do Ítem)
c) Campo ItnVals (Valor do Ítem Vendido)
d) Campo ItnClis (Código do Cliente)

e que tenha pelo menos estas duas variáveis alimentadas :

a) lcMinhaVariavelComItemQueQueroValor (Código do Ítem)
b) lcMinhaVariavelComClienteQueProcuro (Código do Cliente

Faça então a seguinte Select :

Select Max(a.ItnDats) as ItnDats, a.ItnCods, a.ItnVals, a.ItnCLis ;
From MeuArquivodeItens a ;
Where a.ItnCods = lcMinhaVariavelComItemQueQueroValor And ;
a.ItnClis = lcMinhaVariavelComClienteQueProcuro ;
Into Cursor csMeuCursorComoResultado

Ps.: Caso não seja exatamente este seu ambiente, entre em contato com um pouco mais de informação e eu tentarei ajuda-lo.

Um abraço fraterno,

Richard Diegues

richarddiegues@msn.com
richarddiegues@ig.com.br