Árvore de páginas


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:WMSBCCAbastecimento - Classe Regras do Abastecimento
Ticket:10336722
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-12258


02. DESCRIÇÃO

Este Ponto de Entrada permite realizar algum tipo de processamento durante a busca de endereços para o reabastecimento.

Sintaxe
WMSQYABC→ Realiza o(s) processamento(s) → Sem retorno

03. LOCALIZAÇÃO

Localizado no final da função ProcEndAbt, responsável por realizar a busca dos endereços para o reabastecimento.

04. PARÂMETROS

Nome

Tipo

Descrição

Self:oMovPrdLot:GetPrdOri()CaractereCódigo do produto origem
Self:oMovPrdLot:GetProduto()CaractereCódigo do produto
Self:oMovPrdLot:GetLoteCtl()CaractereLote CTL
Self:oMovPrdLot:GetNumLote()CaractereNúmero do Lote
Self:oMovEndOri:GetArmazem()CaractereCódigo do Armazém
Self:oMovEndOri:GetEnder()CaractereCódigo do endereço
(cAliasD14)->D14_IDUNITCaractere

ID do unitizador

Self:nQtdMovtoNuméricoQuantidade do movimento
Self:oOrdServ:GetIdDCF()CaractereID da DCF
Self:oOrdServ:GetDocto()CaractereCódigo do documento
Self:oOrdServ:IsMovUnit()LógicoIndica se o movimento em questão é unitizador

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

Local lRet := .t.
Local lWmsTrBl := SuperGetMV('MV_WMSTRBL',.F.,.F.)
Local cProdOri := PARAMIXB[1]
Local cProduto := PARAMIXB[2]
Local cLoteCtl := PARAMIXB[3]
Local cNumLote := PARAMIXB[4]
Local cArmazem := PARAMIXB[5]
Local cEnderec := PARAMIXB[6]
Local cIdUniti := PARAMIXB[7]
Local nQtdMov := PARAMIXB[8]
Local cIdDCF := PARAMIXB[9]
Local cDocto := PARAMIXB[10]

If IsInCallStack("WMSA101") .AND. lWmsTrBl
   lRet := WMSRemBloq(cProdOri,;
                                      cProduto,;
                                      cLoteCtl,;
                                      cNumLote,;
                                      cArmazem,;
                                      cEnderec,;
                                      cIdUniti,;
                                      nQtdMov,;
                                      cIdDCF,;
                                      cDocto)
EndIf

Return lRet

------