Sintoma

Não faz variação cambial da DI.

Solução

Considerar classe de avaliação ao selecionar contas da Fatura.

Informações Complementares

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

Nota Número 08750 Data: 29/07/2009 Hora: 11:16:32

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

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

Nota Número              : 08750

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00107

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

Referência às notas relacionadas:

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

05101  - 00001 - 7.0    - 00003  - ABERTURA DE EXIT NA FUNÇÃO DO RATEIO DO CUSTO

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

AO SELECIONAR CONTAS DA FATURA, NÃO CONSIDERA CLASSE DE AVALIAÇÃO.

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

Palavras Chave:

VARIAÇÃO CAMBIAL - DI - FATURA - RECLASSIFICAÇÃO DE IA

CLASSE DE AVALIAÇÃO

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

Objetos da nota:

FUNC /PWS/ZYCI_RECLASSIFICACAO_IA

REPS /PWS/LZYCIGF2X01

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

Modificações efetuadas em FUNC /PWS/ZYCI_RECLASSIFICACAO_IA

...

  SORT itab_zycit006 BY belnr_p.

  CLEAR: itab_matuse.

  REFRESH: itab_matuse.

  IF NOT t_zycit003[] IS INITIAL.

    SELECT ebeln ebelp matnr bwtar j_1bmatuse knttp werks

           FROM ekpo INTO TABLE itab_matuse

           FOR ALL ENTRIES IN t_zycit003

           WHERE ebeln = t_zycit003-ebeln

             AND ebelp = t_zycit003-ebelp.

  ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RECLASSIFICACAO_IA

  IF NOT itab_matuse[] IS INITIAL.

      SELECT werks bwkey FROM t001w INTO TABLE itab_t001w

             FOR ALL ENTRIES IN itab_matuse WHERE

                 werks = itab_matuse-werks.

                 if sy-subrc eq 0.

* << Fim da inclusão

  LOOP AT itab_matuse.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RECLASSIFICACAO_IA

               READ TABLE itab_t001w WITH KEY werks = itab_matuse-werks.

        IF sy-subrc EQ 0.

          itab_matuse-bwkey = itab_t001w-bwkey.

          MODIFY itab_matuse.

        ENDIF.

        endloop.

          endif.

    SELECT matnr bwkey bwtar bklas

     FROM mbew INTO TABLE itab_classe_aval

      FOR ALL ENTRIES IN itab_matuse

    WHERE matnr EQ itab_matuse-matnr

      AND bwkey EQ itab_matuse-bwkey

      AND bwtar EQ itab_matuse-bwtar.

  ENDIF.

  LOOP AT itab_matuse.

    READ TABLE itab_classe_aval WITH KEY

         matnr = itab_matuse-matnr

         bwkey = itab_matuse-bwkey

         bwtar = itab_matuse-bwtar.

* << Fim da inclusão

    READ TABLE t_zycit003 WITH KEY ebeln = itab_matuse-ebeln

                                   ebelp = itab_matuse-ebelp.

    CLEAR itab_cta. REFRESH itab_cta.

    CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

         EXPORTING

              bukrs           = i_zycit001-bukrs

              ktosl           = 'IPA'

              werks           = t_zycit003-werks

* >> Início da exclusão: FUNCTION /PWS/ZYCI_RECLASSIFICACAO_IA

              bklas           = space

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_RECLASSIFICACAO_IA

              bklas           = itab_classe_aval-bklas

* << Fim da inclusão

              codaux1         = itab_matuse-j_1bmatuse

              codaux2         = space

              codaux3         = space

         TABLES

              account         = itab_cta

         EXCEPTIONS

              key_not_found   = 1

              rules_not_found = 2

              OTHERS          = 3.

    READ TABLE itab_cta INDEX 1.

...

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

Modificações efetuadas em REPS /PWS/LZYCIGF2X01

...

* >> Início da inclusão:

data: begin of itab_classe_aval occurs 0.

data: matnr like mbew-matnr,

      bwkey like mbew-bwkey,

      bwtar like mbew-bwtar,

      bklas like mbew-bklas.

data: end of itab_classe_aval.

DATA: BEGIN OF itab_t001w OCCURS 0,

            werks LIKE ekpo-werks,

            bwkey LIKE mbew-bwkey,

      END   OF itab_t001w.

* << Fim da inclusão

DATA END OF COMMON PART .