| Produto: | TOTVS 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 |
Este Ponto de Entrada tem por finalidade realizar validações e processamentos durante o estorno da ordem de serviço.
Sintaxe
WMSOSR01 → Incluir validações/processamentos → lRet
O ponto de entrada está localizado na função ReverseDCF chamada no Estorno da ordem de serviço.
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 irá continuar ou não o processamento. |
Não se aplica.
------
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
------