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

[RESOLVIDO] Upc novamente

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

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Will

    Will Membro Participativo

    Eae glera, gostaria de saber como faço via upc para desabilitar o botão de COPIAR do programa de cadastro de itens cd0204???

    Meu problema é identificar o botão......
  2. sidnei_mariano

    sidnei_mariano Membro Participativo

    Boa Noite Will.

    Segue abaixo o código prontinho pra vc.

    Usa esse código que já fiz prontinho pro seu problema.

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

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


    assign c-objeto = entry(num-entries(p-wgh-object:private-data, "~/"), p-wgh-object:private-data, "~/").


    if p-ind-object = "CONTAINER" then do:
    DO :
    ASSIGN h_Frame = p-wgh-frame:FIRST-CHILD.
    ASSIGN h_Frame = h_Frame:FIRST-CHILD.
    DO WHILE h_Frame <> ?:
    IF h_frame:TYPE <> "field-group" then
    DO:
    IF h_frame:NAME = "Panel-Frame" THEN
    DO:
    ASSIGN frame1 = h_frame:FIRST-CHILD.
    ASSIGN frame1 = frame1:FIRST-CHILD.
    DO WHILE Frame1 <> ?:
    IF frame1:NAME = "bt-cop" THEN
    "AQUI VOCE PEGA O HANDLE DO BOTÃO COPIAR" - DEPOIS É SÓ DESATIVALO.
    ASSIGN frame1 = frame1:NEXT-SIBLING.
    END.
    END.
    END.
    ASSIGN h_Frame = h_Frame:NEXT-SIBLING.
    END.
    END.
    END.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página