Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Linha de Produto:

Microsiga Protheus

Segmento:

Recursos Humanos

Módulo:

Gestão de Pessoal

Função:

GPEA320.PRW

Situação/Requisito:

Necessário a criação de um ponto de entrada no fonte GPEA320.PRW, especificamente dentro da função GPE320ALT.

Solução/Implementação:


Criado o ponto de entrada conforme solicitado:

            If ExistBlock("GP320BUT")
                aButUser := ExecBlock("GP320BUT",.f.,.f., {aButtons} )
                If ValType(aButUser) == "A" .and. len(aButUser) > 0
                    aButtons := aButUser
                Endif
            Endif


Exemplo de uso

#include "PROTHEUS.CH"

user function GP320BUT()

Local aBotao    := aClone( ParamIxb[1] )

Local bTeste    := { || U_Teste() }

aAdd(aBotao, { NIL, { || Eval( bTeste )  } , "Botão Teste" } )

return aBotao


User function Teste()

Alert('Teste de Botão de Usuário')

return


Tickets relacionados:

438635