Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | PCOA035 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46030 |
Este ponto de entrada permite que os usuários adicionem botões personalizados na tela de inclusão, alteração, exclusão ou visualização de processos dentro da rotina do módulo SIGAPCO (código 57). Ele é chamado ao inicializar a tela e busca rotinas definidas pelo usuário para serem exibidas como opções adicionais.
If ExistBlock( "PCOA0352" ) //P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ //P_E³ Ponto de entrada utilizado para inclusao de botoes de usuarios ³ //P_E³ na tela de processos ³ //P_E³ Parametros : Nenhum ³ //P_E³ Retorno : Array contendo as rotinas a serem adicionados na enchoice ³ //P_E³ Ex. : User Function PCOA0352 ³ //P_E³ Return { 'PEDIDO', {|| MyFun() },"Exemplo de Botao" } ³ //P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ If ValType( aUsButtons := ExecBlock( "PCOA0352", .F., .F. ) ) == "A" aButtons := {} AEval( aUsButtons, { |x| AAdd( aButtons, x ) } ) EndIf EndIf |
User Function PCOA0352() Local aBotoes := {} // Adiciona um botão chamado "PEDIDO" AAdd(aBotoes, {"PEDIDO", {|| U_Teste() }, "Exemplo de Botão"}) // Retorna o array com o botão adicionado Return aBotoes |
|