WMSQTDAB - Redefine Quantidade Reabastecimento Para o Controle de Estoque por Endereço Exclusivo do WMS

Localizado na função de geração do reabastecimento, determina qual a quantidade que deverá ser utilizada pela movimentação do reabastecimento que está sendo gerada. Permite substituir a quantidade padrão calculada para gerar a movimentação de reabastecimento.

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

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

Retorno

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

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

Abrangência

Protheus 12.1.17 e Versões Superiores

Veja Também

DLQTDABT - Quantidade Para Reabastecimento

Page tree