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 execução automática da geração de uma ou mais Ordens de Serviço WMS.
Localizado na função que efetua a execução de serviços WMS de forma automática.
Este Ponto de Entrada recebe como parâmetro um array com os códigos DCF_ID executados, referentes a tabela de Ordem de Serviço DCF.
No array pode ser retornada uma ou mais linhas, de acordo com a parametrização efetuada no Sistema e se utilizou ou não aglutinação de Ordens de Serviço.
Não se aplica.
Protheus 12.1.17 ou superiores.
Não se aplica.
------
#INCLUDE "PROTHEUS.CH"
User Function WMSXFEXS()
Local aLibDCF := PARAMIXB[1] //ID CDF
Local nX :=0
Local cAliasQry := Nil
For nX := 1 To Len(aLibDCF)
cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry
SELECT DCF.R_E_C_N_O_ RECNODCF,
DCF.DCF_ORIGEM
FROM %Table:DCF% DCF
WHERE DCF.DCF_FILIAL = %xFilial:DCF%
AND DCF.DCF_ID = %Exp:aLibDCF[nX]%
AND DCF.DCF_ORIGEM = 'SC9'
AND DCF.%NotDel%
EndSql
If (cAliasQry)->(!Eof())
DCF→ (dbGoTo((cAliasQry)->RECNODCF))
RecLock("DCF",.F.)
DCF→ DCF_CODFUN := 'XXXXXX'
DCF→ (MsUnLock())
EndIf
(cAliasQry)→(dbCloseArea())
Next
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> |