Sintoma

Erro no cálculo de icms reduzido na NF e DI

Solução

ajustar calculos da DI e NF para seguirem iguais.

Informações Complementares

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

Nota Número 12853 Data: 18/03/2013 Hora: 16:14:18

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

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

Nota Número              : 12853

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00150

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

Referência às notas relacionadas:

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

04557  - 00001 - 7.0    - 00003  - REDUÇÃO DE BASE DE IMPOSTO NOTA FISCAL

04644  - 00002 - 7.0    - 00002  - ERRO DI JPY + GRANEL NO VALOR DO SEGURO E VARIAÇÃO DO RODOVIÁRIO

04669  - 00003 - 7.0    - 00003  - DATA DE LANÇAMENTO DO ESTORNO DA NF

04673  - 00004 - 7.0    - 00003  - NA NF NÃO LEVA VALOR DE ICMS, DIFERENÇA NA LINHA DO IPI

04679  - 00005 - 7.0    - 00003  - DI NÃO ESTÁ RESPEITANDO O PARÂMETRO REG_SUSP DA ZYCIT062 P ICMS

04750  - 00006 - 7.0    - 00002  - ERRO RATEIO DESPESAS, VARIAÇÃO CAMBIAL, VLR DO SEGURO, GRANEL DA

04760  - 00007 - 7.0    - 00003  - ACRESCENTAR CAMPOS NA TELA DE REPLICAÇÃO DA DI

04831  - 00008 - 7.0    - 00003  - DESENVOLVER FUNCIONALIDADE FUNDAP NA NF E NA DI

05383  - 00009 - 7.0    - 00003  - ABERTURA DE EXIT PARA CÁLCULO DE ICMS

05498  - 00010 - 7.0    - 00004  - NÃO CARREGA BOTÃO FUNDAP

06751  - 00011 - 7.0    - 00005  - ESTÁ COLOCANDO O ICMS ISENTO DENTRO DO TOTAL DA NOTA.

08356  - 00012 - 7.0    - 00009  - ADMISSÃO TEMPORÁRIA ARTIGO 373

12123  - 00013 - 8.0    - 00011  - CORREÇÃO E ABERTURA DE EXIT PARA TRATAMENTO DE FUNDAP.

12443  - 00014 - 9.0    - 00001  - INCLUSÃO DO CAMPO ALIQ. REDUZIDA NA PASTA DE ICMS DA DI

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

ERRO NO CÁLCULO DE ICMS REDUZIDO NA NF E DI

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

Palavras Chave:

DI - ICMS - NOTA FISCAL - NF - REDUÇÃO - ICMS REDUZIDO

OUTRO MONTANTE BASE - COLUNA 3

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

Objetos da nota:

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI016X01

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

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

       ( /pws/zycie003-basred / 100 ) ) .

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

        v_trunc = v_advicms.

        v_advicms = v_trunc.

      ENDIF.

    ELSE.

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

    ENDIF.

  ELSE.

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

    IF NOT /pws/zycie003-basred IS INITIAL AND

        NOT /pws/zycie003-basred EQ '100'.

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

       ( /pws/zycie003-basred / 100 ) ) .

    ELSE.

* << Fim da inclusão

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

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

    ENDIF.

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

      v_trunc = v_advicms.

      v_advicms = v_trunc.

    ENDIF.

* << Fim da inclusão

  ENDIF.

  v_advpis  = ( /pws/zycie100a-advalpis / 100 ).

...

...

           NOT /pws/zycie003-basred EQ '100'.

          v_advicms = ( /pws/zycie100a-aliqicmsr / 100 ) *

           ( /pws/zycie003-basred / 100 ).

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

            v_trunc = v_advicms.

            v_advicms = v_trunc.

          ENDIF.

        ELSE.

          v_advicms = ( /pws/zycie100a-aliqicmsr / 100 ).

        ENDIF.

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

      ELSE.

        IF NOT /pws/zycie003-basred IS INITIAL AND

            NOT /pws/zycie003-basred EQ '100'.

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

           ( /pws/zycie003-basred / 100 ) ) .

* << Fim da inclusão

      ELSE.

        v_advicms = ( /pws/zycie100a-aliqicmsr / 100 ).

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

        ENDIF.

* << Fim da inclusão

      ENDIF.

      v_advalicms = /pws/zycie003-advalicms .

      /pws/zycie003-advalicms = /pws/zycie100a-aliqicmsr.

    ENDIF.

    IF NOT /pws/zycit062-bs_pis_cof IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

...

* >> Início da exclusão:

DATA  v_advicms TYPE p DECIMALS 3.

* << Fim da exclusão

* >> Início da inclusão:

datA:  v_advicms TYPE p DECIMALS 6,

       v_trunc   TYPE p DECIMALS 3.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

    IF itab_zycit100-icms_dif = 'X'.

      itab_zycit003-basred = '100'.

      v_basred = itab_zycit003-basred.

    ENDIF.

    CLEAR v_advicms.

    IF NOT itab_zycit003-advalicms IS INITIAL.

      IF NOT itab_zycit003-basred IS INITIAL OR

         NOT itab_zycit003-basred EQ '100'.

        v_advicms = ( ( itab_zycit003-advalicms / 100 ) *

         ( itab_zycit003-basred / 100 ) ) .

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

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

          v_trunc = v_advicms.

          v_advicms = v_trunc.

        ENDIF.

* << Fim da inclusão

      ELSE.

        v_advicms = ( itab_zycit003-advalicms / 100 ).

      ENDIF.

      v_basred = ( v_advicms * 10000 / itab_zycit003-advalicms ).

    ELSE.

      v_basred    = itab_zycit003-basred.

    ENDIF.

    IF v_basred IS INITIAL.

      v_basred = 100.

    ENDIF.

...

...

    ENDIF.

    IF NOT /pws/zycit100-aliqicmsr IS INITIAL.

      itab_zycit003-advalicms = /pws/zycit100-aliqicmsr.

    ENDIF.

    CLEAR v_advicms.

    IF NOT itab_zycit003-advalicms IS INITIAL.

      IF NOT itab_zycit003-basred IS INITIAL OR

         NOT itab_zycit003-basred EQ '100'.

        v_advicms = ( ( itab_zycit003-advalicms / 100 ) *

         ( itab_zycit003-basred / 100 ) ) .

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

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

          v_trunc = v_advicms.

          v_advicms = v_trunc.

        ENDIF.

* << Fim da inclusão

      ELSE.

        v_advicms = ( itab_zycit003-advalicms / 100 ).

      ENDIF.

      v_basred = ( v_advicms * 10000 / itab_zycit003-advalicms ).

    ELSE.

      v_basred    = itab_zycit003-basred.

    ENDIF.

    IF NOT /pws/zycit100-vlicms IS INITIAL AND

       NOT /pws/zycit100-icms_dif = 'X'.

      IF ( /pws/zycit085-tpdi EQ 'N' AND

...