| Produto: |
TOTVS Backoffice
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
| Função: | PCOA210 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
Este ponto de entrada permite ao usuário adicionar botões personalizados à barra de ferramentas da tela de configuração dos lançamentos. O sistema possibilita que, ao executar este ponto de entrada, um array contendo as rotinas adicionais seja retornado, permitindo customizações específicas para cada cliente ou operação.
If ExistBlock( "PCOA2102" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para inclusao de botoes de usuarios ³
//P_E³ na tela de configuracao dos lancamentos ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : Array contendo as rotinas a serem adicionados na enchoice ³
//P_E³ Ex. : User Function PCOA2102 ³
//P_E³ Return { 'PEDIDO', {|| MyFun() },"Exemplo de Botao" } ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsButtons := ExecBlock( "PCOA2102", .F., .F. ) ) == "A"
aButtons := {}
AEval( aUsButtons, { |x| AAdd( aButtons, x ) } )
EndIf
EndIf
User Function PCOA2102()
Local aBotoes := {}
// Adicionando um botão de exemplo à barra de ferramentas
AAdd(aBotoes, { "PEDIDO", {|| u_MyFun() }, "Exemplo de Botão" })
// Retornando o array de botões
Return aBotoes
Importante !!