import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: GP090CHK - Verifica Autorização do Usuário
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:
Retorno
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
|