Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Tatiana Bastos Lyra Snoeck Martins

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

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

...

Obrigatório
Portuguese

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

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 do Pedido de Venda.


Programa Fonte:
MATA410.PRW


Sintaxe:

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


Parâmetros:


NomeTipoDescrição
Default
Referência
nOpcNumérico1 - Excluir
/
, 2 - Visualizar
/ Residuo /
e Resíduo, 3 - Copiar
/
e 4 - Alterar
X
.


Retorno:
lContinua - Tipo: Lógico
    (logico)
  • .T. - Continuar a rotina
    .F. - Cancelar a rotina
Exemplos #include

Exemplo:
Bloco de código
languagejs
linenumberstrue
#Include 'rwmake.ch'

User Function Mt410Ace()

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


If nOpc == 1        //Exclusão
excluir
IF
If cUsuario <> '
XXXXXX
000001'        
        lContinua := .F.
    EndIf 
ElseIf nOpc == 4    //Alteração
Alterar
IF
If cUsuario <> '
XXXXXX
000001'        
        lContinua := .F.
EndIfElseIf
EndIf
ElseIf nOpc == 2
//
visualizar
ou
residuo
 //Visualização ou Resíduo
IF
If cUsuario <> '
XXXXXX
000001'
        lContinua := .F.
    EndIf

Endif

Return
Return
(lContinua)