Sintoma

O programa não esta levando todas as despesas na linha de PIS e COFINS.

Solução

Ajustado programa para que as despesas parametrizadas para nota fiscal complementar que não são base

de II sejam levadas para a coluna excluida da base no PIS e no COFINS.

Informações Complementares

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

Nota Número 11027 Data: 21/03/2011 Hora: 10:07:55

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

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

Nota Número              : 11027

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00062

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

Referência às notas relacionadas:

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

07667  - 00001 - 7.0    - 00007  - AJUSTES PARA REALIZAR O LANÇAMENTO DE PIS E COFINS NA NF COMPL.

07696  - 00002 - 7.0    - 00007  - AO CRIAR NF COMPLEMENTAR, INDICA 0,01 DE DIFERENÇA MESMO SEM DESP

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

AJUSTE DESPESAS BASE PIS E COFINS NOTA FISCAL COMPLEMENTAR

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

Palavras Chave:

NOTA - FISCAL - COMPLEMENTAR - DESPESA - BASE - PIS - COFINS - II - ICMS

/PWS/SAPMZYCI029 - PARAMETRO

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

Objetos da nota:

REPS /PWS/MZYCI029F01

REPS /PWS/MZYCI029X01

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

Modificações efetuadas em REPS /PWS/MZYCI029F01

...

  CONSTANTS: v_min TYPE p DECIMALS 2 VALUE '0.01' .

  CLEAR:   itab_zycit053_b, itab_zycit036_b, itab_zycit053_c,

           itab_zycit036_c, itab_zycit036_d, itab_zycit053_d,

           itab_zycit053_e, itab_zycit053r, itab_zycit265_c.

  REFRESH: itab_zycit053_b, itab_zycit036_b, itab_zycit053_c,

           itab_zycit036_c, itab_zycit036_d, itab_zycit053_d,

           itab_zycit053_e, itab_zycit053r, itab_zycit265_c.

  FREE:    itab_zycit053_b, itab_zycit036_b, itab_zycit053_c,

           itab_zycit036_c, itab_zycit036_d, itab_zycit053_d,

           itab_zycit053_e, itab_zycit053r, itab_zycit265_c.

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

  REFRESH itab_exbase.

* << Fim da inclusão

  SORT itab_zycit100 BY ebeln ebelp DESCENDING .

  READ TABLE itab_zycit100 INDEX 1.

  IF sy-subrc = 0.

    v_ebeln = itab_zycit100-ebeln.

    v_ebelp = itab_zycit100-ebelp.

  ENDIF.

  LOOP AT itab_zycit100 .

    v_val_totf2 = v_val_totf2 + itab_zycit100-vlfre.

    IF ( itab_zycit100-ebeln NE v_ebeln OR

         itab_zycit100-ebelp NE v_ebelp ).

...

...

          itab_zycit265_c-basepis_cof = itab_zycit265_c-basepis_cof +

                                                                v_pis.

          IF /pws/zycit000-flagpiscof EQ 'X'.

            IF NOT '35' CA itab_zycit100-codregtripiscofi.

              itab_zycit265_c-vldp_pis = itab_zycit265_c-vldp_pis +

                ( itab_zycit100-advalpis  / 100 ) * v_pis.

            itab_zycit265_c-vldp_cofins = itab_zycit265_c-vldp_cofins +

                         ( itab_zycit100-advalcofins / 100 ) * v_cofins.

            ENDIF.

          ENDIF.

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

        ELSE.

          itab_exbase-ebeln = itab_zycit053_e-ebeln.

          itab_exbase-ebelp = itab_zycit053_e-ebelp.

          itab_exbase-base  = itab_zycit053_c-vlcompl.

          COLLECT itab_exbase.

* << Fim da inclusão

        ENDIF.

        MODIFY itab_zycit265_c TRANSPORTING vldp_pis vldp_cofins

                                            basepis_cof

            WHERE nrseq = itab_zycit053_e-nrseq

              AND ebeln = itab_zycit053_e-ebeln

              AND ebelp = itab_zycit053_e-ebelp.

        IF itab_zycit020-baseicms = 'X' OR itab_zycit020-baseii = 'X'.

          itab_zycit053_c-contabiliza = 'X'.

        ELSE.

          CLEAR itab_zycit053_c-contabiliza.

...

...

  ENDIF.

  CASE itab_zycit398-tribpiscof.

    WHEN 1.

      it_zycee007-base_cof = itab_zycit265_c-basepis_cof.

    WHEN 2.

      it_zycee007-cof_excbas = itab_zycit265_c-basepis_cof.

      CLEAR: it_zycee007-taxval_cof, it_zycee007-rate_cof.

    WHEN 3.

      it_zycee007-othbas_cof = itab_zycit265_c-basepis_cof.

  ENDCASE.

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

  CLEAR itab_exbase.

  READ TABLE itab_exbase WITH KEY

              ebeln = itab_zycit265_c-ebeln

              ebelp = itab_zycit265_c-ebelp.

  ADD itab_exbase-base TO: it_zycee007-cof_excbas,

                           it_zycee007-pis_excbas.

* << Fim da inclusão

  IF itab_zycit100-icms_dif = 'X'.

    itab_zycit003-basred = '100'.

  ENDIF.

 it_zycee007-rate   = itab_zycit003-advalicms.

  it_zycee007-taxtyp = itab_zycit033-taxtyp.

  CLEAR it_zycee007-taxval.

  IF /pws/zycit001-regime EQ '05' OR

     /pws/zycit001-regime EQ '12' .

    READ TABLE itab_zycit374 WITH KEY

                nrseq = itab_zycit265_c2-nrseq

...

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

Modificações efetuadas em REPS /PWS/MZYCI029X01

...

* >> Início da inclusão:

DATA: BEGIN OF itab_exbase OCCURS 0,

    ebeln TYPE ekpo-ebeln,

    ebelp TYPE ekpo-ebelp,

    base  TYPE j_1bdytax-base,

    END OF itab_exbase.

* << Fim da inclusão

DATA: END OF COMMON PART.