Zoom Portador ems5

Eu tenho esse codigo pra portador, esse ai que vc está indicando seria pra estabelecimento ....
Esse é pra estabelecimento ...
os 2 campos, v_rec_estabelecimento e/ou v_rec_portador vc declara como new global shared no seu programa.

Código:

        run prgint/utb/utb071ka.p.
       
        for first estabelecimento
            where recid(estabelecimento) = v_rec_estabelecimento
            no-lock
            {&throws}:

            assign estabelecimento_ = estabelecimento.cod_estab.
        end.

Esse é pra portador ...

Código:

ON F5 OF codPortador IN FRAME Dialog-Frame /* Portador */
DO:
  run prgint/ufn/ufn008ka.w.
  find first emscad.portador no-lock
       where recid(emscad.portador) = v_rec_portador
             no-error.
  if avail emscad.portador then do:
      assign codPortador:screen-value in frame {&frame-name} = emscad.portador.cod_portador.
  end.
END.