Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT410ACE - Verificar acessos dos usuários


Descrição:

Ponto de entrada 'MT410ACE' criado para verificar o acesso dos usuários nas rotinas: Excluir, Visualizar, Resíduo, Copiar e Alterar do Pedido de Venda.


Programa Fonte:
MATA410.PRW


Sintaxe:

MT410ACE( nOpc ) --> lContinua


Parâmetros:


NomeTipoDescrição
nOpcNumérico1 - Excluir, 2 - Visualizar e Resíduo, 3 - Copiar e 4 - Alterar.


Retorno:
lContinua - Tipo: Lógico
  • .T. - Continuar a rotina
    .F. - Cancelar a rotina

Exemplo:
#Include 'rwmake.ch'

User Function Mt410Ace()

Local lContinua := .T.  
Local nOpc := PARAMIXB[1] 

If nOpc == 1        //Exclusão  
    If cUsuario <> '000001'        
        lContinua := .F.
    EndIf 
ElseIf nOpc == 4    //Alteração        
    If cUsuario <> '000001'        
        lContinua := .F.
    EndIf
ElseIf nOpc == 2    //Visualização ou Resíduo
    If cUsuario <> '000001'
        lContinua := .F.
    EndIf
Endif

Return (lContinua)