[RESOLVIDO] captar evento de botão

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

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

    Will Membro Participativo

    Tenho uma upc que deverá ser executada no momento que o usuário clicar no botão de confirmação do programa re1001. O mesmo encontra-se na toolbar do programa, porém minha upc não é executada neste momento, o que poderia ser feito??? Obrigado
    Will, Dezembro 14, 2009
    #1
  2. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    O que você deseja fazer, alguma validação antes de que seja efetivado o recebimento???

    Eu utilizo uma EPC no programa RE1005RP, segue abaixo um exemplo da EPC de validação deste programa:


    Código:
    /* Include i-epc200.i: Defini‡Æo Temp-Table tt-epc */
{include/i-epc200.i1}

DEF INPUT PARAM p-ind-event AS CHAR NO-UNDO.
DEF INPUT-OUTPUT PARAM TABLE FOR tt-epc.

DEF BUFFER b-docum-est    FOR docum-est.
DEF BUFFER b-item-doc-est FOR item-doc-est. /*24/09/2008*/

IF p-ind-event = 'inicio-verifica-documento' THEN
DO:
    FIND FIRST tt-epc NO-LOCK 
            WHERE tt-epc.cod-event = 'inicio-verifica-documento' NO-ERROR.
    IF AVAIL tt-epc THEN
    DO:
        FIND FIRST b-docum-est NO-LOCK
            WHERE ROWID(b-docum-est) = TO-ROWID(tt-epc.val-parameter) NO-ERROR.
        IF AVAIL b-docum-est THEN
        DO:
            /*Minha verificação*/
            if erro then
            do:
                 message "erro" view-as alert-box.
                 RETURN 'NOK'.
            end.

        END.
    END.
END.
    Sugiro que verifique os outros eventos e teste o melhor para sua situação.

    []'s
    Cobra.cne, Dezembro 14, 2009
    #2
  3. Will

    Will Membro Participativo

    Cara assim, desejo validar o estabelecimento do meu item, porém eu tenho o botão de "Atualiza documento" na mesma barra onde tenho os botões para adicionar novos registros , alterar registros entre outros. Criei a upc, e coloquei uma mensagem, a mesma retorna a mensagem quando entro no programa, altero os registro, porém quando clico no botão "Atualiza documento", não retorna a mensagem, como se não estivesse chamando a upc, este é o problema.
    Will, Dezembro 14, 2009
    #3
  4. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Existem várias situações em que a Datasul não disponibiliza evento UPC nos botões, se este exemplo que lhe passei não funcionar para efetuar sua validação, a unica solução que posso sugerir no momento seria criar um botão específico em cima do padrão para que você possa efetuar sua validação e depois executar a função do botão padrão.

    Já existe no fórum exemplo de como criar botões sobrepostos.

    T+
    Cobra.cne, Dezembro 14, 2009
    #4
  5. Will

    Will Membro Participativo

    Opa cara ,vlw pela dica, catei um exemplo, porém estou com o seguinte problema, eu crio o botão porém ele não sobrepõe o jpá existente, ele fica por trás do mesmo. Tem algum comando que possa forçar isso?
    Will, Dezembro 15, 2009
    #5
  6. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    Não lembro se estava no exemplo, mas eu costumo fazer assim, escondendo o anterio
    Código:
        ASSIGN wh-botao_padrao:TAB-STOP = FALSE
                wh-botao_padrao:VISIBLE = FALSE.

    wh-botao_novo:MOVE-TO-TOP().
    wh-botao_novo:MOVE-BEFORE-TAB-ITEM(handle_componente_anterior_tab ).
    Lembrando que para você poder utilizar o botão padrão (apply "choose"), você não pode desabilitá-lo.

    []'s
    Cobra.cne, Dezembro 16, 2009
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página