01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:SIGAOMS - Gestão de Distribuição
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 parcial de pedidos utilizado para integração com TOL.

O conteúdo da quantidade é gravado nas tags ord3:quantity e ord3:quantityInShipmentUnits.


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

03. LOCALIZAÇÃO

Localizado no programa 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 intergraçã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
    Local cSeqInt   As Character
    Local cPedido   As Character
    Local cItem     As Character
    Local cProduto  As Character
    Local cQuebraId As Character
    Local nQtdAlt   As Numeric
    Local aAreaCB8  As Array
    Local aAreaDK3  As Array
    Local oModel    As Object
    cSeqInt     := PARAMIXB[1]
    cPedido     := SC5->C5_NUM
    cItem       := PARAMIXB[2]
    cProduto    := PARAMIXB[3]
    cQuebraId   := PARAMIXB[4]
    nQtdAlt     := PARAMIXB[5]
    oModel      := FWModelActive()
    
    If FwIsInCallStack('U_FAT005') .And. FwIsInCallStack('OMSXADDSC5')
        
        aAreaCB8  := CB8->(GetArea())
        aAreaDK3  := DK3->(GetArea())

        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())

        RestArea(aAreaCB8)
        RestArea(aAreaDK3)        

    EndIf

Return nQtdAlt




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>