Обновление списка (НЕ ALV)

Bit

Подскажите, есть ли решение задачи "Обновление базового списка" (т.е. когда данные выборки выводятся не в ALV а обыкновенным write'ом).

Более развёрнуто: в отчёте выводится несколько тысяч записей, по двойному клику на выбранной строке проваливаемся в транзакцию, возвращаемся обратно, и если были изменения, то перерисовываем эту строку. Понятно что легче использовать ALV, но нужен именно обычный список. Заранее спасибо.

Сергей Королев

Сейчас негде проверить, но вроде нужно SY-LSIND присвоить 0, а потом вызвать заново все WRITE'ы. Поскольку это должно вызываться из события AT USER-COMMAND, то весь вывод нужно запихнуть в подпрограмму.

РМщик

зачем вызывать снова все write-ы , если надо обновить одну строку?

по-моему классический случай - нужно воспользоваться

MODIFY CURRENT LINE.
MODIFY LINE N ...

Сергей Королев

РМщик написал(а):

зачем вызывать снова все write-ы , если надо обновить одну строку?

М-да.. Не дочитал.. :oops:

РМщик

вот простенький примерчик:

Code:

REPORT  ZUSER_PARAM                       .

DATA:  BEGIN OF ZAP OCCURS 0,
          NAMES(20),
          ST TYPE I,
       END OF ZAP,
       I TYPE I VALUE 0.

START-OF-SELECTION.

  CLEAR: ZAP. REFRESH ZAP.

  DO 100 TIMES.
    ADD 1 TO I.
    ZAP-NAMES = I.
    APPEND ZAP.
    WRITE:/ ZAP-NAMES, ZAP-ST.
  ENDDO.

AT LINE-SELECTION.
  I = SY-LILLI - 2.
  READ TABLE ZAP INDEX I.
  CHECK SY-SUBRC = 0.
  CALL TRANSACTION 'SU01'.
  ADD 1 TO ZAP-ST.
  MODIFY ZAP INDEX I.
  ADD 2 TO I.
  MODIFY  LINE I FIELD VALUE ZAP-ST.

Гость

Огромное спасибо!

Bit

Это я был

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

Обновление списка (НЕ ALV)

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