Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Marcio Rogerio Menon

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.
Comentário: Migration of unmigrated content due to installation of a new plugin

M461SLD - Valida o

Saldo

saldo de

Produtos

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

MATA461

Preparação de Documento de Saída

País(es):

Brasil - BRA

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versão:Protheus 12

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada 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/Faturamento/Documento de Saída

Eventos:

M461SLD( Nil ) --> lRet

Programa Fonte:

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

Parâmetros:

Nil - Nenhum

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

.T. - Não valida o saldo

.F. - Faz a validação do saldo

Sim

Informações

A validação do saldo dos produtos que controlam lote/endereço só serão executados O ponto de entrada só será executado se o parâmetro MV_ESTNEG = N e o retorno do ponto de entrada for falso (.F.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 __nOpclRet := PARAMIXB	.F.	//3-Sempre Inclusão,executa 4-a Alteraçãovalidação e 5- Exclusão
Local _lRet	:= .T.
Local _cUsuario := RetCodUsr()do saldo

If SC9->C9_nOpcPRODUTO == 4"LOTE .And. _cUsuario == "000001"
	Alert("Usuário não pode efetuar alterações.")
	_lRet := .F.
ElseIf _nOpc == 5 " .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