Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: GP100CHK - Manutenção em Lançamento por Verba
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 
GPEA100.PRX
Sintaxe

GP100CHK - Manutenção em Lançamento por Verba ( [ Paramixb[1] ], [ Paramixb[2] ], [ Paramixb[3] ] ) --> 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 Código da verba a ser lançada.
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 a verba a ser lancada é a 013 ou 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 alertaUser Function GP100CHK()Local aArea 	:= GetArea()Local cCodPd	:= Paramixb[3]Local cCodUser 	:= Paramixb[1]Local cGrupos	:= Paramixb[2]Local lRet		:= .T.Alert("Passou pelo PE GP100CHK")If (cCodPd == "013") .Or. !('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