| 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: | PCOA170 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOA1704 é utilizado para desabilitar, habilitar ou validar o acesso às opções do menu da tela de Definições da Visão Gerencial, relacionada à montagem das contas orçamentárias gerenciais e seus respectivos filtros. Este ponto permite implementar regras de acesso personalizadas, atendendo às políticas específicas de uso do cliente.
If ExistBlock("PCOA1704")
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para validacao da rotina chamada no menu ³
//P_E³ Estrutura no programa de atualizacao da planilha orcamentaria. ³
//P_E³ Parametros : [1] - Numerico - Opcao selecionada ³
//P_E³ Retorno : Logico - Permite ou na a utilizacao da opcao selecionada. ³
//P_E³ Exemplo : ³
//P_E³ User Function PCOA1704 ³
//P_E³ Local lRet := .F. ³
//P_E³ If ParamIXB[1] == 1 ³
//P_E³ lRet := .T. ³
//P_E³ EndIf ³
//P_E³ Return lRet ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If !ExecBlock("PCOA1704", .F., .F., {nOpc})
RestArea(aArea)
Return
EndIf
EndIf
User Function PCOA1704
Local lRet := .F.
//exemplo somente permite visualizacao CO
If ParamIXB[1] == 2
lRet := .T.
Else
Alert("usuario sem acesso")
EndIf
Return lRet
Importante !!