[RESOLVIDO] Programa UPC RE1001

provavelmente vcs devem usar aquele recurso de correr com os handles as frames das telas para localizar os campos, bem, o que acontece é que quando se está no RE1001A por exemplo, ele foi chamado pelo RE1001, usando a função program-name(nivel) vc consegue pegar o handle do programa chamador, e procurar os campos que precisa, então, sobre capturar o campo CFOP, ouve um outro topico do assunto, como o campo CFOP do re1001 tem tratamento, como ZOOM, testes no LEAVE, o aconselhavel é na upc, vc capturar o handle dele, criar um campo novo que seja copia de todas as propriedades dele, deixar ele invisivel, nos eventos esperados, LEAVE e F5, vc faz o "on leave of handleCFOPCUSTOM persistent run trataleave.p(handleCFOPORIGINAL, handleCFOPCUSTOM).

dessa forma, dentro do travaleave.p vc faz o que precisa com o campo, copia o que foi digitado no seu campo para o original e no final da rotina vc faz apply 'LEAVE' to handleCFOPORIGINAL.

isso vale para o F5 ou qualquer outro evento que o campo original tenha, o apply 'LEAVE' por exemplo, vc pode usar ele antes ou depois do seu tratamento, vai depender da sua regra de negocio.

bem, tem 2 caminhos:
1) na upc do re1005, vc usa o ponto "inicio-atualizacao" .....

Código:

    if p-ind-event = 'inicio-atualizacao':u then do:

        find first tt-epc no-error.

        if not avail tt-epc then do:
            put unformatted 'TT-EPC sem registros. Entre em contato com sua equipe de suporte' skip.
            return 'NOK':u.
        end.

        find first tt-epc no-lock
             where tt-epc.cod-event = "inicio-atualizacao" no-error.

        if avail tt-epc then do:
            find first docum-est where rowid(docum-est) = to-rowid(tt-epc.val-parameter) no-lock no-error.

tem o ponto 'fim-atualizacao' mas aqui ele já fez tudo, gerou movto-estoq e tal, então não tem como.
2) Ativa o seu modulo de CQ (Controle de qualidade), todos os itens que vc marcar que estão sob o controle de qualidade automaticamente vão para o depositos de CQ e depois que passar pelos "controles de qualidade" libera para o deposito normal.