Sintoma

Ao fazer recebimento, não encontra a conta de PIS e Cofins.

Solução

Considerar classe de avaliação para buscar contas.

Informações Complementares

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

Nota Número 08753 Data: 29/07/2009 Hora: 15:41:01

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

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

Nota Número              : 08753

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00107

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO FAZER RECEBIMENTO, NÃO ENCONTRA A CONTA DE PIS E COFINS.

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

Palavras Chave:

RECEBIMENTO - PIS E COFINS - CLASSE DE AVALIAÇÃO.

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

Objetos da nota:

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

    CLEAR itab_zycit003.

    READ TABLE itab_zycit003 WITH KEY nrseq = itab_global-nrseq

                                      ebeln = itab_global-ebeln

                                      ebelp = itab_global-ebelp.

    CLEAR itab_ekkn.

    READ TABLE itab_ekkn WITH KEY ebeln = itab_global-ebeln

                                  ebelp = itab_global-ebelp.

    CLEAR itab_matuse.

    READ TABLE itab_matuse WITH KEY ebeln = itab_global-ebeln

                                    ebelp = itab_global-ebelp.

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

    IF sy-subrc EQ 0.

      CLEAR itab_classe_aval.

      READ TABLE itab_classe_aval WITH KEY

                  matnr = itab_matuse-matnr

                  bwkey = itab_matuse-bwkey

                  bwtar = itab_matuse-bwtar.

      itab_zycbt035_aux-bklas = itab_classe_aval-bklas.

    ENDIF.

* << Fim da inclusão

    CLEAR: itab_zycbt035_aux-d_prctr, itab_zycbt035_aux-c_prctr.

...

...

    IF itab_zycbt035_aux-bschl EQ '40'.

      CLEAR itab_cta. REFRESH itab_cta.

      PERFORM seek_account_number

              TABLES itab_cta

              USING wa_nf-bukrs

                    'PIR'

                    itab_zycbt035_aux-werks

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

      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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      itab_zycbt035_aux2-d_newko = itab_cta-konth.

    ENDIF.

    COLLECT itab_zycbt035_aux2.

  ENDLOOP.

...

...

    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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

      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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    itab_zycbt035_aux-matuse

                    itab_zycbt035_aux-debcred

                    itab_zycbt035_aux-lei102.

      READ TABLE itab_cta INDEX 1.

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

      itab_zycbt035_aux2-d_newko = itab_cta-konth.

    ENDIF.

    COLLECT itab_zycbt035_aux2.

  ENDLOOP.

  LOOP AT itab_zycbt035_aux WHERE imposto EQ 'BPIS'.

...

...

    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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF NOT itab_cta-konts IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konts.

        COLLECT itab_zycbt035_aux2.

      ELSE.

        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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    'PIS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF NOT itab_cta-konth IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konth.

        COLLECT itab_zycbt035_aux2.

      ELSE.

        DELETE itab_zycbt035_aux.

      ENDIF.

...

...

          itab_zycbt035_aux-d_prctr TO itab_zycbt035_aux2-d_prctr,

          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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF NOT itab_cta-konts IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konts.

        COLLECT itab_zycbt035_aux2.

      ELSE.

        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

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

                    space

* << Fim da exclusão

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

                    itab_zycbt035_aux-bklas

* << Fim da inclusão

                    'COFINS'

                    itab_zycbt035_aux-matuse

                    space.

      READ TABLE itab_cta INDEX 1.

      IF NOT itab_cta-konth IS INITIAL.

        itab_zycbt035_aux2-d_newko = itab_cta-konth.

        COLLECT itab_zycbt035_aux2.

      ELSE.

        DELETE itab_zycbt035_aux.

      ENDIF.

...