CE PLUS - Nota 005608
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/01/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:51:42
Descrição da Nota: CORREÇÃO DE CALCULO DA BASE DE II
Sintoma
Na base de II está levando o valor do SISCOMEX mesmo estando parametrizada para ir apenas para a
base de ICMS
Solução
Atualização do programa de DI para verificar se a taxa SISCOMEX é base de II ou de ICMS no momento
de compor os valores das Bases dos impostos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05608 Data: 11/01/2008 Hora: 07:03:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05608
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00029
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05477 - 00001 - 7.0 - 00003 - AJUSTADO RATEIO DO SEGURO PARA PROCESSOS CIF A GRANEL
----------------------------------------------------------------------------------------------------
CORREÇÃO DE CALCULO DA BASE DE II
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOMEX - TAXA - PARAMETRO - BASE - II
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
CLEAR: v_nr_itens, v_desp. CLEAR: itab_zycit100_temp.
REFRESH itab_zycit100_temp.
MOVE itab_it[] TO itab_zycit100_temp[].
IF itab_it-adicao IS INITIAL AND
NOT /pws/zycit000-flag_txsisc IS INITIAL.
READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc = 0.
PERFORM adic_list.
* >> Início da inclusão: FORM LOAD_ITAX
MOVE-CORRESPONDING itab_it TO /pws/zycie100a.
* << Fim da inclusão
ENDIF.
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
LOOP AT itab_zycit100_temp WHERE adicao = itab_it-adicao.
v_nr_itens = v_nr_itens + 1.
ENDLOOP.
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
v_pii = 'X'.
READ TABLE itab_zycit049 WITH KEY tpdesp = wa_it000-cod_sisc.
* >> Início da exclusão: FORM LOAD_ITAX
IF sy-subrc = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
IF sy-subrc = 0 AND
itab_zycit049-baseii = 'X' .
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LOAD_ITAX
ELSE.
CLEAR: v_sisco3, v_pii.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_nr_itens GT 1.
t_ivdesp = t_ivdesp + v_desp .
ELSE.
t_ivdesp = t_ivdesp + v_sisco3.
ENDIF.
CLEAR: v_sisco3.
IF /pws/zycie100a-dttaxbem IS INITIAL.
MOVE itab_it-dttaxbem TO /pws/zycie100a-dttaxbem.
...