Sintoma

A taxa a que se refere a legislação utilizada para cálculo no sistema da PWS é devida no Registro da

Declaração de Importação (DI) sendo omissa enquanto à dispensa ou exigibilidade na Declaração

Simplificada de Importação (DSI).

Solução

Atualizada DSI para retirar o cálculo automático da taxa siscomex

Informações Complementares

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

Nota Número 05291 Data: 22/11/2007 Hora: 17:25:01

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

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

Nota Número              : 05291

Categoria                : Consultoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00022

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02104  - 00001 - 6.0    - 00024  - EM DSI COURIER O CAMPO DE PREENCHIMENTO DO SEGURO ESTÁ ZERADO E F

02681  - 00002 - 6.0    - 00026  - TRATAMENTO PARA TRAZER A TAXA DE SISCOMEX PARA A DSI, PASTA DESPE

02718  - 00003 - 6.0    - 00025  - DSI VALORES SE MODIFICAM TODA ATUALIZAÇÃO

04713  - 00004 - 7.0    - 00002  - MULTIPLAS MOEDAS, RATEIO DE DESPESAS, REGIME TRIBUTÁRIO NA DSI

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

NÃO HÁ TAXA SISCOMEX NA DSI.

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

Palavras Chave:

TAXA SISCOMEX - DSI - CÁLCULO

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

                CHANGING /pws/zycie085-ukursfre,

             load_frvl.

  ENDIF.

  IF NOT /pws/zycie085-waersseg IS INITIAL.

    PERFORM: taxa_converte USING /pws/zycie085-waersseg

                /pws/zycie085-dttax

                CHANGING /pws/zycie085-ukursseg,

             load_sevl.

  ENDIF.

  v_ipa = 1.

* >> Início da exclusão: FORM REFRESH_ALL

  PERFORM fill_taxasiscomex USING v_ipa.

* << Fim da exclusão

  /pws/zycie085-waersfob = /pws/zycie003-waers.

  /pws/zycie085-vlfob    = v_tval2.

  IF NOT /pws/zycie085-waersfob EQ  /pws/zycbt007-waersb.

    IF NOT /pws/zycie085-ukursfob IS INITIAL.

      /pws/zycie085-vlfobr   = /pws/zycie085-vlfob /

         /pws/zycie085-ukursfob.

    ELSE.

      MESSAGE i015 WITH text-221.

      EXIT.

    ENDIF.

...

...

  IF sy-subrc EQ 0.

    SELECT SINGLE petroleo FROM /pws/zycit120 INTO v_petroleo WHERE

           modalidade = itab_zycit001-modalidade.

    IF sy-subrc EQ 0.

      IF v_petroleo IS INITIAL.

        PERFORM: fill_receitas_auto USING '0086' t_vlii.

      ELSE.

        PERFORM: fill_receitas_auto USING '1962' t_vlii.

      ENDIF.

      PERFORM: fill_receitas_auto USING '1038' t_vlipi.

* >> Início da exclusão: FORM FILL_RECEITAS

      PERFORM: fill_receitas_auto USING '7811' s_wsisco.

* << Fim da exclusão

      PERFORM: fill_receitas_auto USING '5602' t_vlpis.

      PERFORM: fill_receitas_auto USING '5629' t_vlcofins.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

     AND   lei = 'MP255'.

  IF sy-subrc NE 0.

    SELECT  * FROM /pws/zycit438 APPENDING TABLE itab_zycit438

       WHERE regio = ' '

       AND   lei = 'MP255'.

  ENDIF.

  CLEAR v_nova.

  IF /pws/zycie085-dtuserc IS INITIAL.

    /pws/zycie085-dtuserc = sy-datum.

  ENDIF.

* >> Início da exclusão: FORM LOAD_IICMS

  IF NOT /pws/zycit000-flag_txsisc IS INITIAL.

    v_sisco3 = /pws/zycit000-txsis_fix + /pws/zycit000-txsis_0_2 .

  ENDIF.

* << Fim da exclusão

  LOOP AT itab_zycit049 WHERE baseicms EQ 'X' AND NOT vlreal IS initial.

* >> Início da exclusão: FORM LOAD_IICMS

    IF /pws/zycit000-flag_txsisc IS INITIAL OR

       wa_it000-cod_sisc NE itab_zycit049-tpdesp.

* << Fim da exclusão

      IF itab_zycit049-divabs EQ 'X'.

        t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.

      ELSEIF itab_zycit049-peso EQ 'X'.

        t_ivdes2 = ( wa_it-ntgew / v_tntgew ) * itab_zycit049-vlreal.

      ELSEIF itab_zycit049-proporplan EQ 'X'.

...

...

                          itab_zycit003-qtd_iten

               / v_tot_real  ) * itab_zycit049-vlreal.

          ENDIF.

        ENDIF.

        IF p_tipo = 'I'.

          itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.

          MODIFY itab_zycit049 INDEX sy-tabix TRANSPORTING vldp_aux.

        ENDIF.

      ENDIF.

      t_ivdesp = t_ivdesp + t_ivdes2.

* >> Início da exclusão: FORM LOAD_IICMS

    ELSEIF NOT /pws/zycit000-flag_txsisc IS INITIAL .

      t_ivdes2 = ( 1 / v_ipt ) * v_sisco3.

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

  CLEAR: v_nr_itens, v_desp. CLEAR: itab_zycit100_temp.

  REFRESH itab_zycit100_temp.

  MOVE itab_it[] TO itab_zycit100_temp[].

  MOVE-CORRESPONDING itab_it TO /pws/zycie100a.

  v_advii   = ( /pws/zycie003-advalii / 100 ).

  v_advipi  = ( /pws/zycie003-advalipi / 100 ).

  v_advicms = ( /pws/zycie003-advalicms / 100 ).

  v_advpis  = ( itab_it-advalpis / 100 ).

  v_advcof  = ( itab_it-advalcofins / 100 ).

...

...

    v_vlipirec = t_ipirec.

  ENDIF.

  CLEAR: v_vlpisrec , v_vlcofrec.

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

    v_vlpisrec   = t_pis_calc.

    v_vlcofrec   = t_cof_calc.

  ELSE.

    v_vlpisrec   = t_pis   .

    v_vlcofrec   = t_cofins.

  ENDIF.

* >> Início da exclusão: FORM LOAD_IICMS

  IF NOT /pws/zycit000-flag_txsisc IS INITIAL.

    v_sisco3 = /pws/zycit000-txsis_fix + /pws/zycit000-txsis_0_2 .

  ENDIF.

  IF /pws/zycit000-flag_txsisc IS INITIAL.

* << Fim da exclusão

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

        t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

* >> Início da exclusão: FORM LOAD_IICMS

        ( /pws/zycie003-basred / 100 ).

  ELSE.

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

         v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec ) *

* << Fim da exclusão

             ( /pws/zycie003-basred / 100 ).

* >> Início da exclusão: FORM LOAD_IICMS

  ENDIF.

* << Fim da exclusão

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

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_iicalc.

    ENDIF.

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_ipidevi.

    ENDIF.

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

...