ALV <-> внутренняя таблица

Copperhead

Есть отчёт, написанный давно, где данные выводятся через REUSE_ALV_GRID.
Есть обработка события doubleclick с "проваливанием" в карточку ОС.

Проблема: Если пользователь отсортировал ALV по какому-то другому полю, то при проваливании rs_selfield-tabindex не соответствует индексу внутренней таблицы.

Как "синхронизировать" таблицу на экране и внутренню таблицу? Работу по полю rs_selfied-tabindex не предлагать - есть и другие поля с даблкликом - там не прокатит.

LinevskiySV

переделать под класс cl_salv_table работы на пару часов. Зато синхронизация работает

Copperhead

LinevskiySV написал:

переделать под класс cl_salv_table работы на пару часов. Зато синхронизация работает

Вы бука

Такой способ и я знаю:-). Я ищу так, чтобы без передлки. В крайнем случае буду переписывать. Но часок ещё подожду ответов.

superbizon

внешним assign получить ссылку на гридовый объект и потом вызвать для него CHECK_CHANGED_DATA, по идее таблицы должны после этого синхронизироваться нужным образом.

Вроде еще можно в events при вызове ФМ добавить какое-то событие, которое обеспечит синхронизацию, посмотрите пакет SLIS, наверняка там это как-то решается

lestat

Приведите кусок кода, где вы вызываете фм REUSE_ALV_GRID_DISPLAY

Copperhead

lestat написал:

Приведите кусок кода, где вы вызываете фм REUSE_ALV_GRID_DISPLAY

???

Code:

*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM preview.



  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*       I_INTERFACE_CHECK                 = ' '
*       I_BYPASSING_BUFFER                =
*       I_BUFFER_ACTIVE                   = ' '
        i_callback_program                = g_repid
        i_callback_pf_status_set          = 'SET_PF_STATUS'
        i_callback_user_command           = 'USER_COMMAND'
*       I_CALLBACK_TOP_OF_PAGE            = ' '
*       I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*       I_CALLBACK_HTML_END_OF_LIST       = ' '
*       I_STRUCTURE_NAME                  =
*       I_BACKGROUND_ID                   = ' '
*       I_GRID_TITLE                      =
*       I_GRID_SETTINGS                   =
*       IS_LAYOUT                         =
      it_fieldcat                       = gt_fieldcat2[]
*       IT_EXCLUDING                      =
*       IT_SPECIAL_GROUPS                 =
*       IT_SORT                           =
*       IT_FILTER                         =
*       IS_SEL_HIDE                       =
*       I_DEFAULT                         = 'X'
      i_save                            = 'A'
      is_variant                        = gs_variant
*       IT_EVENTS                         =
*       IT_EVENT_EXIT                     =
*       IS_PRINT                          =
*       IS_REPREP_ID                      =
*       I_SCREEN_START_COLUMN             = 0
*       I_SCREEN_START_LINE               = 0
*       I_SCREEN_END_COLUMN               = 0
*       I_SCREEN_END_LINE                 = 0
*       IT_ALV_GRAPHICS                   =
*       IT_ADD_FIELDCAT                   =
*       IT_HYPERLINK                      =
*       I_HTML_HEIGHT_TOP                 =
*       I_HTML_HEIGHT_END                 =
*       IT_EXCEPT_QINFO                   =
*     IMPORTING
*       E_EXIT_CAUSED_BY_CALLER           =
*       ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = gt_outtab2[] "<gt_itab> "
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDFORM.                    " preview

Copperhead

superbizon написала:

внешним assign получить ссылку на гридовый объект и потом вызвать для него CHECK_CHANGED_DATA, по идее таблицы должны после этого синхронизироваться нужным образом.

Вроде еще можно в events при вызове ФМ добавить какое-то событие, которое обеспечит синхронизацию, посмотрите пакет SLIS, наверняка там это как-то решается

Пробовало я CHECK_CHANGED_DATA - не синхронизуется:-((((

ROKO

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

Как "синхронизировать" таблицу на экране и внутренню таблицу?

Code:

REPORT  zww .
*
TYPE-POOLS : slis.
*
*-----------------------------------------------------------------------
DATA : itab LIKE t001 OCCURS 0 WITH HEADER LINE.

DATA : alvfc TYPE slis_t_fieldcat_alv.

DATA : stab LIKE t001 OCCURS 0 WITH HEADER LINE.
*------------------------------------------------------------------------
SELECT * FROM t001 INTO TABLE itab.
*------------------------------------------------------------------------
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
    i_program_name         = sy-repid
    i_structure_name       = 'T001'
    i_inclname             = sy-repid
  CHANGING
    ct_fieldcat            = alvfc
  EXCEPTIONS
    inconsistent_interface = 1
    program_error          = 2
    OTHERS                 = 3.
*-------------------------------------------------------------------------
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    it_fieldcat             = alvfc
    i_callback_program      = sy-repid
    i_callback_user_command = 'ITAB_USER_COMMAND'
  TABLES
    t_outtab                = itab
  EXCEPTIONS
    program_error           = 1
    OTHERS                  = 2.
*--------------------------------------------------------------------------
FORM itab_user_command USING whatcomm TYPE sy-ucomm whatrow TYPE
slis_selfield.
  READ TABLE itab INDEX whatrow-tabindex.
*
  CLEAR stab.
  SELECT * FROM t001
  INTO TABLE stab
   WHERE bukrs = itab-bukrs.
  CLEAR alvfc.
*----------------------------------------------------------------------------
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = sy-repid
      i_structure_name       = 'T001'
      i_inclname             = sy-repid
    CHANGING
      ct_fieldcat            = alvfc
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
*-----------------------------------------------------------------------------
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat        = alvfc
      i_callback_program = sy-repid
    TABLES
      t_outtab           = stab
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM. "ITAB_user_command

Copperhead

ROKO написал:

READ TABLE itab INDEX whatrow-tabindex.

Вот здесь и засада - если перед этим сортировку в ALV сделать - не те данные выберутся.
Так сейчас и есть - проваливается не в те документы, что на экране.

SYS

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

ROKO написал:

READ TABLE itab INDEX whatrow-tabindex.

Вот здесь и засада - если перед этим сортировку в ALV сделать - не те данные выберутся.
Так сейчас и есть - проваливается не в те документы, что на экране.

Быть такого не может! :shock:

После сортировки в ALV, внутрення таблица тоже сортируется.
Может внутрення таблица где-то раньше изменяется? Или вообще разные таблицы используются.

ROKO

Подпрограмму USER_COMMAND покажите пожалуйста.

Copperhead

Code:

form user_command using r_ucomm like sy-ucomm
                        rs_selfield type slis_selfield.
  break-point.
  case r_ucomm.
    when '&TO_EXCEL'.
      perform export_to_excel.
    when '&IC1'.
      perform drill_down using rs_selfield.
    when '&OUP'.
      perform sort_up using rs_selfield.
    when '&ODN'.
      perform sort_down using rs_selfield.
  endcase.

endform.

Самое интересное, что при нажатии кнопок сортировки (&OUP &ODN) в эту подпрограмму не попадает, при нажатии "TO_EXCEL" или двойном клике - попадает...

Shvetz

&OUP &ODN - это внутренние коды функции, для них внутренний обработчик вызывается.
А так согласен с SYS , при сортировке ALV , если корректная связь с глобальной таблицей , внутренняя таблица так же должна быть отсортирована.

ROKO

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

Code:

form user_command using r_ucomm like sy-ucomm
                        rs_selfield type slis_selfield.
  break-point.
  case r_ucomm.
    when '&TO_EXCEL'.
      perform export_to_excel.
    when '&IC1'.
      perform drill_down using rs_selfield.
....................
endform.

Этого мало. Покажите подпрограмму drill_down. А с той программой, что я Вам предоставил та же Беда ?

Copperhead

Ах тыж блин!

Code:

READ TABLE gt_outtab INTO ls_outtab INDEX rs_selfield-tabindex.

а выводится gt_outtab2 :-(

(((((...

чужой отчёт... чуть голову не сломал. Всем спасибо и прошу прощения за беспокойство.

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

ALV <-> внутренняя таблица

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