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:
|
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
------