Duvida Abrir telas com documentos localizados

Estou desenvolvendo um programa no Datasul e coloquei alguns botões para chamar programas padrão do sistema.
Para abrir o CC0504 com item localizado fiz o seguinte e funcionou:

Código:

    find first item
         where item.it-codigo = input frame f-cad c-it-codigo no-lock no-error.

    if avail item then do:
        assign gr-item = rowid(item).
        run ccp\cc0504a.r no-error.
        return no-apply.
    end.

Mas preciso abrir o RE0701 e o RE0701a com o documento selecionado em uma grade. Fiz da seguinte forma, mas não abre os programas com o documento carregado.

Código:

    find current tt-hist-comp.

    find first docum-est
         where docum-est.serie-docto  = tt-hist-comp.serie-docto
           and docum-est.nro-docto    = tt-hist-comp.nro-docto
           and docum-est.cod-emitente = tt-hist-comp.cod-emitente
           and docum-est.nat-operacao = tt-hist-comp.nat-operacao no-lock no-error.

    if avail docum-est then do:
        assign gr-docum-est = rowid(docum-est).
        run rep\re0701.r no-error.
        return no-apply.
    end.

Acho que o erro é o nome da variável de rowid do documento, porque o registro da tt-hist-comp é localizado corretamente. Alguém sabe que variável devo carregar, ou alguma outra forma de abrir esses programas com o documento carregado?

Resolvido.
A variável não era gr-docum-est e sim gr-documento, devifina como global shared.