[RESOLVIDO] Customização do Zoom Z02AD098

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Maio 15, 2011.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 2 de 3
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    E como faço para modificar os eventos de um fill-in???
    Rogerio, Maio 18, 2011
    #7
  2. TrombiniSP

    TrombiniSP Membro Participativo

    Rogério,

    Dai em diante é tudo 4GL, há exemplos disso aqui mesmo no fórum e lembre-se, no Progress tratamos Triggers e não Eventos. ;)

    []s
    TrombiniSP, Maio 19, 2011
    #8
  3. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Então mas eu não achei nada aqui no forum que me ajude a substituir uma trigger de um objeto já existente na Window, eu consigo criar um objeto e definir suas triggers...
    Rogerio, Maio 19, 2011
    #9
  4. TrombiniSP

    TrombiniSP Membro Participativo

    Rogério,

    Quando vc cria um objeto e atribui ao objeto uma trigger vc faz uso da variável Handle do mesmo. Neste caso vc vai somente precisar recuperar o Handle do objeto já existente em uma variável do tipo Handle e atribuir a trigger normalmente (como vc faria ao criar um novo objeto). O código original da trigger do objecto já existente será "sobreposto" pelo seu código.

    []s
    TrombiniSP, Maio 19, 2011
    #10
  5. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Cara desculpe o incomodo, mas fiz direitinho como vc falou e agora quando executo a trigger do F5 ou do duplo clique ele me traz o seguinte erro....

    O pior é que quando faço direto em uma tela de cadastro por exemplo o zoom funciona normalmente!!!

    A chamada para o zoom na UPC principal está assim:
    Código:
            ON 'F5' OF wh-pd4000-nome-abrev 
         PERSISTENT RUN esp\upcpd4000-u01.p.
        ON 'MOUSE-SELECT-DBLCLICK' OF wh-pd4000-nome-abrev 
         PERSISTENT RUN esp\upcpd4000-u01.p.
    e o arquivo upcpd4000-u01.p está assim.

    Código:
    DEF NEW GLOBAL SHARED VAR wh-pd4000-nome-abrev        AS WIDGET-HANDLE            NO-UNDO.

    {include/zoomvar.i &prog-zoom=esp\escd0704-z01.w
                       &campo=wh-pd4000-nome-abrev:SCREEN-VALUE
                       &campozoom=nome-abrev}

    Arquivos Anexados:

    • ERRO.jpg
      ERRO.jpg
      Tamanho:
      27.2 KB
      Visitas:
      162
    Rogerio, Maio 19, 2011
    #11
  6. TrombiniSP

    TrombiniSP Membro Participativo

    Rogerio,

    A chamada para o zoom tem que ser diferente nestes casos quando vc trabalha com UPCs, Handle, etc.

    Faça como abaixo:

    Código:
    def var wh-pesquisa as widget-handle.
def new global shared var l-implanta as logical init no.
def new global shared var wh-pd4000-nome-abrev    as widget-handle no-undo.
def new global shared var wh-window  as handle no-undo.
def new global shared var adm-broker-hdl as handle no-undo.

{include/zoomvar.i &prog-zoom=esp\escd0704-z01.w
                   &proghandle=wh-window
                   &campohandle=wh-pd4000-nome-abrev
                   &campozoom=nome-abrev}
    []s
    TrombiniSP, Maio 19, 2011
    #12
Página 2 de 3
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página