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
------
09. ASSUNTOS RELACIONADOS