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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas