LJ7110 - Permite customizar/desviar as validações realizadas para usuário com perfil caixa

Descrição:

Disponibilizar P.E para atuar no momento da validação de acesso a rotinas de caixa(SLF).

Eventos:

O ponto de entrada é executado no momento da validação de acessos, somente será validado o acesso padrão se o PE retornar uma string diferente de "S" ou "N".

Programa Fonte:

LOJXFUNB.PRW

Parâmetros:

NomeTipoDescrição
ParamIxb[1]InteiroNúmero do acesso que será validado na tabela SLF(LF_ACESSO)

Retorno:

Nome

Tipo

Descrição

cRet

Carácter

Existem 3 tipos de retornos possíveis:

"S" → Rotina de validação de acesso irá retornar que possui o acesso e não irá realizar nenhum tipo de validação padrão;

"N" → Rotina de validação de acesso irá retornar que não possui o acesso e não irá realizar nenhum tipo de validação padrão;

" " → Quando retorno diferente de "S" ou "N", será realizado o processo de validação padrão como se não existisse o PE.

Exemplo:

#include 'Protheus.ch'

//--------------------------------------------------------------
/*/{Protheus.doc} LJ7110
Descrição: Ponto de Entrada LJ7110 ocorre na função LjProfile()
Permite desviar a validação padrão de caixa
@author - Paulo Henrique Santos de Moura
@since 12/2017
/*/
//--------------------------------------------------------------
User Function LJ7108()

Local cRet := ""

Local _nAcesso := PARAMIXB[1]

If _nAcesso == 11

cRet := "S"

EndIf

Return cRet

//Nesse exemplo, sempre que for realizado a validação do acesso 11 (LF_ACESSO), irá retornar que tem acesso e não irá realizar nenhuma validação padrão, caso o acesso não seja o 11, seguirá o fluxo de validação do padrão