CE PLUS - Nota 008934
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 01/09/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:05:25
Descrição da Nota: PREENCHER QUANTIDADE DRAWBACK
Sintoma
A quantidade do produto nas informações de drawback não foi preenchida no item da LI.
Solução
Corrigido calculo da quantidade do produto nas informações de drawback para tratamento de LI com
itens com peso liquido em branco.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08934 Data: 01/09/2009 Hora: 16:25:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08934
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07831 - 00001 - 7.0 - 00008 - CALCULO DA QUANTIDADE ESTATISTICA
----------------------------------------------------------------------------------------------------
PREENCHER QUANTIDADE DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
QUANTIDADE - DRAWBACK - LI - PESO - BRANCO - PEDIDO
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
ENDIF.
MESSAGE s015 WITH text-441.
LOOP AT it_zycit079.
READ TABLE itab_zycit376 WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp
nrseqd = v_nrseqd_v.
MOVE:
itab_zycit376-nritem+2 TO it_zycit079-item_drawback,
itab_zycit376-nritem TO it_zycit079-nritem_db.
IF v_qtdtot > 0.
* >> Início da exclusão: FORM VINCULA_ATO
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULA_ATO
IF /pws/zycie078-zum EQ '10' AND NOT v_peso IS INITIAL.
* << Fim da inclusão
it_zycit079-qtd_drawback =
( it_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM VINCULA_ATO
ENDIF.
* << Fim da exclusão
ELSE.
it_zycit079-qtd_drawback =
( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...
...
READ TABLE it_ekpo WITH KEY ebeln = itab_zycit079-ebeln
ebelp = itab_zycit079-ebelp.
v_vl_temp = itab_zycit079-qtd_iten * itab_zycit079-netpr.
PERFORM converter_moeda USING v_vl_temp
itab_zycit079-waers
/pws/zycbt007-waersa
it_ekpo-aedat
CHANGING v_vl_temp2 .
itab_zycit079-netpr = v_vl_temp2 .
IF v_qtdtot > 0 .
* >> Início da exclusão: FORM VINCULAR_ATOC
IF /pws/zycie078-zum EQ '10'.
IF NOT v_peso IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULAR_ATOC
IF /pws/zycie078-zum EQ '10' AND NOT v_peso IS INITIAL.
* << Fim da inclusão
itab_zycit079-qtd_iten =
( itab_zycit079-ntgew * /pws/zycie078-qtdest ) / v_peso.
* >> Início da exclusão: FORM VINCULAR_ATOC
ENDIF.
* << Fim da exclusão
ELSE.
itab_zycit079-qtd_iten =
( itab_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
v_peso = v_peso + it_zycit079-ntgew.
v_qtdtot = v_qtdtot + it_zycit079-qtd_iten.
IF NOT it_ekpo-matnr IS INITIAL.
PERFORM converte_um_ncm USING it_ekpo-matnr
CHANGING it_zycit079-meins
it_zycit079-qtd_iten.
ENDIF.
v_qtdest = v_qtdest +
it_zycit079-qtd_iten.
ENDLOOP.
* >> Início da inclusão: MODULE LOAD_DATA
LOOP AT it_zycit079 WHERE ntgew EQ space.
CLEAR: v_peso.
EXIT.
ENDLOOP.
* << Fim da inclusão
IF it_079_del[] IS INITIAL.
IF /pws/zycie078-qtdest IS INITIAL.
/pws/zycie078-qtdest = v_qtdest.
ELSE.
IF NOT itab_itens[] IS INITIAL.
IF v_novo_item EQ 'X'.
IF NOT it_zycit079-qtd_iten IS INITIAL.
/pws/zycie078-qtdest = /pws/zycie078-qtdest +
it_zycit079-qtd_iten.
DELETE itab_itens WHERE ebeln EQ it_zycit079-ebeln
...