Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
MT410ACE - Verificar acessos dos usuários
MT410ACE - Verificar acessos dos usuários

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:
Bloco de código
languagejs
linenumberstrue
#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)