Histórico da Página
PQUA0503 -
Ponto de EntradaQNC030USU - Controle de Acesso em Alteração/Inclusão ou Exclusão de Plano de Ação
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAQNC - CONTROLE DE NAO CONFORMIDADES | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada QNC030USU permite que usuários que não são responsáveis pelo plano de ação possam efetuar manutenção e incluir Plano de Ação. | ||||||||
Localização: | Function QNCA030 | ||||||||
Eventos: | Informe o Título da rotina | ||||||||
Programa Fonte: | QNCA030.prx | ||||||||
Função: | QNC030Alt | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function QNC030USU()
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