Lista com Valor dos Registros recentes pegando ultima data

select first 1 VALOR
from ENTRADA
where DATA = max(DATA)

select first 1 VALOR
from ENTRADA
order by DATA desc

Select CUSTO_PRODUTO, MAX(DATA_ENTRADA) 
from ENTRADA_COMPRA, ENTRADA_COMPRA_ITENS 
Where ENTRADA_COMPRA.Numero_Compra = ENTRADA_COMPRA_ITENS.Numero_Compra 
And ENTRADA_COMPRA.Codigo_Cliente = ENTRADA_COMPRA_ITENS.Codigo_cliente 
And ENTRADA_COMPRA.Descricao_Serie = ENTRADA_COMPRA_ITENS.Descricao_Serie 
And ENTRADA_COMPRA.Codigo_Filial = ENTRADA_COMPRA_ITENS.Codigo_Filial 
group by CUSTO_PRODUTO
order by CUSTO_PRODUTO desc

select * from entrada E 
where data = (select max(data) from entrada where codigo=E.codigo);

create procedure SP_UltimoValor returns (ACODIGO integer, AVALOR integer) as
begin
    for select distinct CODIGO from ENTRADAS into :ACODIGO do
    begin
        select VALOR from ENTRADAS where CODIGO = :ACODIGO
        where DATA = max(DATA) order by DATA desc into :AVALOR;
        suspend;
    end;
end;