CE PLUS - Nota 008624
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/07/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:04:37
Descrição da Nota: ERRO EM CALCULO DE ADMISSÃO TEMPORÁRIO REGIME 12.
Sintoma
Erro em calculo de admissão temporário regime 12.
Solução
Calcular valor a recolher de II e IPI quando for regime 12 de Admissão temporária.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08624 Data: 02/07/2009 Hora: 11:30:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08624
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00103
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08356 - 00001 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
08569 - 00002 - 7.0 - 00010 - AO CRIAR DI REGIME 12, NÃO DEVERÁ FECHAR CAMPOS COM SUSPENSÃO.
----------------------------------------------------------------------------------------------------
ERRO EM CALCULO DE ADMISSÃO TEMPORÁRIO REGIME 12.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - CÁLCULO - ADMISSÃO TEMPORÁRIO - REGIME 12
VALOR RECOLHER - II - IPI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
itab_it-vlii = t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF itab_zycit001-regime EQ '05' .
* << Fim da inclusão
CLEAR: t_iirec.
ENDIF.
...
...
* >> Início da exclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '05' .
* << Fim da inclusão
CLEAR t_ipirec.
ENDIF.
itab_it-baseipi = t_ipibas.
itab_it-ipi_devido = a_ipidevi.
itab_it-ipi_recolher = t_ipirec .
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
FORM mp_nova.
* >> Início da inclusão: FORM MP_NOVA
DATA: v_calcpc_ant TYPE /pws/zycit100-basepis.
* << Fim da inclusão
...
...
IF ( NOT v_pisred IS INITIAL ) OR ( NOT v_cofred IS INITIAL ) .
v_advpis = v_pisred.
v_advcof = v_cofred.
ENDIF.
* >> Início da exclusão: FORM MP_NOVA
DATA: v_calcpc_ant TYPE /pws/zycit100-basepis.
* << Fim da exclusão
v_calcpc_ant = v_calcpc.
* >> Início da inclusão: FORM MP_NOVA
v_divisor = ( ( 1 - v_advpis - v_advcof ) *
( 1 - v_advicms ) ).
IF v_divisor GT 0 .
* << Fim da inclusão
v_calcpc = ( t_ivadu * ( ( 1 + v_advicms * ( v_advii + v_advipi *
( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *
( 1 - v_advicms ) ) ) ).
* >> Início da inclusão: FORM MP_NOVA
ENDIF.
* << Fim da inclusão
IF v_calcpc LT '0'.
CLEAR : /pws/zycie100a-basredpis, /pws/zycie100a-basredcof,
v_calcpc.
MESSAGE s015 WITH text-239 text-240.
itab_it-basecofins = itab_it-basepis =
/pws/zycie100a-basecofins = /pws/zycie100a-basepis = v_calcpc_ant.
ELSE.
...
...
ENDCASE.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05'.
* << Fim da inclusão
CLEAR: t_pis, t_cofins.
* >> Início da inclusão: FORM CALC_PISCOFINS
ELSEIF itab_zycit001-regime EQ '12'.
t_pis = a_pisdevi .
t_cofins = a_cofdevi .
* << Fim da inclusão
ENDIF.
itab_it-pis_calculado = a_piscalc.
itab_it-pis_reduzido = a_pisredu.
itab_it-pis_devido = a_pisdevi.
...