CE PLUS - Nota 007548
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 07/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:15:13
Descrição da Nota: AO ENTRAR NA DI, CALCULA UM VALOR DE ICMS, AO DAR REFRESH, MUDA VALOR.
Sintoma
Ao entrar na DI, calcula um valor de ICMS, ao dar refresh, muda valor.
Solução
Ajustar alteração de quebra de adição.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07548 Data: 07/11/2008 Hora: 14:19:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07548
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00072
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02413 - 00001 - 6.0 - 00025 - VALORES DE IMPOSTOS AO CARREGAR DI ESTÃO ZERADOS. APÓS REFRESH FI
----------------------------------------------------------------------------------------------------
AO ENTRAR NA DI, CALCULA UM VALOR DE ICMS, AO DAR REFRESH, MUDA VALOR.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - ICMS - REFRESH
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
MOVE-CORRESPONDING /pws/zycie003 TO itab_it.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
itab_it-waersbem = v_waersdif.
ELSE.
MOVE-CORRESPONDING /pws/zycie003 TO itab_it.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA_ITEM
READ TABLE itab_zycit100_temp WITH KEY
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc = 0 AND NOT itab_zycit100_temp-adicao IS INITIAL.
itab_it-adicao = itab_zycit100_temp-adicao .
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie003-qtd_itend IS INITIAL.
MOVE /pws/zycie003-qtd_itend TO itab_it-qtd_iten.
ENDIF.
MOVE t_pisbs TO itab_it-basepis.
MOVE t_cofinsbs TO itab_it-basecofins.
...
...
itab_it-adicao = itab_it_aux-adicao = v_adic.
MODIFY itab_it TRANSPORTING adicao
WHERE ebeln EQ itab_it_aux-ebeln
AND ebelp EQ itab_it_aux-ebelp.
* >> Início da inclusão: FORM ADIC_LIST
MODIFY itab_it_aux INDEX v_tabix TRANSPORTING adicao.
* << Fim da inclusão
* >> Início da exclusão: FORM ADIC_LIST
MODIFY itab_it_aux INDEX sy-tabix TRANSPORTING adicao.
* << Fim da exclusão
it_adi-adicao = v_adic.
...
...
it_adi-valor = itab_it_aux-vlreal .
it_adi-nrseqd = itab_it_aux-nrseqd .
CONCATENATE /pws/zycie085-identify '-' it_adi-adicao
INTO it_adi-identify.
APPEND it_adi.
READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it_aux-nrseq
ebeln = itab_it_aux-ebeln
ebelp = itab_it_aux-ebelp.
IF sy-subrc = 0.
MOVE itab_it_aux-adicao TO itab_zycit100_temp-adicao.
* >> Início da exclusão: FORM ADIC_LIST
MODIFY itab_zycit100_temp INDEX v_tabix TRANSPORTING adicao.
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LIST
MODIFY itab_zycit100_temp TRANSPORTING adicao WHERE
nrseq = itab_it_aux-nrseq AND
ebeln = itab_it_aux-ebeln AND
ebelp = itab_it_aux-ebelp.
* << Fim da inclusão
ENDIF.
ENDLOOP.
SORT itab_it_aux BY adicao ebeln ebelp.
READ TABLE itab_it_aux INDEX 1.
v_adic = itab_it_aux-adicao.
CLEAR v_cont .
...