Data última venda para um cliente

Preciso listar a data da última nota que foi emitida para um determinado cliente. (saber a última vez que o cliente comprou) Listando o código, nome, data emissão e número da nota.
Alguém consegue me ajudar.
Aguardo e obrigado

Código:

for each nota-fiscal
    break by cod-emitente
             by dt-emis-nota:
    if last-of(cod-emitente) then
        disp cod-emitente dt-emis-nota nr-nota-fis.
end.

Se você quiser saber de um cliente específico:

Código:

find last nota-fiscal no-lock where nota-fiscal.cod-emitente = i-emit and nota-fiscal.dt-cancela = ? no-error.
disp nota-fiscal.cod-emitente nota-fiscal.dt-emis-nota nota-fiscal.nr-nota-fis.

Obrigado pela ajuda.
O Programa ajudou bastante.
Att