DT PE W320DFCO - Executado após a finalização da conferência do recebimento

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

Este Ponto de Entrada permite executar a nova rotina na finalização da conferência de recebimento.

Localizado ao final da rotina de finalização da rotina WMSA320 (Conferência de Recebimento).

Nome	Tipo	Descrição
cEmbarque	Caractere	Número do recebimento gerado na rotina de Conferência (WMS320).

Nome	Tipo	Descrição
lRet	Logico	Deverá retornar uma variável lógica .T. ou .F., podendo ou não concluir a finalização da conferência de recebimento.

Protheus 12.1.23 ou superiores.

Não se aplica.

------

#INCLUDE "PROTHEUS.CH"

#INCLUDE "TOTVS.CH"
User Function W320DFCO()
Local cEmbarque := paramixb[1]
Local cAliasQry := ""
Local lRet := .T.

cAliasQry := GetNextAlias()
BeginSql Alias cAliasQry

SELECT DCY_QTORIG, DCY_QTCONF FROM %Table:DCY% DCY
WHERE DCY.DCY_FILIAL = %xFilial:DCY% AND DCY.DCY_EMBARQ = %Exp:cEmbarque%
AND DCY.%NotDel%
EndSql

If (cAliasQry)→ (!Eof())
IF (cAliasQry)→ DCY_QTORIG <> (cAliasQry)→ DCY_QTCONF
lRet := .F. END IF (cAliasQry)→ (dbSkip())
EndIf

(cAliasQry)→(dbCloseArea())

Return lRet

------