DT PE DLGQTDAB - Redefine quantidade de reabastecimento

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 a ser reabastecido.
cLocDest	Caractere	Armazém a ser reabastecido.
cEstDest	Caractere	Estrutura do endereço de picking.
cEndDest	Caractere	Endereço a ser reabastecido.
nQtdReabMv	Numérico	Quantidade que será utilizada para efetuar a movimentação de reabastecimento.
aEndAbast	Array of Record	Contém as informações referentes ao endereço que irá reabastecer o picking. aEndAbast[1] -> Caractere Lote do produto aEndAbast[2] -> Catactere Sublote do produto aEndAbast[3] -> Caractere Armazém do endereço picking aEndAbast[4] -> Caractere Estrutura física do endereço picking aEndAbast[5] -> Caractere Código do endereço picking aEndAbast[6] -> Caractere Número de série do produto aEndAbast[7] -> Numérico Quantidade a reabastecer (Mesmo nQtdReabMv)

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 11 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 DLGQTDAB()

Local cProduto := PARAMIXB[1]
Local cLocDest := PARAMIXB[2]
Local cEstDest := PARAMIXB[3]
Local cEndDest := PARAMIXB[4]
Local nQtdReabP := PARAMIXB[5] //Quantidade reabastecer padrão
Local nQtdReabU := 0 //Quantidade reabastecer User Function
Local cLoteCtl := PARAMIXB[6,1]
Local cNumLote := PARAMIXB[6,2]

//Calcula a quantidade a ser reabastecida na User Function
nQtdReabU := U_CalcReab(cLocDest,cEstDest,cEndDest,cProduto,cLoteCtl,cNumLote)
//Caso não conseguiu, usa a quantidade padrão calculada
nQtdReabU := Iif(!Empty(nQtdReabU),nQtdReabU,nQtdReabP)

Return nQtdReabU