Árvore de páginas


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:OMSXCPL6 - Montagem de Carga
País:Todos Países
Ticket:14104296
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-14099


02. DESCRIÇÃO

Este Ponto de Entrada permite manipular a quantidade do item do Pedido, gravado no XML de estorno de Pedidos utilizado para integração com TOL.

O conteúdo da quantidade é utilizado para determinar se o Pedido será estornado parcialmente ou totalmente.

Sintaxe
OMSCPLQAT - Alteração da quantidade do item no estorno de pedidos integrados com TOL ( [ PARAMIXB ] ) → nRet

03. LOCALIZAÇÃO

Localizado na rotina de Envio de Pedidos de Venda (OMSXCPL6B), na função de determinação da quantidade do item do Pedido a ser estornado.

04. PARÂMETROS

NomeTipoDescrição
PARAMIXBArray of Record

Onde:

1º item contém a sequência de integração com TOL (DK3_SEQUEN).
2º item contém a sequência do item do Pedido (C6_ITEM).
3º item contém o código do produto (C6_PRODUTO).
4º item contém o indicador de quebra do envio do item do Pedido (DK3_QUEBID).

05. RETORNO

NomeTipoDescrição
nRetNumérico

Quantidade do item do pedido.

06. VERSÕES

Todas as versões.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

---

User Function OMSCPLQAT() As Numeric
    cSeqInt     := PARAMIXB[1]
    cItem       := PARAMIXB[2]
    cProduto    := PARAMIXB[3]
    cQuebraId   := PARAMIXB[4]
    nQtdAlt     := PARAMIXB[5]
       
        BeginSQL Alias "TMPDK3"
            SELECT DK3.R_E_C_N_O_ AS DK3RECNO
            FROM %Table:DK3% DK3
            WHERE DK3.%NotDel%   
            AND DK3.DK3_FILIAL  = %xFilial:DK3%
            AND DK3.DK3_SEQUEN  = %Exp:cSeqInt% 
            AND DK3.DK3_PEDIDO  = %Exp:cPedido%       
            AND DK3.DK3_ITEMPE  = %Exp:cItem%
            AND DK3.DK3_PRODUT  = %Exp:cProduto%            
        EndSQL

        If !TMPDK3->(Eof())   
            DK3->(DbGoTo(TMPDK3->DK3RECNO))
            If DK3->DK3_STATUS == '1'
                nQtdAlt := DK3->Dk3_QTDINT
            EndIf
        EndIf

        TMPDK3->(DbCloseArea())

    EndIf

Return nQtdAlt

---