| 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: | PCOA180 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOA1804 é utilizado para desabilitar, habilitar ou validar o acesso às opções do menu na tela de Manutenção de Conta Orçamentária Gerencial da Visão, permitindo personalizações específicas para controle de acesso ou restrições de uso.
If ExistBlock("PCOA1804")
//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 PCOA1804 ³
//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("PCOA1804", .F., .F., {nOpc})
RestArea(aArea)
Return
EndIf
EndIf
User Function PCOA1804
Local lRet := .F.
//exemplo somente permite visualizacao CO
If ParamIXB[1] == 2
lRet := .T.
Else
Alert("usuario sem acesso")
EndIf
Return lRet
Importante !!