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

------



<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>