Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT410ACE - Verificar acessos dos usuários
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada 'MT410ACE' criado para verificar o acesso dos usuários nas rotinas: Excluir, Visualizar, Resíduo, Copiar e Alterar.
Programa Fonte 
.PRW
Sintaxe

MT410ACE - Verificar acessos dos usuários ( < nOpc> ) --> lContinua

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nOpc Numérico 1 - Excluir / 2 - Visualizar / Residuo / 3 - Copiar / 4 - Alterar X
Retorno
    lContinua(logico)
  • .T. - Continuar a rotina
    .F. - Cancelar a rotina
Exemplos 
#include 'rwmake.ch'User Function Mt410Ace()Local lContinua := .T.  Local nOpc  := PARAMIXB [1] IF nOpc == 1 // excluir    IF cUsuario <> 'XXXXXX'        lContinua := .F.    EndIf ElseIf nOpc == 4 // Alterar        IF cUsuario <> 'XXXXXX'        lContinua := .F.    EndIfElseIf nOpc == 2// visualizar ou residuo       IF cUsuario <> 'XXXXXX'        lContinua := .F.    EndIf  Endif Return(lContinua)