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

Inibir botao no Browse

Discussão em 'Progress 4GL' iniciado por sidnei.alves, Outubro 11, 2012.

  1. sidnei.alves

    sidnei.alves Sem Pontuação

    Caros, boa tarde.

    Logo que eu entro em meu browse, quero verificar o status em uma tabela, dependendo do status de cara eu quero desabilitar um botão.
    onde eu defino isso?

    Obrigado.

    Sidnei
  2. joelscampos

    joelscampos Membro Participativo

    Estou sem editor aqui, mas acho que é assim:

    IF status_tabela = x THEN
    Disable nome_do_botao in frame nome_do_frame.
  3. jaozi_nho

    jaozi_nho Membro Participativo

    Olá, se for com smart objects tem uma maneira bem facil de fazer.

    A seguir tem um exemplo de comunicação usando smart objects, em uma tela de cadastro Pai X Filho, na procedure state-changed que recebe estados de alteração de registro e etc.

    Código:
    DEFINE INPUT PARAMETER p-issuer-hdl AS HANDLE NO-UNDO.
      DEFINE INPUT PARAMETER p-state AS CHARACTER NO-UNDO.
    
      run pi-trata-state (p-issuer-hdl, p-state).
    
      IF p-state = 'no-record-available' OR 
          p-state = 'record-available' THEN DO:
          RUN pi-posicao-query IN h_q-caixa ( OUTPUT rw /* ROWID */).
          FIND FIRST cst_cscx_caixa WHERE ROWID(cst_cscx_caixa) = rw NO-LOCK NO-ERROR.
          IF AVAIL cst_cscx_caixa THEN DO:
              IF cst_cscx_caixa.cdn_funcionario = 0 THEN DO:
                  IF p-state = 'record-available' THEN
                      RUN enable-inc-mod-del IN h_bfilho-itemdacaixa ( INPUT YES , INPUT YES , INPUT YES).
                  ELSE
                      RUN enable-inc-mod-del IN h_bfilho-itemdacaixa ( INPUT YES , INPUT NO , INPUT NO).
              END.
              ELSE DO:
                 RUN enable-inc-mod-del IN h_bfilho-itemdacaixa ( INPUT NO , INPUT NO , INPUT NO).
              END.
          END.
      END.
    END PROCEDURE.

Compartilhe esta Página