[RESOLVIDO] Pesquisa em 2 Tabelas

Obrigado pela atenção.

Resolvi utilizando um "if not can-find"....

Confere está logica so troca o numero da OP

def buffer b-reserva for reserva.
def buffer b-estrutura for estrutura.
def var i-item as char format "x(16)" label "Item fora estrutura".
for each ord-prod no-lock where ord-prod.nr-ord-prod = 631,
each item no-lock where item.it-codigo = ord-prod.it-codigo,
each estrutura no-lock where estrutura.it-codigo = item.it-codigo break by estrutura.es-codigo.
find first reservas where reservas.nr-ord-produ = ord-prod.nr-ord-produ and reservas.it-codigo = estrutura.es-codigo no-lock no-error.
assign i-item = "".
if not avail reservas then do:
message "Reserva Alterada o item: " + estrutura.es-codigo + " não consta na reserva!" view-as alert-box information title "Relatorio".
for each b-reserva no-lock where b-reserva.nr-ord-produ = ord-prod.nr-ord-produ and b-reserva.it-codigo <> estrutura.es-codigo.
find first b-estrutura where b-estrutura.it-codigo = item.it-codigo and b-estrutura.es-codigo = b-reserva.it-codigo no-lock no-error.
if not avail b-estrutura then assign i-item = b-reserva.it-codigo.
end.
end.
find first alternativo where alternativo.it-codigo = estrutura.it-codigo and alternativo.al-codigo = i-item and i-item <> "" no-lock no-error.
if not avail alternativo and i-item <> "" then message "Item: " + i-item + " não consta como alternativo do " + string(estrutura.es-codigo) view-as alert-box information title "Relatorio".
disp
estrutura.it-codigo
estrutura.es-codigo
(if i-item = "" then " OK " else "Trocado ")
(if i-item = "" then estrutura.es-codigo else i-item).
end.