Ponto-de-Entrada: GP090CHK - Verifica Autorização do Usuário
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:
O ponto de entrada verifica se o usuário está autorizado a realizar manutenção em lançamento por verba.
Programa Fonte
GPEA090.PRX
Sintaxe
GP090CHK - Verifica Autorização do Usuário ( [ Paramixb[1] ], [ Paramixb[2] ], [ Paramixb[3] ], [ Paramixb[4] ] ) --> lRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Paramixb[1] | Caracter | Código do usuário. | |||||||||||||||
Paramixb[2] | Array of Record | Código dos grupos ao qual o usuário pertence. | |||||||||||||||
Paramixb[3] | Array of Record | Array com os lançamentos antes da manutenção realizada. | |||||||||||||||
Paramixb[4] | Array of Record | Array com os lançamentos após a manutenção realizada. |
Retorno
-
lRet(logico)
- Indica se efetiva a manutenção.
Observações
O ponto de entrada deve retornar um valor lógico para indicar se o usuário tem permissão de acesso e assim efetivar a operação de manutenção do lançamento.
Exemplos
//No exemplo verifica-se se o usuario esta no grupo de administradores ou se o codigo//do usuario esta em uma lista permitida pre-definida e se nao estiver nao efetiva//a manutencao e exibe uma mensagem de alerta#INCLUDE 'PROTHEUS.CH'User Function GP090CHK()Local aArea := GetArea()Local aColsAnt := Paramixb[3]Local aCols := Paramixb[4]Local cCodUser := Paramixb[1]Local cGrupos := Paramixb[2]Local lRet := .T.Alert("Passou pelo PE GP090CHK") If !('000000' $ cGrupos .Or. cCodUser $ '000000/000001/000005') lRet := .F. Alert("Você não tem permissão para realizar essa operação")EndIfRestArea( aArea )Return( lRet )
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas