[RESOLVIDO] Controle de fifo

rowid(saldo-estoq), fora isso os seus usuarios ao clicar os lotes deveriam ter uma nomenclatura com data ou uma sequencia para identificar o mais antigo, outra coisa que vc poderia usar seria listar os movimentos do item / lote, usando os tipos de movimento NFE ou ACA, que são as entradas que criam os lotes, e dai usar o campo nr-trans que é sequencial unico.

Código:

define variable rowidSaldoEstoque as rowid no-undo.

assign rowidSaldoEstoque = ?.

for first saldo-estoq no-lock
    ,
    first  movto-estoq of saldo-estoq no-lock
    where {ininc/i03in218.i 4 movto-estoq.esp-docto} = 'ACA'
       or {ininc/i03in218.i 4 movto-estoq.esp-docto} = 'NFE'
    break
       by movto-estoq.nr-trans:

    assign rowidSaldoEstoq = rowid(saldo-estoq).
end.

find first saldo-estoq no-lock
     where rowid(saldo-estoq) = rowidSaldoEstoq
           no-error.

if avail saldo-estoq then do:
    /* aqui vc tem o seu lote mais antigo */
    message saldo-estoq.lote
        view-as alert-box info buttons ok.
end.

vc pode usar o rowid de saldo-estoq, que seria o seu ID, mas vc não consegue fazer um break by rowid(), dai tem que ler todos os lotes com saldo e pegar o rowid menor.

Código:

define variable rowidSaldoEstoq as rowid no-undo.

assign rowidSaldoEstoq = ?.
for each saldo-estoq no-lock
      where saldo-estoq.it-codigo      = 'codigoitem'
           and saldo-estoq.cod-estabel = '101'
           and saldo-estoq.cod-depos   = 'EXT':
     if rowidSaldoEstoq = ? then assign rowidSaldoEstoq = rowid(saldo-estoq).
     if rowid(rowidSaldoEstoq) < rowidSaldoEstoq then assign rowidSaldoEstoq = rowid(saldo-estoq).

end.

find first saldo-estoq no-lock
        where rowid(saldo-estoq) = rowidSaldoEstoq
                    no-error.

if avail saldo-estoq then do:
     /* lote mais antigo */
end.

esqueci de colocar o teste do saldo, "and saldo-estoq.qtidade-atu <> 0"