DT PE WMSAVLT - Validação do lote selecionado na separação

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	TOTVS WMS - Linha Protheus - WMS Protheus (SIGAWMS)
Função:	-
País:	Todos Países
Ticket:	16861003
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-15271

02. DESCRIÇÃO

Este Ponto de Entrada é responsável por validar o lote selecionado durante a execução de um serviço de separação.

03. LOCALIZAÇÃO

Localizado no método ProcEndExp da classe WMSBCCSeparacao.

04. PARÂMETROS

Nome	Tipo	Descrição
cEstFis	Caractere	Código da Estrutura Física em que está ocorrendo a separação
cEnder	Caractere	Endereço em que está ocorrendo a separação
cLoteCt	Caractere	Lote a ser separado
cNumLot	Caractere	Sublote a ser separado
cDtVald	Caractere	Data de Validade do Lote a ser separado
cIdUnit	Caractere	Id Unitizador
nQtdLib	Numérico	Quantidade Liberada do Endereço
nQtdPsr	Numérico	Quantidade de Saída Prevista do Endereço
nQtdSep	Numérico	Quantidade a ser separada
Self	Objeto	WMSBCCSeparacao

05. RETORNO

Lógico - .T. ou .F.

06. VERSÕES

Protheus 12.1.33 ou superiores.

07. OBSERVAÇÃO

Quando existir este Ponto de Entrada e retornar .F. (Falso), o WMS Protheus deve buscar um próximo lote e submetê-lo novamente à validação do Ponto de Entrada, e assim sucessivamente.

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function WMSAVLT()
Local cEstFis := PARAMIXB[1]
Local cEnder := PARAMIXB[2]
Local cLoteCt := PARAMIXB[3]
Local cNumLot := PARAMIXB[4]
Local cDtVald := PARAMIXB[5]
Local cIdUnit := PARAMIXB[6]
Local nQtdLib := PARAMIXB[7]
Local nQtdPsr := PARAMIXB[8]
Local nQtdSep := PARAMIXB[9]

Local Self := PARAMIXB[10]
Local lRet := .T. //Lote válido //Exemplo de validação

If cDtVald < Date()
WmsMessage("Lote XXXX com Data de Validade expirada.","WMSAVLT",1)
lRet := .F.
EndIf

Return lRet