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
Cookies Anuncie aqui Patrocinador Anuncios

[RESOLVIDO] Upc

Discussão em 'EMS , HCM e Totvs 11' iniciado por Will, Setembro 4, 2009.

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

    Will Membro Participativo

    pessoal, gostaria de saber como faço para desabilitar um botao especifico da tela

    define input param p-ind-event as char no-undo.
    define input param p-ind-object as char no-undo.
    define input param p-wgh-object as handle no-undo.
    define input param p-wgh-frame as widget-handle no-undo.
    define input param p-cod-table as char no-undo.
    define input param p-row-table as rowid no-undo.

    def var h_frame as widget-handle no-undo.
    def var h_page as widget-handle no-undo.
    def var c-char as char no-undo.
    def var c-objeto as char no-undo.
    def var wh-objeto as handle no-undo.
    /* and p-ind-object = "VIEWER" */
    IF p-ind-Event = "INITIALIZE" then do:
    assign wh-objeto = p-wgh-frame:first-child.
    do while valid-handle(wh-objeto):

    case wh-objeto:name:
    when "tp-requis" then do:
    message "teste" view-as alert-box.
    assign wh-objeto:sensitive = no.
    end.
    end case.

    if wh-objeto:TYPE = 'field-group' then
    assign wh-objeto = wh-objeto:first-child.
    else
    assign wh-objeto = wh-objeto:next-sibling.

    END.
    end.Will
    Usuário Junior


    Mensagens: 43
    Registro: 24 Ago 2009, 09:26
    Mensagem particularE-mail
    Will, Setembro 4, 2009
    #1
  2. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Will,

    O código é exatamente este mas somente se o nome do seu botão é "TP-REQUIS", se não é só trocar pelo nome do botão.

    Recomento utilizar este comando no último evento que aparece para o programa, ao invés do INITIALIZE, pois outros eventos para tratar este botão e ativá-lo novamente.

    Também já tive situações que não consegui desabilitar o botão, porque a tratativa deste botão não estava em nenhum evento, e era executada após o último evento.

    Outra coisa quando postar código, utilize a opção de "CODE".

    T+
    Cobra.cne, Setembro 4, 2009
    #2
  3. Will

    Will Membro Participativo

    opa Cobra, certo cara, chamei essa upc no ultimo evento e funcionou so que agora meu problema e outro , o campo que tenho que desabilitar e um opt-radio, ele tem tres opçoes, e eu teria que desabilitar somente a segunda opçao, como poderia fazer isto????
    Will, Setembro 4, 2009
    #3
  4. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Quando vc selecionar o handle do campo usa assim:

    Código:
    handle_radio:disable("label_a_desabilitar").
    T+
    Cobra.cne, Setembro 4, 2009
    #4
  5. Will

    Will Membro Participativo

    cara, fiz como voce mandou porem ele esta travando o programa no momento da execuçao

    Código:
    efine input param p-ind-event  as char          no-undo.
define input param p-ind-object as char          no-undo.
define input param p-wgh-object as handle        no-undo.
define input param p-wgh-frame  as widget-handle no-undo.
define input param p-cod-table  as char          no-undo.
define input param p-row-table  as rowid         no-undo.

def var h_frame                 as widget-handle no-undo.
def var h_page                  as widget-handle no-undo.
def var c-char                  as char          no-undo.
def var c-objeto                as char          no-undo.
def var wh-objeto               as handle        no-undo.

   /*message p-ind-event view-as alert-box.*/
   if p-ind-Event = "AFTER-ADD" then do:
      assign wh-objeto = p-wgh-frame:first-child.
      do while valid-handle(wh-objeto):

         case wh-objeto:name:
            when "tp-requis" then do:
               /*assign wh-objeto:sensitive = no.*/
               wh-objeto:disable("Solicitação Compras").
            end.
         end case.
      end.
   end.
    Will, Setembro 4, 2009
    #5
  6. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Se puder, me passa o programa que esta fazendo que eu verifico aqui, lembrando que esta faltando conteúdo no seu código:

    Código:
       
if p-ind-Event = "AFTER-ADD" then do:
      assign wh-objeto = p-wgh-frame:first-child.
      do while valid-handle(wh-objeto):

         case wh-objeto:name:
            when "tp-requis" then do:
               /*assign wh-objeto:sensitive = no.*/
               wh-objeto:disable("Solicitação Compras").
            end.
         end case.
        /*Esta sem este pedaço*/
        if wh-objeto:TYPE = 'field-group' then
            assign wh-objeto = wh-objeto:first-child.
        else
            assign wh-objeto = wh-objeto:next-sibling.
      end.
   end.
    Aguardo,
    Cobra.cne, Setembro 4, 2009
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página