[RESOLVIDO] Pesquisar o registro da ultima empresa de um funcionario

Pessoal,

Preciso exportar uma lista de funcionários, onde me retorne somente a ultima empresa do funcionario desligado.

To sem acesso ao sistema pra testar... acho que vai te servir !

OUTPUT TO "c:\temp\funcionario.txt" NO-CONVERT.

FOR EACH funcionario NO-LOCK WHERE funcionario.dat_desligto_func <> ?

BREAK BY funcionario.cdn_empresa:​

IF LAST-OF(funcionario.cdn_empresa) THEN
DO:

DISPLAY funcionario.cdn_empresa

funcionario.cdn_estab
funcionario.cdn_funcionario
funcionario.nom_pessoa_fisic
funcionario.dat_admis_func
funcionario.dat_desligto_func​

WITH WIDTH 600.​

END.​

END.

OUTPUT CLOSE.

Bom dia Don.Junior,

Obrigado pelo apoio.
Eu executei e ele me trouxe o ultimo funcionário de cada empresa. Não era bem o que eu queria.
Então, deixa eu explicar melhor o que eu quero.
Eu trabalho em um grupo que possui varias empresas. Onde um funcionário pode ser transferido para outras empresas do grupo.
Assim como desligado e readmitido na mesma ou em outra empresa do grupo.
O que eu preciso é listar todos os funcionários e que me retorne somente a ultima empresa que ele trabalhou.
Ex: João trabalhou na emp 01, anos depois foi transferido para emp 02 e anos depois na emp 03 aonde rescindiu seu contrato.
Preciso fazer uma busca por todas as empresas aonde me retorne somente o seu ultimo emprego, que no caso foi na emp 03.

Novamente, obrigado pela força.

Saquei... tenta este!

OUTPUT TO "c:\temp\funcionario.txt" NO-CONVERT.

FOR EACH funcionario NO-LOCK WHERE funcionario.dat_desligto_func = ? :

DISPLAY funcionario.cdn_empresa

funcionario.cdn_estab
funcionario.cdn_funcionario
funcionario.nom_pessoa_fisic
funcionario.dat_admis_func
funcionario.dat_desligto_func​

WITH WIDTH 600.​

END.

OUTPUT CLOSE.