Sintoma

AO preencher a taxa selic e entrar na pasta de impostos estes não estão sendo calculados.

Solução

Atualização do programa de Nota Fiscalpara que o sistema efetue os cálculos das bases dos impostos

corretamente.

Informações Complementares

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

Nota Número 07305 Data: 11/09/2008 Hora: 16:10:34

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

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

Nota Número              : 07305

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00064

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

Referência às notas relacionadas:

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

07001  - 00001 - 7.0    - 00006  - ENTRADA DE NOTAS NOS ATOS CONCESSÓRIOS DO TIPO SUSPENSÃO

07261  - 00002 - 7.0    - 00006  - AJUSTE NA VINCULAÇÃO E ESTORNO DA VINCULAÇÃO AO ATO CONCESSÓRIO

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

PREENCHER BASE DE IMPOSTOS E ALIQUOTA.

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

Palavras Chave:

IMPOSTOS - BASE - ALIQUOTA - NACIONALIZAÇÃO - ATO - CONCESSÓRIO -

/PWS/SAPMZYCI052

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

Objetos da nota:

REPS /PWS/MZYCI052F01

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

Modificações efetuadas em REPS /PWS/MZYCI052F01

...

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

  DATA: itab_j_1bnfstx TYPE j_1bnfstx OCCURS 0 WITH HEADER LINE,

        itab_j_1baj    TYPE j_1baj OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

...

...

    SELECT * FROM j_1bnflin INTO TABLE itab_j_1bnflin

        WHERE docnum EQ /pws/zycie329-docnum.

    REFRESH itab_zycit245.

    SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245

        FOR ALL ENTRIES IN itab_zycit330

        WHERE nrseqd EQ itab_zycit330-nrseqd

          AND nritem EQ itab_zycit330-nritem.

  ENDIF.

  IF v_tcode EQ '/PWS/ZYCI052_C' OR

     v_tcode EQ '/PWS/ZYCI052_A'.

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

    REFRESH: itab_j_1bnfstx, itab_j_1baj.

    SELECT * FROM j_1baj INTO TABLE itab_j_1baj.

    SELECT * FROM  j_1bnfstx

        INTO TABLE itab_j_1bnfstx

        FOR ALL ENTRIES IN itab_zycit330

      WHERE docnum EQ itab_zycit330-docnum

        AND itmnum EQ itab_zycit330-buzei.

* << Fim da inclusão

    IF NOT itab_zycit279_d[] IS INITIAL.

      LOOP AT itab_zycit279_d.

        READ TABLE itab_zycit330_des

                    WITH KEY docnum = itab_zycit279_d-docnum

                             buzei  = itab_zycit279_d-buzei.

        READ TABLE itab_zycit245_des

                      WITH KEY nrseqd = itab_zycit330_des-nrseqd

                               nritem = itab_zycit330_des-nritem.

        itab_zycit245_des-vlvinc = itab_zycit245_des-vlvinc -

                                    itab_zycit279_d-vltot.

...

...

            itab_zycit330-lote   TO /pws/zycit279-lote   ,

            itab_zycit330-ncm    TO /pws/zycit279-j_1bnbm,

            itab_zycit330-menge  TO /pws/zycit279-qtd_iten,

            itab_zycit330-gewei  TO /pws/zycit279-gewei  ,

            itab_zycit330-waerk  TO /pws/zycit279-waers  ,

            itab_zycit330-netpr  TO /pws/zycit279-netpr  ,

            itab_zycit329-nfnum  TO /pws/zycit279-nfnum  ,

            itab_zycit329-series TO /pws/zycit279-serie  ,

            itab_zycit329-docdat TO /pws/zycit279-dtnf   ,

            itab_zycit330-buzei  TO /pws/zycit279-itmnum .

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

      CLEAR: itab_zycit279-baseii,

             itab_zycit279-basepis,

             itab_zycit279-basecofins.

      LOOP AT itab_j_1bnfstx

            WHERE docnum EQ itab_zycit330-docnum

              AND itmnum EQ itab_zycit330-buzei.

        CLEAR: itab_j_1baj.

        READ TABLE itab_j_1baj

              WITH KEY taxtyp = itab_j_1bnfstx-taxtyp.

        CASE itab_j_1baj-taxgrp.

          WHEN 'IPI'.

            /pws/zycit279-baseii =

                itab_j_1bnfstx-othbas + itab_j_1bnfstx-base.

            /pws/zycit279-i_txipi = itab_j_1bnfstx-rate.

          WHEN 'PIS'.

            /pws/zycit279-basepis =

                itab_j_1bnfstx-othbas + itab_j_1bnfstx-base.

            /pws/zycit279-pis = itab_j_1bnfstx-rate.

          WHEN 'COFINS'.

            /pws/zycit279-basecofins =

                itab_j_1bnfstx-othbas + itab_j_1bnfstx-base.

            /pws/zycit279-cofins = itab_j_1bnfstx-rate.

        ENDCASE.

      ENDLOOP.

* << Fim da inclusão

      MOVE: j_1bnfdoc-waerk      TO /pws/zycit279-i_waerscifmi .

      /pws/zycit279-i_txmoeda = itab_j_1bnflin-netwr /

                                /pws/zycit279-vltot.

      /pws/zycit279-valor = itab_j_1bnflin-netwr /

                            /pws/zycit279-menge.

      /pws/zycit279-vlfrete = itab_j_1bnflin-netfre.

      /pws/zycit279-vlseg   = itab_j_1bnflin-netins.

      /pws/zycit279-um_base = /pws/zycit279-meins.

      PERFORM  converte_um_base   USING /pws/zycit279-matnr

                               CHANGING /pws/zycit279-um_base

...