Linha Microsiga Protheus

Árvore de páginas

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