CE PLUS - Nota 010723

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Fatura Mercadoria

Data/Hora da Publicação: 10/11/2010 00:00:00

Data/Hora Última Alteração: 22/02/2011 16:23:42

Descrição da Nota: CONTABILIZAR FATURA COM ELEMENTO PEP,NÃO CONSIDERA CLASSE DE AVALIAÇÃO

Sintoma

Ao contabilizar fatura com elemento pep, não considera a classe de avaliação para buscar conta.

 

 

Solução

Verificar se a fatura é de serviço antes de remover a classe de avaliação.

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

SELEÇÃO DE CONTAS PARA ITENS SEM MATUSE

IMPLEMENTAÇÃO DA FATURA DE SERVIÇO COM PEDIDO DE SERVIÇO

Informações Complementares

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

Nota Número 10723 Data: 10/11/2010 Hora: 11:36:05

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

 

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

Nota Número              : 10723

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00047

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

Referência às notas relacionadas:

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

 

08116  - 00001 - 7.0    - 00008  - IMPLEMENTAÇÃO DA FATURA DE SERVIÇO COM PEDIDO DE SERVIÇO

08250  - 00002 - 7.0    - 00009  - SELEÇÃO DE CONTAS PARA ITENS SEM MATUSE

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

CONTABILIZAR FATURA COM ELEMENTO PEP,NÃO CONSIDERA CLASSE DE AVALIAÇÃO

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

Palavras Chave:

ELEMENTO PEP - CLASSE DE AVALIAÇÃO - FATURA DE SERVIÇO

 

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

Objetos da nota:

REPS /PWS/MZYCI003F02

 

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

 

...

        IF sy-subrc EQ 0.

          MOVE:

             itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,

             itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .

        ELSE.

          MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,

                space                  TO itab_zycbt035_aux-bklas .

        ENDIF.

      ELSE.

        MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,

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

              itab_matuse-knttp      TO itab_zycbt035_aux-knttp ,

              space                  TO itab_zycbt035_aux-bklas .

* << Fim da exclusão

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

              itab_matuse-knttp      TO itab_zycbt035_aux-knttp .

        IF /pws/zycie006-tpfatura EQ '11'.

          MOVE   space                  TO itab_zycbt035_aux-bklas .

        ELSE.

          READ TABLE itab_classe_aval WITH KEY

                                            matnr = itab_matuse-matnr

                                            bwkey = itab_zycit003-werks

                                            bwtar = itab_matuse-bwtar.

          IF sy-subrc EQ 0.

            MOVE   itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .

          ENDIF.

        ENDIF.

* << Fim da inclusão

        IF itab_matuse-j_1bmatuse IS INITIAL.

          CLEAR: itab_t023.

          READ TABLE itab_t023 WITH KEY matkl = itab_matuse-matkl.

          IF sy-subrc NE 0.

            SELECT SINGLE * FROM t023 INTO itab_t023

                WHERE matkl EQ itab_matuse-matkl.

            APPEND itab_t023.

          ENDIF.

          MOVE: itab_t023-bklas TO itab_zycbt035_aux-bklas.

        ENDIF.

...

 

...

      IF itab_matuse-j_1bmatuse IS INITIAL.

        CLEAR: itab_t023.

        READ TABLE itab_t023 WITH KEY matkl = itab_matuse-matkl.

        IF sy-subrc NE 0.

          SELECT SINGLE * FROM t023 INTO itab_t023

              WHERE matkl EQ itab_matuse-matkl.

          APPEND itab_t023.

        ENDIF.

        MOVE: itab_t023-bklas TO itab_zycbt035_aux-bklas.

      ELSE.

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

        IF /pws/zycie006-tpfatura EQ '11'.

* << Fim da inclusão

        MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,

              space                  TO itab_zycbt035_aux-bklas .

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

        ELSE.

          MOVE itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse.

          CLEAR: itab_classe_aval.

          READ TABLE itab_classe_aval WITH KEY

                                              matnr = itab_matuse-matnr

                                            bwkey = itab_zycit003-werks

                                              bwtar = itab_matuse-bwtar.

          IF sy-subrc EQ 0.

            MOVE itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .

          ENDIF.

        ENDIF.

* << Fim da inclusão

      ENDIF.

    ENDIF.

    itab_zycbt035_aux-wrbtr       = itab_zycit003-total.

    itab_zycbt035_aux-werks       = itab_zycit003-werks.

    CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

 

...