Sintoma

DSI está calculando errado valor de impostos quando é não incidência.

Solução

Considerar regime antes de verificar a tabela /PWS/ZYCIT062

Informações Complementares

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

Nota Número 07427 Data: 10/10/2008 Hora: 15:19:11

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

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

Nota Número              : 07427

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00068

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

Referência às notas relacionadas:

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

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

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

DSI ESTÁ CALCULANDO ERRADO VALOR DE IMPOSTOS QUANDO É NÃO INCIDÊNCIA.

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

Palavras Chave:

NÃO INCIDÊNCIA - IMPOSTO - VALOR - DSI - /PWS/ZYCIT062

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

Objetos da nota:

REPS /PWS/MZYCI058F01

REPS /PWS/MZYCI058F03

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

Modificações efetuadas em REPS /PWS/MZYCI058F01

...

  a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).

  itab_it-vlipi   = a_ipidevi.

  CLEAR t_ipirec.

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

  IF  '26'  NA /pws/zycie100a-codregtri.

* << Fim da exclusão

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

  IF  '3256'  NA /pws/zycie100a-codregtri.

* << Fim da inclusão

    t_ipirec = a_ipidevi.

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

    IF p_tipo = 'A'.

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

      ELSE.

        CLEAR t_ipirec.

      ENDIF.

    ELSE.

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

        s_wipireco = s_wipireco + t_ipirec.

      ENDIF.

* << Fim da exclusão

      s_wipidevi = s_wipidevi + a_ipidevi.

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

    ENDIF.

* << Fim da exclusão

  ELSEIF ' 35' NA /pws/zycie100a-codregtri AND

        /pws/zycie085-ntimp NE '09'       AND

        /pws/zycie085-ntimp NE '11'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

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

    v_vliirec = a_iidevi.

  ELSE.

    v_vliirec = t_iirec.

  ENDIF.

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

    v_vlipirec = a_ipidevi.

  ELSE.

    v_vlipirec = t_ipirec.

  ENDIF.

  CLEAR: v_vlpisrec , v_vlcofrec.

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

    v_vlpisrec   = t_pis_calc.

    v_vlcofrec   = t_cof_calc.

  ELSE.

    v_vlpisrec   = t_pis   .

    v_vlcofrec   = t_cofins.

  ENDIF.

  t_icmsbs_d2 = t_icmsbs = ( t_iibas + v_vlipirec + v_vliirec +

      t_ivdesp + v_desp + v_vlpisrec + v_vlcofrec ) *

      ( /pws/zycie003-basred / 100 ).

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

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

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

* << Fim da exclusão

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

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

  /pws/zycie100a-codregtriicms EQ '6'.

    IF   /pws/zycie100a-codregtriicms EQ '6'.

* << Fim da inclusão

      t_icmsbs_d2 = t_icmsbs =

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

           t_icmsbs - a_iicalc - a_ipidevi - t_pis_calc - t_cof_calc.

    ELSE.

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

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

          t_icmsbs_d2 = t_icmsbs =

* << Fim da inclusão

      t_icmsbs - a_iicalc.

    ENDIF.

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - a_ipidevi.

    ENDIF.

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - t_pis_calc - t_cof_calc.

    ENDIF.

  ENDIF.

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

    ENDIF.

  ENDIF.

* << Fim da inclusão

  IF NOT /pws/zycie003-advalicms IS INITIAL AND

     NOT /pws/zycie100a-icms_dif EQ 'X'.

    t_icmsbs_d2 = t_icmsbs = t_icmsbs *

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

  ELSEIF NOT /pws/zycie100a-icms_dif EQ 'X'.

    t_icmsbs_d2 = t_icmsbs = t_icmsbs *

        ( /pws/zycie003-basred / 100 ).

  ENDIF.

  IF NOT /pws/zycit062-flag_icms IS INITIAL AND

     /pws/zycie100a-icms_dif NE 'X'.

    IF /pws/zycit062-base IS INITIAL AND

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

      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 ).

    itab_it-vlicms   = t_icms.

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

    IF '6' NA /pws/zycie100a-codregtriicms .

* << Fim da inclusão

    IF NOT /pws/zycie003-basred IS INITIAL AND

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

      t_icmsbs = ( t_icmsbs / t_icmsx ).

    ELSE.

      t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

    ENDIF.

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

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

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

        ENDIF.

* << Fim da inclusão

      ENDIF.

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - t_icms.

* << Fim da inclusão

    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.

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

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

* << Fim da exclusão

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

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

* << Fim da inclusão

        t_icmsbs_d2 = t_icmsbs =

        t_icmsbs - t_icms.

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

      ENDIF.

* << Fim da inclusão

      ENDIF.

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

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

      t_icmsbs_d2 = t_icmsbs =

      t_icmsbs - t_icms.

* << Fim da inclusão

    ENDIF.

  ELSE.

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

                         ( t_icmsbs ) .

    t_icmsbs_d2 = t_icmsbs .

  ENDIF.

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

    CLEAR: t_icmsx, t_icms_d2, t_icms, t_icms_d2, t_vlicms.

  ENDIF.

  itab_it-vlicms   = t_icms.

...