CE PLUS - Nota 007699
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:00:02
Descrição da Nota: DI - CÁLCULO DA TAXA DO SISCOMEX NA BASE - PIS E COFINS ISENTO NA BASE
Sintoma
Sistema está fazendo o rateio errado da taxa do siscomex na base de ICMS e acrescentando o valor do
imposto isento na base
Solução
Foi alterada a regra de cálculo na adição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07699 Data: 03/12/2008 Hora: 10:48:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07699
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07134 - 00001 - 7.0 - 00006 - NA DI NÃO ESTA PREENCHENDO CORRETAMENTE A MEMÓRIA DE CALCULO
07268 - 00002 - 7.0 - 00006 - FALHA AO CARREGAR MEMÓRIA DE CALCULO NA DI
07684 - 00003 - 7.0 - 00007 - QUANDO O PIS E COFINS ESTÃO SUSPENSOS, BASE DO ICMS FICA INCORRET
----------------------------------------------------------------------------------------------------
DI - CÁLCULO DA TAXA DO SISCOMEX NA BASE - PIS E COFINS ISENTO NA BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - CÁLCULO DA TAXA DO SISCOMEX NA BASE - PIS E COFINS ISENTO NA BASE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
IF NOT itab_it-baseantid IS INITIAL.
t_ivdesp = t_ivdesp + ( itab_it-baseantid *
( itab_it-antidrate / 100 ) ) .
ELSEIF NOT itab_it-qtdeantid IS INITIAL.
t_ivdesp = t_ivdesp + ( itab_it-vlantid *
itab_it-qtdeantid ).
ENDIF.
CLEAR: v_nr_itens, v_desp. CLEAR: itab_zycit100_temp.
REFRESH itab_zycit100_temp.
MOVE itab_it[] TO itab_zycit100_temp[].
* >> Início da inclusão: FORM LOAD_IICMS
IF itab_it-adicao IS INITIAL AND NOT /pws/zycit000-flag_txsisc IS
INITIAL.
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
...
...
ELSE.
v_vliirec = t_iirec.
ENDIF.
IF '56' CA /pws/zycie100a-codregtriipi.
v_vlipirec = a_ipidevi.
ELSE.
v_vlipirec = t_ipirec.
ENDIF.
CLEAR: v_vlpisrec , v_vlcofrec.
IF '56' CA /pws/zycie100a-codregtripiscofi OR
* >> Início da exclusão: FORM LOAD_IICMS
( itab_zycit001-regime NE '05' OR
itab_zycit001-regime NE '12' ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
( itab_zycit001-regime eq '05' OR
itab_zycit001-regime eq '12' ).
* << Fim da inclusão
v_vlpisrec = a_pisdevi.
v_vlcofrec = a_cofdevi.
else.
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
ENDIF.
e_subrc = 0.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI007'.
...