DT PE WMSQTDAB - Redefine quantidade de reabastecimento para o controle de estoque por endereço exclusivo do WMS

01. DADOS GERAIS

Produto:	TOTVS Logística WMS
Linha de Produto:	Linha Protheus
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 determina qual a quantidade que deverá ser utilizada pela movimentação do reabastecimento que está sendo gerada.

Permite também substituir a quantidade padrão calculada para gerar a movimentação de reabastecimento.

03. LOCALIZAÇÃO

Localizado na função de geração do reabastecimento.

04. PARÂMETROS

Nome	Tipo	Descrição
cProduto	Caractere	Produto que será reabastecido.
cLocDest	Caractere	Armazém destino que será reabastecido.
cEstDest	Caractere	Estrutura do endereço destino de picking.
cEndDest	Caractere	Endereço destino que será reabastecido.
cLocOri	Caractere	Armazém origem do reabastecimento.
cEstOri	Caractere	Estrutura do endereço origem do reabastecimento
cEndOri	Caractere	Endereço origem do reabastecimento
nQtdReabMv	Numérico	Quantidade que será utilizada para efetuar a movimentação de reabastecimento.
cLoteCtl	Caractere	Lote do produto que será reabastecido
cNumLote	Caractere	Sublote do lote do produto que será reabastecido
cNumSer	Caractere	Número de série do produto que será reabastecido
cIdUnitiz	Caractere	Identificador do unitizador

05. RETORNO

Nome	Tipo	Descrição
nQtdAbtPE	Numérico	Quantidade que deverá ser utilizada pela movimentação para o reabastecimento do endereço de picking.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

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

08. EXEMPLO

------

User Function WMSQTDAB()
Local cProduto := PARAMIXB[1]
Local cLocDest := PARAMIXB[2]
Local cEstDest := PARAMIXB[3]
Local cEndDest := PARAMIXB[4]
Local cLocOri := PARAMIXB[5]
Local cEstOri := PARAMIXB[6]
Local cEndOri := PARAMIXB[7]
Local nQtdAbas := PARAMIXB[8]
Local cLoteCtl := PARAMIXB[9]
Local cNumLote := PARAMIXB[10]
Local cNumSer := PARAMIXB[11]
Local cIdUnitiz := PARAMIXB[12]

dbSelectArea("DC3")
dbSetOrder(2) //DC3_FILIAL+DC3_CODPRO+DC3_LOCAL+DC3_TPESTR
IF dbSeek(xFilial("DC3")+cProduto+cLocal+cTpEstr) .And. DC3->DC3_QTDUNI > 1
nQtdAbas := Min(DC3->DC3_QTDUNI, WmsSldD14( cLocal, cEnd , cProduto,,cLoteCtl, cNumLote, cNumSer,, cIdUnitiz))
Endif
RestArea(aArea)

Return nQtdAbas