Histórico da Página

01. DADOS GERAIS

Produto:

Solucoes_totvs

Solucao	TOTVS Logística WMS

Solucoes_totvs_cross

SolucaoCross

Solucoes_totvs_parceiros

SolucaoParceiros

Solucoes_totvs_parceirosexptotvs

SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs

Linha	Linha Protheus

Segmento:

Segmentos_totvs

Segmento	Logística

Módulo:

SIGAWMS - Gestão de Armazenagem

Função:

-

País:

Todos Países

Ticket:

-

Requisito/Story/Issue (informe o requisito relacionado) :

-

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

05. RETORNO

Lógico - .T. ou .F.

06. VERSÕES

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

Bloco de código

language	cpp
title	Exemplo
linenumbers	true
collapse	true

#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 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

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave