Exibir origem

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:	WMSDTCOrdemServicoReverse - Classe Regras da Ordem de Serviço
Ticket:	10336722
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-12258

02. DESCRIÇÃO

Este Ponto de Entrada permite realizar as validações e os processamentos durante o estorno da Ordem de Serviço.

Sintaxe
WMSOSR01 → Incluir validações/processamentos → lRet

03. LOCALIZAÇÃO

Localizado na função ReverseDCF, chamada no Estorno da Ordem de Serviço.

04. PARÂMETROS

Nome	Tipo	Descrição
Self:cIdDCF	Caracter	Indica o ID da DCF.
Self:cDocumento	Caracter	Corresponde ao código do documento.
::Self	Objeto	Objeto que contém as informações referentes ao serviço/documento.

05. RETORNO

Nome	Tipo	Descrição
lRet	Lógico	Será retornada uma variável lógica, indicando se o sistema continuará ou não o processamento.

06. VERSÕES

Protheus 12.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

User Function WMSOSR01()
Local lRet := .t.
Local cIdDCF := PARAMIXB[1]
Local cDocumento := PARAMIXB[2]
Local oObj := PARAMIXB[3]
Local lWmsTrBl := SuperGetMV('MV_WMSTRBL',.F.,.F.)

If IsInCallStack("WMSA332") .AND. lWmsTrBl .AND. AT("REABASTECIMENTO", Upper(oObj:oServico:cDescServ)) > 0
oBlqSaldo := WMSDTCBloqueioSaldoItens():New()
oBlqSaldo:SetOrdServ(oObj)
lRet := oBlqSaldo:RevBlqSld()

If lRet .AND. TableInDic("D18", .F.)
oTransfBlqItens := WMSDTCTransferenciaBloqueioSaldoItens():New()
oTransfBlqItens:SetIdDCF(cIdDCF)
oTransfBlqItens:SetDocto(cDocumento) //Self:GetDocto())

If !(lRet := oTransfBlqItens:RefazerBloqueio()) //.And. !Empty(oModel)
EndIf

oTransfBlqItens:Destroy()
EndIf
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>