DT PE WMSBLSD - Permite trocar o código e a observação do motivo do bloqueio de saldo

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite trocar o código e a observação do motivo do bloqueio de saldo.

03. LOCALIZAÇÃO

Localizado antes da gravação do bloqueio de saldo.

04. PARÂMETROS

05. RETORNO

Um Array contendo duas posições, no qual a primeira é o código do motivo e a segunda é a descrição do motivo.

06. VERSÕES

Protheus 12.1.23 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TOTVS.CH"

User Function WMSBLSD()
Local cIdDcf := paramixb[1]
Local cMotivo := paramixb[2]
Local cObserv := paramixb[3]
Local cAliasQry := ""
Local cAliasSx5 := ""
Local aRetPe := {}

cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry
         SELECT DISTINCT 1
         FROM %Table:DCF% DCF
         INNER JOIN %Table:DC5% DC5
         ON DC5.DC5_FILIAL = %xFilial:DC5%
         AND DC5.DC5_SERVIC = DCF.DCF_SERVIC
         AND DC5.DC5_BLQLOT = '1'
         AND DC5.%NotDel%
         WHERE DCF.DCF_FILIAL = %xFilial:DCF%
         AND DCF.DCF_ID = %Exp:cIdDcf%
         AND DCF.%NotDel%
EndSql

If (cAliasQry)->(!Eof())
    cAliasSx5 := GetNextAlias()
    BeginSql Alias cAliasSx5
             SELECT X5_DESCRI
             FROM %Table:SX5% SX5
             WHERE X5_tabela = 'E1'
             AND X5_CHAVE = 'ND'
    EndSql

     If (cAliasSx5)->(!Eof())
           Aadd(aRetPe,'ND')
           Aadd(aRetPe,(cAliasSx5)→X5_DESCRI)

     Else
           Aadd(aRetPe,cMotivo)
           Aadd(aRetPe,cObserv)
     EndIf
     (cAliasSx5)→(dbCloseArea())

EndIf
(cAliasQry)→(dbCloseArea())

Return aRetPe

------