CE PLUS - Nota 003106

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DSI

Data/Hora da Publicação: 15/02/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 14:56:47

Descrição da Nota: VALOR DE ICMS DA DSI ESTÁ MENOR QUE O TOTAL DA NOTA FISCAL

Sintoma

Valores da Base de ICMS na DSI quando o cenário é de suspensão estão indo errados para a Nota

Fiscal.

 

 

Solução

Atualização do programa de DSI para levar os valores corretos da base de icms.

 

Versões Tratadas

6.0

Pré-Requisitos

Produto:

Nota

Descrição

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

Nota 2362
DSI VALOR DO SISCOMEX ZERADO

Nota 2718
DSI VALORES SE MODIFICAM TODA ATUALIZAÇÃO

Informações Complementares

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

Nota Número 03106 Data: 15/02/2007 Hora: 16:49:09

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

 

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

Nota Número              : 03106

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00151

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

Referência às notas relacionadas:

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

 

02362  - 00001 - 6.0    - 00025  - DSI VALOR DO SISCOMEX ZERADO

02693  - 00002 - 6.0    - 00026  - CALCULO DOS IMPOSTOS NA DSI E NA NOTA FISCAL PARA ADMISSÃO TEMPOR

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

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

VALOR DE ICMS DA DSI ESTÁ MENOR QUE O TOTAL DA NOTA FISCAL

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

Palavras Chave:

VALOR - BASE DE ICMS - MENOR QUE TOTAL DA NOTA - DSI

 

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F03

REPS /PWS/MZYCI058F04

REPS /PWS/MZYCI058X01

 

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

 

...

 

FORM load_iii USING p_tipo.

  IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.

    /pws/zycie003-advalii = '60'.

    CLEAR: /pws/zycie003-advalipi.

  ENDIF.

  t_iibas = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.

  a_iicalc  = ( ( /pws/zycie003-advalii  / 100 ) * t_iibas ).

  CASE /pws/zycie100a-codregtri.

    WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.

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

      IF /pws/zycie085-ntimp  NE '09' AND /pws/zycie085-ntimp  NE '11'.

* << Fim da exclusão

        IF NOT a_iiredu IS INITIAL.

          t_iirec = a_iiredu.

        ELSE.

          IF /pws/zycie100a-acordo EQ '2'.

            t_iirec = a_iiredu = a_iiacor.

          ELSE.

            t_iirec = a_iicalc.

          ENDIF.

        ENDIF.

        IF NOT /pws/zycie100a-percreduz IS INITIAL.

          t_iirec = t_iirec *

                    ( ( 100 - /pws/zycie100a-percreduz ) / 100 ).

          a_iidevi = a_iicalc.

        ELSE.

          a_iidevi = t_iirec.

        ENDIF.

        itab_it-vlii   = t_iirec.

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

          CLEAR: t_iirec.

        ENDIF.

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

      IF /pws/zycie085-ntimp  eq '09' or /pws/zycie085-ntimp  eq '11'.

          CLEAR: t_iirec.

      endif.

* << Fim da inclusão

        s_wiireco = s_wiireco + t_iirec.

        s_wiicalc = s_wiicalc + a_iicalc.

        s_wiiredu = s_wiiredu + a_iiredu.

        s_wiidevi = s_wiidevi + a_iidevi.

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

      ENDIF.

* << Fim da exclusão

  ENDCASE.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

 

...

 

  v_divisor =  ( 1 - v_advicms - v_advpis - v_advcof ).

  PERFORM calc_piscofins.

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

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

    v_vliirec = a_iidevi.

  ELSE.

    v_vliirec = t_iirec.

  ENDIF.

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

    v_vlipirec = a_ipidevi.

  ELSE.

    v_vlipirec = t_ipirec.

  ENDIF.

  CLEAR: v_vlpisrec , v_vlcofrec.

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

    v_vlpisrec   = t_pis_calc.

    v_vlcofrec   = t_cof_calc.

  ELSE.

    v_vlpisrec   = t_pis   .

    v_vlcofrec   = t_cofins.

  ENDIF.

* << Fim da inclusão

  IF v_nr_itens GT 1.

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

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + t_ipirec + t_iirec +

        t_ivdesp + v_desp + t_pis + t_cofins ) *

* << Fim da exclusão

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

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

        t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

* << Fim da inclusão

        ( /pws/zycie003-basred / 100 ).

  ELSE.

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

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + t_ipirec + t_iirec +

         v_sisco3 + t_ivdesp + t_pis + t_cofins ) *

* << Fim da exclusão

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

    t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

         v_sisco3 + t_ivdesp + v_vlpisrec + v_vlcofrec ) *

* << Fim da inclusão

             ( /pws/zycie003-basred / 100 ).

  ENDIF.

  IF NOT v_icms_especial IS INITIAL.

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

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                               ( t_icmsbs / t_icmsx ) .

    t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

  ELSE.

    t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                t_icmsbs.

  ENDIF.

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

  itab_it-vlicms   = t_icms.

* << Fim da inclusão

  IF /pws/zycie100a-codregtri EQ '5'.

    CLEAR: t_icms_d2, t_vlicms.

  ENDIF.

...

 

...

 

    a_icdevi  = a_icdevi  + t_icms.

    a_icreco  = a_icdevi.

  ENDIF.

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

    IF NOT v_icms_especial IS INITIAL.

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

      t_icmsbs_d2 =

* << Fim da inclusão

      t_icmsbs = t_icmsbs - t_icms.

    ENDIF.

    CLEAR: t_icms.

  ENDIF.

  itab_it-baseicms = t_icmsbs.

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

  itab_it-vlicms   = t_icms.

  itab_it-vlpis    = t_pis   .

  itab_it-vlcofins = t_cofins.

* << Fim da exclusão

  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.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

 

...

 

  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 .

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

  itab_it-vlpis     = t_pis     .

  itab_it-vlcofins  = t_cofins  .

* << Fim da exclusão

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

  itab_it-vlpis     =  t_pis_calc .

  itab_it-vlcofins  =  t_cof_calc .

* << Fim da inclusão

ENDFORM.

 

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

Modificações efetuadas em REPS /PWS/MZYCI058X01

 

...

 

* >> Início da inclusão:

data:

  v_vlpisrec   LIKE t_icms,

  v_vlcofrec   LIKE t_icms.

* << Fim da inclusão

DATA: END OF COMMON PART.