Sintoma

Esta levando valor a recolher de ICMS na nota fiscal para um embarque de admissão temporia.

Erro era na DSI.

Solução

Ajustada o calculo do ICMS na DSI quando o embarque é de admissão temporaria.

Informações Complementares

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

Nota Número 02693 Data: 14/12/2006 Hora: 08:42:47

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

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

Nota Número              : 02693

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00144

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

Referência às notas relacionadas:

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

02340  - 00001 - 6.0    - 00025  - TRATAR SUSPENSÃO DE REGIME TRIBUTÁRIO NAS NOTAS FISCAIS.

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

CALCULO DOS IMPOSTOS NA DSI E NA NOTA FISCAL PARA ADMISSÃO TEMPORARIA

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

Palavras Chave:

IMPOSTOS - CALCULO - DSI - NOTA - FISCAL - ADMISSÃO - TEMPORARIA

/PWS/SAPMZYCI016 - /PWS/SAPMZYCI058

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

    ENDIF.

    IF itab_zycit100-codregtripiscofi EQ '5'.

      itab_zycit100-baseicms =

      itab_zycit100-baseicms -

      itab_zycit100-vlpis - itab_zycit100-vlcofins.

    ENDIF.

    IF itab_zycit100-baseicms LT 0.

      CLEAR itab_zycit100-baseicms.

    ENDIF.

  ENDIF.

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

  IF  ( /pws/zycit001-tpdecl = 'DSI' AND

       /pws/zycit001-regime = '09' ).

    itab_zycit100-baseicms =

    itab_zycit100-baseicms - itab_zycit100-vlii -

       itab_zycit100-vlipi - itab_zycit100-vlpis -

       itab_zycit100-vlcofins.

    IF itab_zycit100-baseicms LT 0.

      CLEAR itab_zycit100-baseicms.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  CASE itab_zycit033-tribicms.

    WHEN 1.

      PERFORM verifica_montante.

      v_montante1 = itab_zycit100-baseicms.

      v_base      = v_montante1.

      v_excbas    = ( v_montante1 / v_basred * 100 ) - v_base.

      IF itab_zycit100-icms_dif = 'X'.

        IF /pws/zycit062-flag_icms = 'X'.

          DATA: v_base2   LIKE j_1bdytax-base.

          CLEAR v_base2.

...

...

    CLEAR it_zycee007-taxval2.

  ENDIF.

  it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.

  CASE itab_zycit033-tribipi.

    WHEN 1.

      PERFORM verifica_montante.

      v_montante1 = itab_zycit100-baseipi.

      it_zycee007-base2   = v_montante1.

      IF itab_zycit100-codregtri = '5'.

        it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.

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

      ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND

         /pws/zycit001-regime = '09' ).

        it_zycee007-base2 = it_zycee007-base2 - itab_zycit100-vlii.

* << Fim da inclusão

      ENDIF.

      IF /pws/zycit001-meioemba = 'PS'.

        it_zycee007-base2 = it_zycee007-base2 +

          it_zycee007-taxval.

      ENDIF.

    WHEN 2.

      PERFORM verifica_montante.

      v_montante1 = itab_zycit100-baseipi.

      it_zycee007-p_excbas = v_montante1.

      IF itab_zycit100-codregtri = '5'.

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

        it_zycee007-p_excbas = it_zycee007-p_excbas -

               itab_zycit100-vlii.

      ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND

         /pws/zycit001-regime = '09' ).

* << Fim da inclusão

        it_zycee007-p_excbas = it_zycee007-p_excbas -

               itab_zycit100-vlii.

      ENDIF.

      CLEAR it_zycee007-taxval2.

      IF /pws/zycit001-meioemba = 'PS'.

        it_zycee007-p_excbas = it_zycee007-p_excbas +

          it_zycee007-taxval.

      ENDIF.

    WHEN 3.

      PERFORM verifica_montante.

      v_montante1 = itab_zycit100-baseipi.

      it_zycee007-othbas2  = v_montante1.

      IF itab_zycit100-codregtri = '5'.

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

        it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.

      ELSEIF ( /pws/zycit001-tpdecl = 'DSI' AND

         /pws/zycit001-regime = '09' ).

* << Fim da inclusão

        it_zycee007-othbas2 = it_zycee007-othbas2 - itab_zycit100-vlii.

      ENDIF.

      IF /pws/zycit001-meioemba = 'PS'.

        it_zycee007-othbas2 = it_zycee007-othbas2 +

          it_zycee007-taxval.

      ENDIF.

  ENDCASE.

  DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.

  SELECT * FROM /pws/zycit398

   INTO TABLE itab_zycit398

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

    IF NOT /pws/zycie003-nrseqd IS INITIAL.

      CLEAR:  t_icms.

      screen-input = '0'.

    ELSEIF /pws/zycie003-nrseqd IS INITIAL.

      s_wicreco = s_wicdevi.

    ENDIF.

  ELSEIF p_tipo = 'A'.

    a_icdevi  = a_icdevi  + t_icms.

    a_icreco  = a_icdevi.

  ENDIF.

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

  IF /pws/zycie001-regime EQ '09'.

    IF NOT v_icms_especial IS INITIAL.

      t_icmsbs = t_icmsbs - t_icms.

    ENDIF.

    CLEAR: t_icms.

  ENDIF.

* << Fim da inclusão

  itab_it-baseicms = t_icmsbs.

  itab_it-vlicms   = t_icms.

  itab_it-vlpis    = t_pis   .

  itab_it-vlcofins = t_cofins.

  itab_it-pis_calc = t_pis_calc.

  itab_it-pis_dev = t_pis_dev.

  itab_it-cofi_calc = t_cof_calc.

  itab_it-cofi_dev = t_cof_dev.

  t_pisbs = itab_it-basepis.

  t_cofinsbs = itab_it-basecofins.

...