| 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: | PCOA110 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
Este ponto de entrada é chamado para incluir rotinas ou botões adicionais no browse da tela de controle de usuários da planilha orçamentária. Ele fornece um array com as rotinas a serem adicionadas no menu funcional, que são executadas conforme a escolha do usuário.
If ExistBlock( "PCOA1101" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para inclusao de funcoes de usuarios no ³
//P_E³ browse da tela de controle de usuarios da planilha orcamentaria ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : Array contendo as rotinas a serem adicionados na enchoice ³
//P_E³ Ex. : User Function PCOA1101 ³
//P_E³ Return {{"Titulo", {|| U_Teste() } }} ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsRotina := ExecBlock( "PCOA1101", .F., .F. ) ) == "A"
AEval( aUsRotina, { |x| AAdd( aRotina, x ) } )
EndIf
EndIf
User Function PCOA1101()
Local aUsRotina := { {"Relatório de Usuários", {|| u_GeraRelatorioUsuarios() }} }
Return aUsRotina
Importante !!