Sintoma

Está colocando o ICMS isento dentro do total da nota. Não deve olhar o parâmetro para isenção na

ZYCIT062. O mesmo serve para a DI no caso de ISENçÃO. No caso de suspensão não está colocando o

valor do ICMS no total da nota. Deve olhar o parametro da ZYCIT062 REG_SUSP_NF

Solução

Considerar parâmetro ao calcular base de icms;

Informações Complementares

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

Nota Número 06751 Data: 12/06/2008 Hora: 15:16:00

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

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

Nota Número              : 06751

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00051

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

Referência às notas relacionadas:

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

04014  - 00001 - 7.0    - 00001  - QUANDO O PROCESSO TEM BASE DE ICMS REDUZIDA, VALOR FICA INCORRETO

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

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

ESTÁ COLOCANDO O ICMS ISENTO DENTRO DO TOTAL DA NOTA.

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

Palavras Chave:

ICMS - ISENÇÃO - PARÂMETRO - /PWS/ZYCIT062 - REG_SUSP_NF

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

      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

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

         NOT ' 56' CA /pws/zycit100-codregtriicms ) OR

* << Fim da exclusão

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

         NOT ' 36' CA /pws/zycit100-codregtriicms ) OR

* << Fim da inclusão

         ( /pws/zycit085-tpdi EQ 'S' AND

         NOT '56'   CA /pws/zycit100-codregtri    ) .

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

        IF ( /pws/zycit100-codregtriicms EQ '5'  AND

        ' N' CA /pws/zycit062-susp_nf ) or

           /pws/zycit100-codregtriicms ne '5' .

* << Fim da inclusão

        IF NOT /pws/zycit062-tred IS INITIAL.

          itab_zycit042-netpr = itab_zycit042-netpr +

          ( ( /pws/zycit100-vlicms / itab_zycit042-qtd_iten )

              * 100 ) / v_basred.

        ELSE.

          itab_zycit042-netpr = itab_zycit042-netpr +

          ( /pws/zycit100-vlicms / itab_zycit042-qtd_iten ).

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

    ENDIF.

    IF /pws/zycit001-tpdecl EQ 'DSI'

    AND /pws/zycit100-codregtri EQ '4'.

      IF NOT /pws/zycit062-tred IS INITIAL.

        itab_zycit042-netpr = itab_zycit042-netpr + ( (

            /pws/zycit100-vlicms / itab_zycit042-qtd_iten )

              * 100 ) / v_basred.

      ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

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

      ELSE.

        t_icmsx = (  1 - v_advicms )  .

      ENDIF.

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

                               ( t_icmsbs / t_icmsx ).

      IF NOT /pws/zycie003-basred IS INITIAL AND

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

        t_icmsbs = ( t_icmsbs / t_icmsx ).

      ELSE.

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

        IF NOT /pws/zycie100a-codregtriicms EQ '3'.

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

      ENDIF.

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

      ENDIF.

* << Fim da inclusão

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

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

        IF '356' CA /pws/zycie100a-codregtriicms .

* << Fim da exclusão

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

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

* << Fim da inclusão

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - t_icms.

        ENDIF.

      ENDIF.

    ELSEIF NOT /pws/zycit062-flag_icms IS INITIAL.

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

        t_icmsx =  1 -  ( /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.

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

         NOT /pws/zycit062-flag_icms IS INITIAL.

        IF '356' CA /pws/zycie100a-codregtriicms .

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

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - t_icms.

        ENDIF.

      ELSE.

        IF '3' CA /pws/zycie100a-codregtriicms .

* << Fim da inclusão

          t_icmsbs_d2 = t_icmsbs =

          t_icmsbs - t_icms.

        ENDIF.

      ENDIF.

    ELSE.

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

                           ( t_icmsbs ) .

      t_icmsbs_d2 = t_icmsbs .

    ENDIF.

  ENDIF.

...