[RESOLVIDO] Comando Next

FOR EACH bem_pat NO-LOCK.

FIND movto_bem_pat NO-LOCK
WHERE movto_bem_pat.num_id_bem_pat = bem_pat.num_id_bem_pat AND
ind_trans_calc_bem_pat = 'Baixa' NO-ERROR.
IF AVAIL movto_bem_pat THEN NEXT.
ELSE
RUN p-processa(INPUT bem_pat.num_id_bem_pat, INPUT bem_pat.num_seq_bem_pat).
END.


Esse é o código.
Dentro de p-processa tem os put.. e ele imprime a informação mesmo que ela caia no next ali.

Ele tem que imprimir mesmo que caia no NEXT?

Caso precise mostrar os encontrados também, é necessário colocar o comando put antes do next. teria que ser assim:

Código:

FOR EACH bem_pat NO-LOCK. 

FIND movto_bem_pat NO-LOCK
WHERE movto_bem_pat.num_id_bem_pat = bem_pat.num_id_bem_pat AND 
ind_trans_calc_bem_pat = 'Baixa' NO-ERROR.
IF AVAIL movto_bem_pat THEN
do:
 RUN p-processa(INPUT bem_pat.num_id_bem_pat, INPUT bem_pat.num_seq_bem_pat). 
 NEXT.
end.
ELSE
RUN p-processa(INPUT bem_pat.num_id_bem_pat, INPUT bem_pat.num_seq_bem_pat). 
/* você colocando o put apenas nesse bloco ele só vai imprimir caso não encontrado nada na tabela movto_bem_pat*/
END.

Ajudei!?

Não.. se ele passar pelo next eu não posso imprimir, porém está imprimindo. Aí que está o problema

FOR EACH bem_pat NO-LOCK.

{CODE]FIND movto_bem_pat NO-LOCK
WHERE movto_bem_pat.num_id_bem_pat = bem_pat.num_id_bem_pat AND
ind_trans_calc_bem_pat = 'Baixa' NO-ERROR.
IF NOT AVAIL movto_bem_pat THEN
RUN p-processa(INPUT bem_pat.num_id_bem_pat, INPUT bem_pat.num_seq_bem_pat).
END.[/CODE]

Código:

FOR EACH bem_pat NO-LOCK. 

FIND movto_bem_pat NO-LOCK
WHERE movto_bem_pat.num_id_bem_pat = bem_pat.num_id_bem_pat AND 
ind_trans_calc_bem_pat = 'Baixa' NO-ERROR.
IF NOT AVAIL movto_bem_pat THEN
RUN p-processa(INPUT bem_pat.num_id_bem_pat, INPUT bem_pat.num_seq_bem_pat).
END.

Também não está funcionando... heheh.. estava assim antes...
Acho que está assombrado esse código pelos bens que querem aparecer de qualquer jeito!
aiai
--'