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: | - |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
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
------