DT PE WMSXFEXS - Após a execução automática da ordem de serviço WMS

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 execução automática da geração de uma ou mais Ordens de Serviço WMS.

03. LOCALIZAÇÃO

Localizado na função que efetua a execução de serviços WMS de forma automática.

04. PARÂMETROS

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.

05. RETORNO

Não se aplica.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#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())