DT PE WMSBMSUM - Após a finalização do movimento de estoque

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite executar um processo adicional, logo após a finalização de uma movimentação de estoque WMS.

03. LOCALIZAÇÃO

Localizado ao final da função responsável pela movimentação de estoque WMS.

04. PARÂMETROS

Este Ponto de Entrada recebe como parâmetro o R_E_C_N_O_ da tabela D12.

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.

08. EXEMPLO

------

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

User Function WMSBMSUM()

Local aRecD12 := paramixb[1]
Local cAliasQry := Nil

cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry

SELECT DISTINCT 1
FROM %Table:D12% D12
INNER JOIN %Table:DCF% DCF
ON DCF.DCF_FILIAL = %xFilial:DCF%
AND DCF.DCF_ID = D12.D12_IDDCF
AND DCF.%NotDel%
INNER JOIN %Table:DC5% DC5
ON DC5.DC5_FILIAL = %xFilial:DC5%
AND DC5.DC5_SERVIC = DCF.DCF_SERVIC
AND DC5.DC5_OPERAC = '8'
AND DC5.%NotDel%
WHERE D12_FILIAL = %xFilial:D12%
AND D12.R_E_C_N_O_ = %Exp:aRecD12%
AND D12.%NotDel%

EndSql

If (cAliasQry)->(!Eof())
         WmsMessage("Fim Rotina Transferência","AVISO")
EndIf

(cAliasQry)→(dbCloseArea())

Return

------