| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | SIGAWMS - Gestão de Armazenagem |
| Função: | - |
| País: | Todos Países |
| Ticket: | - |
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
Este Ponto de Entrada permite executar um processo adicional, logo após a finalização de uma movimentação de estoque WMS.
Localizado ao final da função responsável pela movimentação de estoque WMS.
Este Ponto de Entrada recebe como parâmetro o R_E_C_N_O_ da tabela D12.
Não se aplica.
12.1.17 ou superiores.
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
#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
|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|