Descrição

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

Observações

A validação pode ser efetuada por usuário de acordo com os seguintes critérios:

Usuários que tiverem acesso; retornar .T.
Usuários sem acesso; retornar .F.
Se todos os usuários tiverem acesso, basta retornar sempre .T.

Exemplos

#Include 'Protheus.ch'

User Function Qn040Aut()

Local cFilUser := ParamIxb [ 1 ] // Filial do Usuário
Local cCodUser := ParamIxb [ 2 ] // 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

Idioma

Português(Brasil)

Versões

Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

cFilUser => Filial do Usuário Logado

cCodUser => Código do Usuário Logado

Retorno

lRetorno => Retornar .T. para permitir e .F. para não permitir

Eventos de chamada do Ponto de Entrada

Manutenção da FNC.

Inclusão de Plano de Ação.

Acesso a edição de campos da FNC.

Programa Fonte

QNCA040.PRW