CE PLUS - Nota 002413
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 10/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:43:42
Descrição da Nota: VALORES DE IMPOSTOS AO CARREGAR DI ESTÃO ZERADOS. APÓS REFRESH FICA OK
Sintoma
Na DI, pasta Carga 3 ao darmos refresh e salvarmos os dados são atualizados, mas ao entrarmos e
sairmos da DI os valores da pasta são modificados.
Solução
atualizada tabelas antes dos cálculos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02413 Data: 10/11/2006 Hora: 10:54:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02413
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01846 - 00001 - 6.0 - 00024 - NA DI, QUANDO FLEGO ICMS DIFERIDO O PROGRAMA APAGA O FLEG.
02472 - 00002 - 6.0 - 00025 - PROGRAMA NÃO ACEITA ALTERAR REGIME TRIBUTÁRIO DOS IMPOSTOS NA DI.
----------------------------------------------------------------------------------------------------
VALORES DE IMPOSTOS AO CARREGAR DI ESTÃO ZERADOS. APÓS REFRESH FICA OK
----------------------------------------------------------------------------------------------------
Palavras Chave:
IMPOSTOS DI - PIS - COFINS - VALORES ZERADOS - ATUALIZAÇÃO DI
CARGA 3
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
load_seto,
load_tdo,
load_uti,
load_con,
load_para.
* >> Início da exclusão: FORM LOAD_INIT
IF v_dit = 'N'.
* << Fim da exclusão
SORT itab_it BY nrseq ebeln ebelp.
* >> Início da inclusão: FORM LOAD_INIT
MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,
itab_it TO /pws/zycie003 .
* << Fim da inclusão
PERFORM: load_typeview,
load_cana,
load_reg,
load_lfa,
load_blag,
...
...
load_agen,
calc_itab.
MOVE itab_it[] TO itab_ita[].
DESCRIBE TABLE itab_zycit116 LINES v_line.
PERFORM: fill_taxasiscomex USING v_line.
* >> Início da exclusão: FORM LOAD_INIT
ELSE.
PERFORM: load_nimp,
load_blid,
load_frvl,
load_sgvl,
load_cpfc,
load_seto,
load_coll,
calc_itab.
MOVE itab_it[] TO itab_ita[].
ENDIF.
* << Fim da exclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF sy-subrc = 0.
PERFORM adic_list.
ENDIF.
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
* >> Início da exclusão: FORM LOAD_IICMS
LOOP AT itab_zycit100_temp WHERE adicao = wa_it-adicao.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
LOOP AT itab_zycit100_temp WHERE adicao = itab_it-adicao.
* << Fim da inclusão
v_nr_itens = v_nr_itens + 1.
ENDLOOP.
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
READ TABLE itab_zycit049 WITH KEY tpdesp = wa_it000-cod_sisc.
IF sy-subrc = 0.
IF v_sisco3 IS INITIAL.
DESCRIBE TABLE itab_zycit116 LINES v_ipa.
PERFORM fill_taxasiscomex USING v_ipa.
ENDIF.
IF NOT v_sisco3 IS INITIAL AND NOT v_nr_itens IS INITIAL.
v_desp = ( v_sisco3 / v_nr_itens ).
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
move-corresponding itab_it to /pws/zycie100a.
* << Fim da inclusão
IF NOT /pws/zycie100a-reduzida IS INITIAL.
v_advii = ( /pws/zycie100a-reduzida / 100 ).
ELSE.
v_advii = ( /pws/zycie003-advalii / 100 ).
ENDIF.
...