DT PE WMSACEXN - Manipulação do parâmetro MV_WMSACEX - indicando se o serviço de expedição deve aglutinar

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:	WMSA150 - Execução de Serviços
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite substituir o parâmetro MV_WMSACEX, para determinar se a ordem de serviço de expedição será ou não aglutinada em uma carga, sendo utilizado durante a execução do serviço.

IMPORTANTE!

Este Ponto de Entrada está disponível somente para WMS com controle de estoque exclusivo.

03. LOCALIZAÇÃO

Localizado no processamento da rotina WMSA150 (Execução de Serviços).

04. PARÂMETROS

Nome	Tipo	Descrição
CIdDcf	Caractere	Código do ID da execução do serviço.

05. RETORNO

Nome	Tipo	Descrição
cWMSACEX	Caractere	Valor que indicará se aglutina ou não, substituindo neste processamento o valor do parâmetro MV_WMSACEX.

06. VERSÕES

Protheus 12.1.27.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

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

User Function WMSACEXN()
Local cIdDcf := paramixb[1]
Local cRetPe := SuperGetMv("MV_WMSACEX",.F.,"0")
Local cAliasQry := ""

cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry
SELECT DCF.DCF_CLIFOR,
DCF.dcf_docto
FROM %Table:DCF% DCF
WHERE DCF.DCF_FILIAL = %xFilial:DCF%
AND DCF.DCF_ID = %Exp:cIdDcf%
AND DCF.%NotDel%
EndSql

If (cAliasQry)->(!Eof()) .AND. (cAliasQry)->DCF_CLIFOR = '000001'
cRetPe := '1' //permite aglutinar
Else
cRetPe := '0' //não permite aglutinar
Endif
(cAliasQry)→(dbCloseArea())

Return cRetPe