Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Faturamento | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos | ||||
| Versão: | 12.1.17 e superior. |
Descrição: | 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 | ||||||||
Programa Fonte: | 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 | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function MA040VLD()
Local _nOpc := 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 |