Sintoma

Na contabilização dos impostos no recebimento fiscal/físico, sistema contabilizou os valores o PIS e

do COFINS errados.

Solução

criadas variáveis para contabilização de pis e cofins.

Informações Complementares

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

Nota Número 02939 Data: 22/01/2007 Hora: 11:34:59

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

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

Nota Número              : 02939

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00149

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VALORES DE PIS E COFINS CONTABILIZADOS ERRADOS NO RECEBIMENTO

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

Palavras Chave:

PIS - COFINS - IMPOSTOS - RECEBIMENTO FISCAL/FISICO

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

                 clnf EQ itab_zycit033-clnf AND

             bukrs EQ wa_nf-bukrs.

    IF sy-subrc NE 0.

      SELECT * FROM /pws/zycit398 INTO TABLE itab_zycit398

         FOR ALL ENTRIES IN itab_global

         WHERE tpnf EQ itab_global-tpnf AND

                 clnf EQ itab_zycit033-clnf AND

         bukrs EQ space.

    ENDIF.

  ENDIF.

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

  DATA: vl_pis_5     TYPE /pws/zycit100-vlpis   ,

        vl_cofins_5  TYPE /pws/zycit100-vlcofins,

        vl_pis_2     TYPE /pws/zycbe035-wrbtr   ,

        vl_cofins_2  TYPE /pws/zycbe035-wrbtr   .

  CLEAR v_cont.

  DESCRIBE TABLE itab_global LINES v_cont.

  CLEAR v_tabix.

* << Fim da inclusão

  LOOP AT itab_global.

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

    v_tabix = v_tabix + 1.

* << Fim da inclusão

    CLEAR itab_zycbt035_aux.

    CLEAR itab_zycit100.

    READ TABLE itab_zycit100 WITH KEY nrseq = itab_global-nrseq

                                      ebeln = itab_global-ebeln

                                      ebelp = itab_global-ebelp.

    IF itab_zycit100-vlpis    IS INITIAL AND

...

...

    MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse.

    itab_zycbt035_aux-werks     = itab_zycit003-werks.

    itab_zycbt035_aux-d_gsber   = itab_zycit003-gsber.

    IF NOT itab_zycit100-vlpis IS INITIAL.

      CLEAR itab_zycit398.

      READ TABLE itab_zycit398 WITH KEY tpnf     = itab_global-tpnf

                                        tributos = 'PIS'.

      itab_zycbt035_aux-lei102 = itab_zycit398-lei102.

      itab_zycbt035_aux-imposto = 'PIS'.

      itab_zycbt035_aux-debcred = itab_zycit398-creditar.

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

      vl_pis_5 = vl_pis_5 + ABS( itab_zycit100-vlpis ).

      IF v_tabix EQ v_cont.

        itab_zycbt035_aux-wrbtr = vl_pis_5 - vl_pis_2.

      ELSE.

* << Fim da inclusão

      itab_zycbt035_aux-wrbtr   = abs( itab_zycit100-vlpis ).

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

        vl_pis_2 = vl_pis_2 + ABS( itab_zycit100-vlpis ).

      ENDIF.

* << Fim da inclusão

      itab_zycbt035_aux-bschl   = '40'.

      APPEND itab_zycbt035_aux.

      itab_zycbt035_aux-bschl   = '50'.

      APPEND itab_zycbt035_aux.

    ENDIF.

    IF NOT itab_zycit100-vlcofins IS INITIAL.

      CLEAR itab_zycit398.

      READ TABLE itab_zycit398 WITH KEY tpnf     = itab_global-tpnf

                                        tributos = 'COFINS'.

      itab_zycbt035_aux-lei102 = itab_zycit398-lei102.

      itab_zycbt035_aux-imposto = 'COFI'.

      itab_zycbt035_aux-debcred = itab_zycit398-creditar.

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

      vl_cofins_5 = vl_cofins_5 + ABS( itab_zycit100-vlcofins ).

      IF v_tabix EQ v_cont.

        itab_zycbt035_aux-wrbtr = vl_cofins_5 - vl_cofins_2.

      ELSE.

* << Fim da inclusão

      itab_zycbt035_aux-wrbtr   = abs( itab_zycit100-vlcofins ).

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

        vl_cofins_2 = vl_cofins_2 + ABS( itab_zycit100-vlcofins ).

      ENDIF.

* << Fim da inclusão

      itab_zycbt035_aux-bschl   = '40'.

      APPEND itab_zycbt035_aux.

      itab_zycbt035_aux-bschl   = '50'.

      APPEND itab_zycbt035_aux.

    ENDIF.

...