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 CONFORMIDADESControle de Não Conformidades | ||||
Rotina: |
|
Ponto de Entrada
Descrição: | Ponto de entrada Entrada QNC030USU permite que alterar Plano de Ação para usuários que não são responsáveis pelo plano de ação possam efetuar manutenção e incluir Plano de Açãonão sejam responsáveis. | ||||||||
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.
MsgInfoAlert("Autorizado pelo Ponto de Entrada QN040AUTQN030AUT")
Endif
Return lRetorno