DT PE OMSCPLBE - Regra para estornar item que possui integração com o TOL

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	TOTVS OMS - Gestão de Distribuição (SIGAOMS)
Função:	OMSXCPLB - Envio do Pedido Para o TOL
País:	Todos Países
Ticket:	15934137
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGWMSMSP-14869

02. DESCRIÇÃO

Este Ponto de Entrada permite gerar uma regra customizada, para possibilitar o estorno do item do Pedido de Venda integrado com o TOL.

03. LOCALIZAÇÃO

Localizado na função OMSCPLVlPd, quando a ação realizada for estorno.

04. PARÂMETROS

Nome	Tipo	Descrição
cPedido	Caractere	Código do Pedido de Venda
cItem	Caractere	Código do Item
cSequen	Caractere	Sequencia de liberação do Pedido de Venda
cProduto	Caractere	Código do Produto

05. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Retorno que indica se é possível efetuar o estorno do item:

.T. = Sim
.F. = Não

06. VERSÕES

Protheus 12.1.33 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "Protheus.ch"
#INCLUDE "tbiconn.ch"

User Function OMSCPLBE()
Local cPedido := PARAMIXB[1]
Local cItem := PARAMIXB[2]
Local cSequen := PARAMIXB[3]
Local cProduto := PARAMIXB[4]
Local cQuery := ""
Local lRet := .F.
Local cAliasSC9 := GetNextAlias()

cQuery := " SELECT C9_PEDIDO"
cQuery += " FROM "+RetSqlName('SC9')
cQuery += " WHERE C9_FILIAL = '"+xFilial('SC9')+"'"
cQuery += " AND C9_PEDIDO = '"+cPedido+"'"
cQuery += " AND C9_ITEM = '"+cItem+"'"
cQuery += " AND C9_PRODUTO = '"+cProduto+"'"
cQuery += " AND D_E_L_E_T_ = ' '"
cQuery := ChangeQuery(cQuery)
dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery), cAliasSC9, .F., .T.)
If (cAliasSC9)->(!EoF())
lRet := .T.
EndIf
(cAliasSC9)->(DbCloseArea())
Return lRet