Поток документов - нужен первоисточник

hitcher

Добрый день.
Есть задача - по возвратному документу поставки выйти на первоначальный заказ. Проблема в том, что по таблице потока документов VBFA с ключом VBELV дикие тормоза, а если искать первоначальные документы в цикле, то вообще армагедон. Другой вариант - взять номер предыдущего документа VGBEL в возвратном документе, потом спозиционироваться на нем и взять номер его предыдущего документа, и так далее. Тоже достаточно сложно.
Может быть кто-нибудь знает другой способ, более быстрый и легкий? Может есть дополнительные свпомогательные таблицы на этот случай?

Гость

А что если при создании документа определять источник и писать напимер в поле VBAK-ZUONR. В транзакции VOFM определить условия переноса, копирования данных или user-exitами.

hitcher

Ну это как вариант, конечно, только это делать надо, и у предыдущих документов переопределять как-то. Думал, может есть какие-нибудь вспомогательные таблицы или методики :roll:

T

Искать по VBFA - это норма.
Можно раскручивать поток например вот так

Code:

  tables: vbak.

  select-options: s_vbeln for vbak-vbeln obligatory.
  parameters: p_vbtyp type vbtyp obligatory default 'M'.

  data: lt_vbfa type table of vbfa with header line.

  select *
    from vbfa
    into table lt_vbfa
   where vbeln in s_vbeln
     and vbtyp_n = p_vbtyp
     .

  if not lt_vbfa[] is initial.
    select *
      from vbfa
      appending table lt_vbfa
       for all entries in lt_vbfa
     where vbeln = lt_vbfa-vbelv
       and posnn = lt_vbfa-posnv
       and vbtyp_n = lt_vbfa-vbtyp_n.
  endif.

  loop at lt_vbfa.
    write: / lt_vbfa-vbelv, lt_vbfa-posnv, lt_vbfa-vbtyp_v,
             lt_vbfa-vbeln, lt_vbfa-posnn, lt_vbfa-vbtyp_n.
  endloop.

hitcher

Я понимаю, что искать по VBFA - это правильно.
Только даже при просмотре таблицы VBFA в транзакции SE38 при поиске всего по
vbeln = lt_vbfa-vbelv
posnn = lt_vbfa-posnv
строка ищется минуты три. В итоге дикие тормоза. Может в консерватории что-то не так?

T

Да, с консервами не так, наверное..

В нашей VBFA ~3000000 записей. Всё ищется в лёт. Причем нет ни одного индекса. Всё чисто на ключах.

Кстати, приведённый пример запускать не пробовал? Долго работает?

Clarus

Попробуй сделать отдельный индекс по VBELN POSNN VBTYP_N, моежт поможет. А вообще странно, это ж сколько у тебя там должно быть записей, чтобы были такие тормоза... У меня - больше двух милионов, все летает. Хотя это немного, наверное.

Sergo

Согласен с:

Code:

Я понимаю, что искать по VBFA - это правильно. 
Только даже при просмотре таблицы VBFA в транзакции SE38 при поиске всего по 
vbeln = lt_vbfa-vbelv 
posnn = lt_vbfa-posnv 
строка ищется минуты три. В итоге дикие тормоза. Может в консерватории что-то не так? 

Насчет

Code:

В нашей VBFA ~3000000 записей. Всё ищется в лёт.

Маловато.
В нашей 12 миллионов.
И приведенный код

Code:

  tables: vbak. 

  select-options: s_vbeln for vbak-vbeln obligatory. 
  parameters: p_vbtyp type vbtyp obligatory default 'M'. 

  data: lt_vbfa type table of vbfa with header line. 

  select * 
    from vbfa 
    into table lt_vbfa 
   where vbeln in s_vbeln 
     and vbtyp_n = p_vbtyp 
     . 

  if not lt_vbfa[] is initial. 
    select * 
      from vbfa 
      appending table lt_vbfa 
       for all entries in lt_vbfa 
     where vbeln = lt_vbfa-vbelv 
       and posnn = lt_vbfa-posnv 
       and vbtyp_n = lt_vbfa-vbtyp_n. 
  endif. 

  loop at lt_vbfa. 
    write: / lt_vbfa-vbelv, lt_vbfa-posnv, lt_vbfa-vbtyp_v, 
             lt_vbfa-vbeln, lt_vbfa-posnn, lt_vbfa-vbtyp_n. 
  endloop. 

долговат.

Sergo

Мы используем именно так:

Code:

Другой вариант - взять номер предыдущего документа VGBEL в возвратном документе, потом спозиционироваться на нем и взять номер его предыдущего документа, и так далее.

T

Ну что ж, тогда и вправду VGBEL рулит

hitcher

У нас за первые полгода полета 4.5 миллиона записей в VBFA накопилось, индексов у таблицы видимо нет, если б умел сделал :)
Так что пока решил на этом остановиться (поиск первоначального запроса/заказа для поставки):
[code]
DATA: BEGIN OF wa_vbak,
vbeln TYPE vbak-vbeln,
vgbel TYPE vbak-vgbel,
END OF wa_vbak.

SELECT SINGLE vgbel FROM lips INTO wa_vbak-vgbel
WHERE vbeln EQ lt_likp-vbeln.
DO.
SELECT SINGLE vbeln vgbel FROM vbak
INTO (wa_vbak-vbeln, wa_vbak-vgbel)
WHERE vbeln EQ wa_vbak-vgbel.
IF sy-subrc > 2. EXIT. ENDIF.
IF wa_vbak-vgbel IS INITIAL. EXIT. ENDIF.
ENDDO.
[/code]

RoadRunner

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

индексов у таблицы видимо нет, если б умел сделал

SE11, кнопка "Индексы". Выскакивает окошко с существующими индексами и кнопками создания и удаления индексов

qq

Не знаю о создании каких индексов идет речь, но у нас в системе VBFA - таблица кластера и индексы создавать не дает и реально ищет только по VBELV и POSNV.
Запросы типа
select *
from vbfa
into table lt_vbfa
where vbeln in s_vbeln
and vbtyp_n = p_vbtyp
это 100% фулскан и следовательно тормоза. Поэтому тоже пользуемся VGBEL

T

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

Не знаю о создании каких индексов идет речь, но у нас в системе VBFA - таблица кластера и индексы создавать не дает и реально ищет только по VBELV и POSNV.

Видимо с какой-то версии она становится прозрачной. В 4.6 - прозрачная.

qq

У нас 46С.

Правда кучу раз проапгрейченая (может чуть ли ни с 3-ей)

Правила форума

Поток документов - нужен первоисточник

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