Sintoma

Não faz contabilização de PIS/Cofins utilizando Matuse

Solução

Fazer contabilização de PIS/Cofins verificando Classe de Avaliação e se não tiver, utilizar Matuse

Informações Complementares

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

Nota Número 10526 Data: 24/08/2010 Hora: 09:24:43

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

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

Nota Número              : 10526

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00036

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

Referência às notas relacionadas:

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

02915  - 00001 - 6.0    - 00026  - ADICIONADO PARAMETRO LEI 102 PARA PIS E COFINS

08753  - 00002 - 7.0    - 00010  - AO FAZER RECEBIMENTO, NÃO ENCONTRA A CONTA DE PIS E COFINS.

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

NÃO FAZ CONTABILIZAÇÃO DE PIS/COFINS UTILIZANDO MATUSE

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

Palavras Chave:

CONTABILIZAÇÃO - PIS/COFINS - MATUSE - RECEBIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'PIR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'PIR'

                      itab_zycbt035_aux-werks

                      space

                      itab_zycbt035_aux-matuse

                      itab_zycbt035_aux-debcred

                      itab_zycbt035_aux-lei102.

        READ TABLE itab_cta INDEX 1.

      ENDIF.

* << Fim da inclusão

      PERFORM verify_null_field USING itab_cta-konts 'D_NEWKO' text-016.

      itab_zycbt035_aux2-d_newko = itab_cta-konts.

    ELSEIF itab_zycbt035_aux-bschl EQ '50'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'PIP'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'PIP'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      PERFORM verify_null_field USING itab_cta-konth 'D_NEWKO' text-069.

      itab_zycbt035_aux2-d_newko = itab_cta-konth.

    ENDIF.

...

...

          itab_zycbt035_aux-werks   TO itab_zycbt035_aux2-werks  .

    CLEAR itab_zycbt012.

    IF itab_zycbt035_aux-bschl EQ '40'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'COR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'COR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      PERFORM verify_null_field USING itab_cta-konts 'D_NEWKO' text-016.

      itab_zycbt035_aux2-d_newko = itab_cta-konts.

    ELSEIF itab_zycbt035_aux-bschl EQ '50'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'COP'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'COR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      PERFORM verify_null_field USING itab_cta-konth 'D_NEWKO' text-069.

      itab_zycbt035_aux2-d_newko = itab_cta-konth.

    ENDIF.

...

...

          itab_zycbt035_aux-c_prctr TO itab_zycbt035_aux2-c_prctr.

    CLEAR itab_zycbt012.

    IF itab_zycbt035_aux-bschl EQ '40'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'BTR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'BTR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      IF NOT itab_cta-konts IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konts.

        COLLECT itab_zycbt035_aux2.

...

...

        DELETE itab_zycbt035_aux.

      ENDIF.

    ELSEIF itab_zycbt035_aux-bschl EQ '50'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'BTR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'BTR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      IF NOT itab_cta-konth IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konth.

        COLLECT itab_zycbt035_aux2.

...

...

          itab_zycbt035_aux-c_prctr TO itab_zycbt035_aux2-c_prctr.

    CLEAR itab_zycbt012.

    IF itab_zycbt035_aux-bschl EQ '40'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'BTR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'BTR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      IF NOT itab_cta-konts IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konts.

        COLLECT itab_zycbt035_aux2.

...

...

        DELETE itab_zycbt035_aux.

      ENDIF.

    ELSEIF itab_zycbt035_aux-bschl EQ '50'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'BTR'

                    itab_zycbt035_aux-werks

                    itab_zycbt035_aux-bklas

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

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF itab_cta-konth IS INITIAL.

        CLEAR itab_cta. REFRESH itab_cta.

        PERFORM seek_account_number

                TABLES itab_cta

                USING wa_nf-bukrs

                      'BTR'

                      itab_zycbt035_aux-werks

                      space

* << Fim da inclusão

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

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

      ENDIF.

* << Fim da inclusão

      IF NOT itab_cta-konth IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konth.

        COLLECT itab_zycbt035_aux2.

...