Sintoma

Base de icms não bate com total da Nota mesmo com flag de arredondamento

Solução

Fazer tratamento de arredondamento na DSI .

Informações Complementares

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

Nota Número 11747 Data: 07/12/2011 Hora: 16:13:23

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

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

Nota Número              : 11747

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00098

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

Referência às notas relacionadas:

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

01013  - 00001 - 6.0    - 00022  - O VALOR MLE NA PASTA 2 DA DSI NÃO CORRESPONDE COM O VALOR DA FATU

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

04019  - 00003 - 7.0    - 00001  - CORREÇÃO NO CALCULO DA BASE DE CÁLCULO AO ENTRAR DO DETALHE DO IT

05152  - 00004 - 7.0    - 00003  - AJUSTES PARA DSI QUANDO REGIME = NÃO INCIDÊNCIA EM EMBARQUE DE

07427  - 00005 - 7.0    - 00007  - DSI ESTÁ CALCULANDO ERRADO VALOR DE IMPOSTOS QUANDO É NÃO INCIDÊN

07977  - 00006 - 7.0    - 00008  - DE ACORDO COM LEGISLAÇÃO, O II SEMPRE ENTRA NA BASE DO IPI.

08534  - 00007 - 7.0    - 00009  - A DSI CALCULA VALOR INCORRETO AO FAZER VARIAÇÃO CAMBIAL

08949  - 00008 - 7.0    - 00010  - PROGRAMA SE PERDE AO CALCULAR VALOR CIF NA DSI

10918  - 00009 - 8.0    - 00006  - AJUSTES PARA TRATAMENTO DE DSI DE REIMPORTAÇÃO

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

BASE DE ICMS NÃO BATE COM TOTAL DA NOTA MESMO COM FLAG DE ARREDONDAMENTO

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

Palavras Chave:

ICMS - NOTA - NF - ZYCIT062 - ARREDONDAMENTO

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F03

REPS /PWS/MZYCI058X01

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

FORM load_itax USING p_tipo.

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

  DATA: v_casasd  TYPE /pws/zycit036-vlreal,

        v_casasd2 TYPE /pws/zycit036-vlreal,

        v_casasd3 TYPE /pws/zycit036-vlreal.

* << Fim da inclusão

...

...

  CASE s_inco1_ci.

    WHEN 'FOB'.

      t_ivadu = t_ivmle + t_ivseg + t_ivfre + t_ivdesp.

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

      v_casasd = t_ivseg.

      v_casasd2 = t_ivfre.

      v_casasd3 = t_ivdesp.

      v_ivadud = t_ivmle + v_casasd3 + v_casasd + v_casasd2.

* << Fim da inclusão

    WHEN 'C&F'.

      t_ivmle = t_ivmle.

      t_vmle = t_vmle + v_tot_fre.

      t_vmle_d2 = t_vmle.

      t_ivmle_d2 =   t_vmle_d2 * /pws/zycie100a-dttaxbem.

      t_ivadu = t_ivmle + t_ivseg + t_ivdesp + t_ivfre.

      t_vmle2 = t_vmle.

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

      v_casasd = t_ivseg.

      v_casasd3 = t_ivdesp.

      v_ivadud = t_ivmle2 + v_casasd3 + v_casasd .

* << Fim da inclusão

    WHEN 'CIF'.

      t_dif_seg =  v_tsegfat - v_sgtofat.

      t_dif_seg = ( v_cfr / ( v_tcfr ) ) * t_dif_seg.

      itab_it-vlfob = t_vmle  =  t_vmle  + t_dif_seg.

      t_ivmle = t_ivmle + ( t_dif_seg * /pws/zycie085-ukursseg ).

      t_ivmle_d2 = t_ivmle + t_ivfre + t_ivseg .

      t_vmle_d2 = t_vmle = t_vmle + v_tot_fre + v_tot_seg.

      t_ivadu = t_ivmle + t_ivdesp + t_ivfre + t_ivseg.

      t_vmle2 = t_vmle.

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

      v_casasd3 = t_ivdesp.

      v_ivadud = t_ivmle2 + v_casasd3 .

* << Fim da inclusão

  ENDCASE.

  itab_it-vlmerc_ad = t_vmle2.

  t_ivmle2 = t_vmle_d2 * /pws/zycie085-ukursfob .

  v_tmle_d2 = v_tmle_d2 + t_ivmle_d2 .

ENDFORM.

...

...

FORM load_iipi USING p_tipo.

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

  DATA: v_casasd  TYPE /pws/zycit036-vlreal.

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

* << Fim da inclusão

  IF '56' CA itab_it-codregtri .

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

      v_casasd = itab_it-ii_calculado.

    ELSE.

      v_casasd = t_iirec.

    ENDIF.

    t_ipibas  = ( v_ivadud + v_casasd ).

  ELSE.

  IF '56' CA itab_it-codregtri .

* << Fim da inclusão

    t_ipibas  = ( t_ivadu + itab_it-ii_calculado ).

  ELSE.

    t_ipibas  = ( t_ivadu + t_iirec ).

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

  ENDIF.

* << Fim da inclusão

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

FORM load_iicms USING p_tipo.

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

  DATA: v_casasd  TYPE /pws/zycit036-vlreal,

        v_casasd2 TYPE /pws/zycit036-vlreal,

        v_casasd3 TYPE /pws/zycit036-vlreal,

        v_casasd4 TYPE /pws/zycit036-vlreal,

        v_casasd5 TYPE /pws/zycit036-vlreal.

* << Fim da inclusão

...

...

  IF itab_zycit001-regime EQ '11'.

    t_iibas = t_ivadu - t_ivmle.

  ENDIF.

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

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

    MOVE: v_vliirec  TO v_casasd,

          v_vlipirec TO v_casasd2,

          t_ivdesp   TO v_casasd3,

          v_vlcofrec TO v_casasd4,

          v_vlpisrec TO v_casasd5.

    t_icmsbs_d2 = t_icmsbs = ( v_ivadud +  v_casasd + v_casasd2 +

      v_casasd3 + v_casasd4 + v_casasd5 ) .

    MOVE: a_iicalc   TO v_casasd,

          a_ipidevi  TO v_casasd2,

          t_pis_calc TO v_casasd3,

          t_cof_calc TO v_casasd4.

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

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - v_casasd.

      ENDIF.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - v_casasd2.

      ENDIF.

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

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - v_casasd3 - v_casasd4.

      ENDIF.

    ENDIF.

  ELSE.

* << Fim da inclusão

  t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

      t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

      ( /pws/zycie003-basred / 100 ).

...

...

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - a_iicalc.

        ENDIF.

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

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - a_ipidevi.

        ENDIF.

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

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - t_pis_calc - t_cof_calc.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058X01

...

* >> Início da inclusão:

DATA: v_ivadud  LIKE t_icms.

* << Fim da inclusão

DATA: END OF COMMON PART.