1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Desativar botão zoom do smartpanel CE0830

Discussão em 'Progress 4GL' iniciado por eduardohg, Abril 17, 2017.

  1. eduardohg

    eduardohg Membro Participativo

    Boa tarde.
    No ce0830, consegui desabilitar o botão de zoom, no entanto tem um detalhe.

    Quando executo o mesmo via (ctrl+Alt+x) : ce0830 ou pelo menu TOTVS funciona belezinha.

    No entanto quando chamo o programa ce0830 atraves de um outro programa, não funciona.

    Alguém tem ideia do que pode ser e se existe uma solução ?

    Segue abaixo a upc:

    if p-ind-event = 'BEFORE-INITIALIZE' and p-ind-object = 'CONTAINER' then do:
    do while valid-handle(p-wgh-object):

    if p-wgh-object:name = 'panel/p-navega.w' and
    p-wgh-object:type = 'PROCEDURE' then do:
    run enable-zoom in p-wgh-object(no).
    end.
    assign p-wgh-object = p-wgh-object:next-sibling.
    END.
    end.
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    e como vc está executando o programa ce0830 do seu especifico ???
  3. eduardohg

    eduardohg Membro Participativo

    run cep\ce0830.r.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    tenta assim:
    define variable programHandle as handle no-undo.

    run cep/ce0830.r persistent set programHandle.
    run dispath in programHandle('initialize') no-error.
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Lembrando que desse jeito, o programa chamador não fica parado esperando a execução do chamado.
  6. eduardohg

    eduardohg Membro Participativo

    assim nem executa o programa.

Compartilhe esta Página