Sintoma

Ao clicar na atualização de aliquota o programa não atualiza as aliquotas de PIS e COFINS.

Solução

Corrigida verificação realizada na atualização das aliquotas de PIS e COFINS.

Informações Complementares

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

Nota Número 13978 Data: 29/05/2014 Hora: 09:00:53

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

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

Nota Número              : 13978

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00007

Agrupamento              : 00170

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

Referência às notas relacionadas:

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

13948  - 00001 - 9.0    - 00007  - AO NAO ENCONTRAR ALIQUOTAS NO PARÂMETRO, NÃO FAZ A BUSCA SEM REGI

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

ATUALIZAÇÃO ALIQUOTA DE PIS E COFINS

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

Palavras Chave:

DI - ATUALIZAÇÃO - ALIQUOTA - PIS - COFINS

/PWS/SAPMZYCI023

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

Objetos da nota:

REPS /PWS/MZYCI023F05

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

FORM atualiza_aliquotas.

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

  DATA: v_check(1) TYPE c.

* << Fim da inclusão

...

...

                itab_impostos = itab_imposto.

      itab_it-advalii   = itab_imposto-rate1.

      itab_it-advalipi  = itab_imposto-rate2.

      itab_it-advalicms = itab_imposto-rate3.

      IF itab_it-basred IS INITIAL.

        itab_it-basred   = itab_imposto-basred.

      ENDIF.

      IF itab_it-basred IS INITIAL.

        itab_it-basred   = '100'.

      ENDIF.

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

      IF itab_it-basredpis IS INITIAL.

* << Fim da exclusão

        READ TABLE itab_zycit406

                        WITH KEY matnr    = itab_it-matnr

                                 regime   = itab_zycit001-regime

                                 tributos = 'PIS'.

        IF sy-subrc EQ 0

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

        AND itab_zycit406-vigencia LE /pws/zycie085-dttax

        AND NOT itab_zycit406-vigencia IS INITIAL.

* << Fim da exclusão

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

      AND itab_zycit406-vigencia LE /pws/zycie085-dttax.

* << Fim da inclusão

          itab_it-basredpis = itab_zycit406-basred.

          itab_it-pis_alorig =

          itab_it-advalpis   = itab_zycit406-aliquotas.

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

        v_check = 'X'.

* << Fim da inclusão

        ELSE.

          READ TABLE itab_zycit405

                 WITH KEY ncm      = itab_it-j_1bnbm

                          regime   = itab_zycit001-regime

                          tributos = 'PIS'.

          IF sy-subrc EQ 0

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

            AND itab_zycit405-vigencia LE /pws/zycie085-dttax

            AND NOT itab_zycit405-vigencia IS INITIAL .

* << Fim da exclusão

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

          AND itab_zycit405-vigencia LE /pws/zycie085-dttax.

* << Fim da inclusão

            itab_it-basredpis = itab_zycit405-basred.

            itab_it-pis_alorig =

            itab_it-advalpis  = itab_zycit405-aliquotas.

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

          v_check = 'X'.

* << Fim da inclusão

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'PIS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredpis = itab_zycit407-basred.

              itab_it-pis_alorig =

              itab_it-advalpis  = itab_zycit407-aliquotas.

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

            ENDIF.

* << Fim da exclusão

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

            v_check = 'X'.

* << Fim da inclusão

          ENDIF.

        ENDIF.

      ENDIF.

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

      IF itab_it-basredpis IS INITIAL.

* << Fim da exclusão

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

      IF v_check NE 'X'.

* << Fim da inclusão

        READ TABLE itab_zycit406 WITH KEY matnr = itab_it-matnr

                                       tributos = 'PIS'.

        IF sy-subrc EQ 0

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

          AND itab_zycit406-vigencia LE /pws/zycie085-dttax

          AND NOT itab_zycit406-vigencia IS INITIAL .

* << Fim da exclusão

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

          AND itab_zycit406-vigencia LE /pws/zycie085-dttax.

* << Fim da inclusão

          itab_it-basredpis = itab_zycit406-basred.

          itab_it-pis_alorig =

          itab_it-advalpis  = itab_zycit406-aliquotas.

        ELSE.

          READ TABLE itab_zycit405 WITH KEY ncm = itab_it-j_1bnbm

                                       tributos = 'PIS'.

          IF sy-subrc EQ 0

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

            AND itab_zycit405-vigencia LE /pws/zycie085-dttax

            AND NOT itab_zycit405-vigencia IS INITIAL .

* << Fim da exclusão

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

            AND itab_zycit405-vigencia LE /pws/zycie085-dttax.

* << Fim da inclusão

            itab_it-basredpis = itab_zycit405-basred.

            itab_it-pis_alorig =

            itab_it-advalpis  = itab_zycit405-aliquotas.

          ELSE.

            READ TABLE itab_zycit407 WITH KEY tributos = 'PIS'.

            IF sy-subrc EQ 0.

              itab_it-basredpis = itab_zycit407-basred.

              itab_it-pis_alorig =

              itab_it-advalpis  = itab_zycit407-aliquotas.

            ELSE.

              itab_it-basredpis = itab_it-advalpis.

              CLEAR : itab_it-advalpis,

                      itab_it-vlpis   .

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

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

      IF itab_it-basredcof IS INITIAL.

* << Fim da exclusão

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

      CLEAR v_check.

* << Fim da inclusão

        READ TABLE itab_zycit406

                         WITH KEY matnr    = itab_it-matnr

                                  regime   = itab_zycit001-regime

                                  tributos = 'COFINS'.

        IF sy-subrc EQ 0

          AND itab_zycit406-vigencia LE /pws/zycie085-dttax.

          itab_it-basredcof = itab_zycit406-basred.

          itab_it-cof_alorig =

          itab_it-advalcofins   = itab_zycit406-aliquotas.

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

        v_check = 'X'.

* << Fim da inclusão

        ELSE.

          READ TABLE itab_zycit405

                 WITH KEY ncm      = itab_it-j_1bnbm

                          regime   = itab_zycit001-regime

                          tributos = 'COFINS'.

          IF sy-subrc EQ 0

            AND itab_zycit405-vigencia LE /pws/zycie085-dttax.

            itab_it-basredcof = itab_zycit405-basred.

            itab_it-cof_alorig =

            itab_it-advalcofins  = itab_zycit405-aliquotas.

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

          v_check = 'X'.

* << Fim da inclusão

          ELSE.

            READ TABLE itab_zycit407

                        WITH KEY tributos = 'COFINS'

                                 regime   = itab_zycit001-regime.

            IF sy-subrc EQ 0.

              itab_it-basredcof = itab_zycit407-basred.

              itab_it-cof_alorig =

              itab_it-advalcofins  = itab_zycit407-aliquotas.

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

            ENDIF.

* << Fim da exclusão

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

            v_check = 'X'.

* << Fim da inclusão

          ENDIF.

        ENDIF.

      ENDIF.

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

      IF itab_it-basredcof IS INITIAL.

* << Fim da exclusão

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

      IF v_check NE 'X'.

* << Fim da inclusão

        READ TABLE itab_zycit406 WITH KEY matnr = itab_it-matnr

...