01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAOMS - Gestão de Distribuição
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 a criação de uma regra customizada para permitir 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  CaractereCódigo do Pedido de Venda.
cItem    CaractereCódigo do item.
cProduto CaractereCódigo do Produto.

05. RETORNO

Nome

Tipo

Descrição

lRetLógicoRetorno 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 cProduto := PARAMIXB[3]
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

------