Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão 81

changes.mady.by.user Marcio Rogerio Menon

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

M461SLD -

 

 Valida o saldo de produtos de Lote/Endereço

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Faturamento - SIGAFAT

Rotina:

Rotina

Nome Técnico

MATA040MATA461

Cadastro Preparação de Documento de VendedoresSaída

País(es):

TodosBrasil - BRA

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versão:Protheus 12.1.17 e superior.

Ponto de Entrada

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

M461SLD é validar o saldo dos produtos que controlam lote/endereço no momento da preparação do documento de saída para permitir ou não que seja faturado um item com saldo indisponível em estoque.

Localização:

Atualizações/

Cadastros

Faturamento/

Vendedores

Documento de Saída

Eventos:

MA040VLD

M461SLD(

nOpc

Nil ) --> lRet

Programa Fonte:

MATA040

Preparação de Documento de Saída - MATA461.PRX

Parâmetros:

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

Nil - Nenhum

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

.T. -

Permite a execução da operação

Não valida o saldo

.F. -

Não permite a execução da operaçãoSim

Faz a validação do saldo

Sim

Informações

O ponto de entrada só será executado se o parâmetro MV_ESTNEG estiver configurado com o conteúdo igual a "N" (sem as aspas).


Exemplo:

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

User Function MA040VLDM461SLD()

Local _nOpc_lRet := PARAMIXB.F.		//3-Sempre Inclusão,executa 4-a Alteraçãovalidação e 5- Exclusão
Local _lRet	:= .T.
Local _cUsuario := RetCodUsr()

If _nOpcdo saldo

If SC9->C9_PRODUTO == 4 .And. _cUsuario == "000001"
	Alert("Usuário não pode efetuar alterações.")
	_lRet := .F.
ElseIf _nOpc == 5"LOTE           " .And. SC9->C9_cUsuarioLOTECTL == "000002"
	Alert("Usuário não pode efetuar exclusão.")LOTE X    "
	__lRet := .F.T.	//Não executa a validação do saldo
EndIf

Return __lRet