Histórico da Página

Descrição

O ponto de entrada QN040AUT permite que usuários que não são responsáveis pela FNC possam efetuar manutenção e incluir Plano de Ação na FNC.

Observações

A validação poderá ser efetuada por usuário.Sendo assim:

• • para os usuários que tiverem esse acesso retornar .T.
  • para os usuários sem acesso retornar .F.
  • Se todos os usuários tiverem esse acesso basta retornar sempre .T.

Exemplos

#Include 'Protheus.ch'

User Function Qn040Aut()

Local cFilUser := ParamIxb1 // Filial do Usuário
Local cCodUser := ParamIxb2 // Código do Usuário
Local lRetorno := .F.

If !Empty(cFilUser) .And. !Empty(cCodUser)
// Efetuar regras para validar acesso do usuário
lRetorno := .T.

MsgInfo("Autorizado pelo Ponto de Entrada QN040AUT") 
Endif

Return lRetorno