Sintoma

Na criação de um processo de Admissão Temporária verificado que os cálculos dos impostos IPI e ICMS

estão incorretos. As suas bases de cálculo incluem em seu valor o valor do imposto proporcional e

não o integral para somente depois calcular o valor de acordo com o tempo de permanencia.

Solução

Não calcular proporcionalmente a Base de Cálculo.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 10034 Data: 05/04/2010 Hora: 11:36:35

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 10034

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00016

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

DESEMBARAÇO DI NÃO ESTA RESPEITANDO O PARÂMETRO TEMPO DE PERMANENCIA

----------------------------------------------------------------------------------------------------

Palavras Chave:

ENTREPOSTO - ADUANEIRO - DI - TEMPO - PERMANENCIA

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F05

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  ENDIF.

  s_wiireco = s_wiireco + t_iirec.

  s_wiicalc = s_wiicalc + a_iicalc.

  s_wiiredu = s_wiiredu + a_iiredu.

  s_wiidevi = s_wiidevi + a_iidevi.

  itab_it-baseii       = t_iibas.

  itab_it-ii_calculado = a_iicalc.

  itab_it-ii_reduzido  = a_iiredu.

  itab_it-ii_devido    = a_iidevi.

  itab_it-ii_recolher  = t_iirec .

* >> Início da inclusão: FORM LOAD_III

  READ TABLE itab_zycit374 WITH KEY

         nrseq = itab_it-nrseq

         ebeln = itab_it-ebeln

         ebelp = itab_it-ebelp.

  IF sy-subrc EQ 0 AND

    ( itab_zycit001-regime EQ '05' OR

    itab_zycit001-regime EQ '12' ) AND

    NOT itab_zycit374-tp_perman IS INITIAL.

    itab_it-ii_calculado = a_iicalc *

    itab_zycit374-tp_perman.

    itab_it-ii_devido = a_iicalc *

    itab_zycit374-tp_perman.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM load_iipi USING p_tipo.

  DATA: v_casasd  TYPE /pws/zycit036-vlreal.

  IF /pws/zycit062-arbase EQ 'X'.

    IF '56' CA itab_it-codregtri .

      v_casasd = itab_it-ii_calculado.

    ELSE.

      IF itab_zycit001-regime EQ '05' OR

         itab_zycit001-regime EQ '12'.

        v_casasd = v_iiadm.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

        a_adreco = a_adreco + ( itab_it-vlantid *

        itab_it-qtdeantid ).

      ENDIF.

    ENDLOOP.

    itab_zycit049-vlreal = itab_zycit049-vldp   = a_adreco .

    itab_zycit049-waers  = wa_zycbt007-waersb.

    MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vldp vlreal waers.

  ENDIF.

ENDFORM.

FORM calcula_admtemp.

* >> Início da inclusão: FORM CALCULA_ADMTEMP

  READ TABLE itab_zycit374 WITH KEY

         nrseq = itab_it-nrseq

         ebeln = itab_it-ebeln

         ebelp = itab_it-ebelp.

  IF sy-subrc EQ 0 AND

    ( itab_zycit001-regime EQ '05' OR

    itab_zycit001-regime EQ '12' ) AND

    NOT itab_zycit374-tp_perman IS INITIAL.

    CLEAR: v_iiadm, v_ipiadm.

    v_vliirec  = v_vliirec * itab_zycit374-tp_perman.

    v_vlipirec = v_vlipirec * itab_zycit374-tp_perman.

    v_vlcofrec = v_vlcofrec * itab_zycit374-tp_perman.

    v_vlpisrec = v_vlpisrec * itab_zycit374-tp_perman.

  ENDIF.

* << Fim da inclusão

  t_icmsbspro =  t_icmsbs_d2 = t_icmsbs = ( v_ivadud +   v_iiadm +

     v_ipiadm +  t_ivdesp  + v_pisadm + v_cofadm ) .

  t_icmsx = (  1 - v_advicms )  .

  t_icmsbs = ( t_icmsbs / t_icmsx ).

  IF /pws/zycit062-susp_nf EQ 'S' .

    IF '56' CA /pws/zycie100a-codregtri .

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - v_iiadm.

    ENDIF.

    IF '56' CA /pws/zycie100a-codregtriipi .

...