DT PE WMSOSR01 - Realiza validações e processamentos durante o estorno da ordem de serviço

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