Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Sandra Yumiko Saga

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

MA040VLD - Validações do Cadastro de Vendedores

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina

Nome Técnico

MATA040

Cadastro de Vendedores

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

 

 

 

 

 

 

Versão:12.1.17 e superior.
 

Ponto de Entrada

Descrição:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

A finalidade do ponto de entrada MA040VLD é permitir ou não a inclusão, alteração ou exclusão de vendedores na rotina do Cadastro de Vendedores.

Localização:

Atualizações/Cadastros/Vendedores

Eventos:

MA040VLD( nOpc ) --> lRet

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

MATA040.PRX

Parâmetros:

nOpc - Tipo Numérico - Número da opção selecionada, sendo: 3- Inclusão, 4- Alteração e 5- Exclusão

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

 

 

 

 

 

 

 

 

 

 

 

 

Exemplo:

Lógico

.T. - Permite a execução da operação

.F. - Não permite a execução da operação

Sim

Exemplo:

Bloco de código
languagec#
linenumberstrue
#Include
#Include 
'Protheus.ch'


User Function
CN120ALT
 MA040VLD()
Local aCab


Local _nOpc :=
PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab
 PARAMIXB		//3- Inclusão, 4- Alteração e 5- Exclusão
Local _lRet	:= .T.
Local _cUsuario := RetCodUsr()

If _nOpc == 4 .And. _cUsuario == "000001"
	Alert("Usuário não pode efetuar alterações.")
	_lRet := .F.
ElseIf _nOpc == 5 .And. _cUsuario == "000002"
	Alert("Usuário não pode efetuar exclusão.")
	_lRet := .F.
EndIf

Return _lRet