Экстрактор для поля BSEG-FDLEV

kompac

Стандартный экстрактор для таблицы BSEG 0FI_GL_4. Но там данного поля я не нашел. Может в 0FI_GL_4 оно как-то по другому называется.
Расширением экстрактора присоединение поля займет мне кажется уйму времени...даже потом при дельте.
Т.к.
Loop at C_T_DATA assing <структура>.
Select single FDLEV from BSEG into <структура>-FDLEV where BURKS = '1016' and BELNR=<структура>BELNR and FDLEV='KZ'.
Endloop.

Выглядит устрашающе, в плане выгрузки записей.
Помогите найти выход из ситуации

12ozmdm

Привет!
инфа как расширить 0FI_GL_4 полем из BSEG в ноте 430303 - Enhancing DataSource 0FI_GL_4 by BSEG fields.
P.S. Сам так делать не пробовал

kompac

Посмотрел данную ноту, вот ее ссылка кстати.
http://www.saptechno.com/sap-notes.html ... &id=430303

В ней насколько я понял написано. Добавьте в структуру BWFI_CI_BSIS поле из BSEG в моем случае FDLEV.
И оно добавиться в структуру экстрактора 0FI_GL_4. И будет выгружаться. Помоему написана какая-то хрень. Попробовал добавить не работает.

12ozmdm

Тогда как-то так:

Code:

  TYPES: BEGIN OF bseg_fields,
    belnr TYPE bseg-belnr,
    gjahr TYPE bseg-gjahr,
    bukrs TYPE bseg-bukrs,
    buzei TYPE bseg-buzei,
    FDLEV TYPE bseg-FDLEV,
  END OF bseg_fields.

  DATA: lt_bseg TYPE HASHED TABLE OF bseg_fields WITH UNIQUE KEY bukrs belnr gjahr buzei.

  FIELD-SYMBOLS: <fs_bseg> TYPE bseg_fields,
                 <fs_data> like line of C_T_DATA.

* буферезируем
    SELECT belnr, gjahr, bukrs, buzei, FDLEV
    INTO CORRESPONDING FIELDS OF TABLE lt_bseg
    FROM bseg
    FOR ALL ENTRIES IN C_T_DATA
    WHERE bukrs = C_T_DATA-bukrs
      AND belnr = C_T_DATA-belnr
      AND gjahr = C_T_DATA-gjahr
      AND buzei = C_T_DATA-buzei
    .

* заполняем C_T_DATA-FDLEV
  LOOP AT C_T_DATA ASSIGNING <fs_data>
  
      READ TABLE lt_bseg ASSIGNING <fs_bseg>
      WITH TABLE KEY
      bukrs = fs_data>-bukrs
      belnr = fs_data>-belnr
      gjahr = fs_data>-gjahr
      buzei = fs_data>-buzei.

      IF sy-subrc EQ 0.
        C_T_DATA-FDLEV = <fs_bseg>-FDLEV.
      ENDIF.
  
  Endloop.

RiTm

12ozmdm написал:

Тогда как-то так:

Code:

 * буферезируем
    SELECT belnr, gjahr, bukrs, buzei, FDLEV
    INTO CORRESPONDING FIELDS OF TABLE lt_bseg
    FROM bseg
    FOR ALL ENTRIES IN C_T_DATA
    WHERE bukrs = C_T_DATA-bukrs
      AND belnr = C_T_DATA-belnr
      AND gjahr = C_T_DATA-gjahr
      AND buzei = C_T_DATA-buzei
    .

Только вот здесь по-хорошему еще учесть, что FOR ALL ENTRIES в случае пустой таблички C_T_DATA будет извлекать всю таблицу bseg, может память переполниться.

12ozmdm

RiTm написал(а):

Только вот здесь по-хорошему еще учесть, что FOR ALL ENTRIES в случае пустой таблички C_T_DATA будет извлекать всю таблицу bseg, может память переполниться.

Ага, спасибо, точно проверку IF C_T_DATA IS NOT INITIAL забыл

Экстрактор для поля BSEG-FDLEV

Кто сейчас на конференции