Как вывести номера строк в 'REUSE_ALV_GRID_DISPLAY'

nickstarnew

Добрый день!

Если уже кто реализовал, подскажите. Как с помощью в функции 'REUSE_ALV_GRID_DISPLAY' в качестве первого столбца вывести нумерацию строк?

Предполагаю, что где то здесь нужно изменить? Но вот что?

Code:

FORM build_fieldcatalog.
  FIELDCATALOG-FIELDNAME   = 'BUKRS'.
  FIELDCATALOG-SELTEXT_M   = 'БЕ'.
  FIELDCATALOG-COL_POS     = 0.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'ANLN1'.
  FIELDCATALOG-SELTEXT_M   = '№ ОЗОС'.
  FIELDCATALOG-COL_POS     = 1.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'ANLKL'.
  FIELDCATALOG-SELTEXT_M   = 'Ед. изм.'.
  FIELDCATALOG-COL_POS     = 2.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
  FIELDCATALOG-FIELDNAME   = 'GJAHR'.
  FIELDCATALOG-SELTEXT_M   = 'Номер документа'.
  FIELDCATALOG-COL_POS     = 3.
  FIELDCATALOG-OUTPUTLEN   = 20.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG

FORM display_alv_report .
  GD_REPID = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = GD_REPID
      "I_CALLBACK_TOP_OF_PAGE  = 'TOP-OF-PAGE'  "see FORM
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IT_FIELDCAT             = FIELDCATALOG[]
      I_SAVE                  = 'X'
      IS_VARIANT              = G_VARIANT
    TABLES
      t_outtab                = it_alvg_data
    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.                    "DISPLAY_ALV_REPORT

weise

Имеется ввиду что-то вроде такого?

Code:

FORM build_fieldcatalog.
  FIELDCATALOG-FIELDNAME   = 'N'.
  FIELDCATALOG-SELTEXT_M   = '№'.
  FIELDCATALOG-COL_POS     = 0.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'BUKRS'.
  FIELDCATALOG-SELTEXT_M   = 'БЕ'.
  FIELDCATALOG-COL_POS     = 1.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'ANLN1'.
  FIELDCATALOG-SELTEXT_M   = '№ ОЗОС'.
  FIELDCATALOG-COL_POS     = 2.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'ANLKL'.
  FIELDCATALOG-SELTEXT_M   = 'Ед. изм.'.
  FIELDCATALOG-COL_POS     = 3.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'GJAHR'.
  FIELDCATALOG-SELTEXT_M   = 'Номер документа'.
  FIELDCATALOG-COL_POS     = 4.
  FIELDCATALOG-OUTPUTLEN   = 20.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG

И в таблицу it_alvg_data добавить поле N и логику его заполнения.

nickstarnew

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

Имеется ввиду что-то вроде такого?

Code:

FORM build_fieldcatalog.
  FIELDCATALOG-FIELDNAME   = 'N'.
  FIELDCATALOG-SELTEXT_M   = '№'.
  FIELDCATALOG-COL_POS     = 0.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'BUKRS'.
  FIELDCATALOG-SELTEXT_M   = 'БЕ'.
  FIELDCATALOG-COL_POS     = 1.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'ANLN1'.
  FIELDCATALOG-SELTEXT_M   = '№ ОЗОС'.
  FIELDCATALOG-COL_POS     = 2.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'ANLKL'.
  FIELDCATALOG-SELTEXT_M   = 'Ед. изм.'.
  FIELDCATALOG-COL_POS     = 3.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.

  FIELDCATALOG-FIELDNAME   = 'GJAHR'.
  FIELDCATALOG-SELTEXT_M   = 'Номер документа'.
  FIELDCATALOG-COL_POS     = 4.
  FIELDCATALOG-OUTPUTLEN   = 20.
  APPEND FIELDCATALOG TO FIELDCATALOG.
  CLEAR  FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG

И в таблицу it_alvg_data добавить поле N и логику его заполнения.

Да, в точку. Как это реализовать?

weise

В смысле, логику заполнения? Что-то типа:

Code:

FIELD-SYMBOLS:
  <ls_alvg_data> LIKE LINE OF it_alvg_data.

LOOP AT it_alvg_data ASSIGNING <ls_alvg_data>.
  <ls_alvg_data>-n = sy-tabix.
ENDLOOP.

nickstarnew

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

В смысле, логику заполнения? Что-то типа:

Code:

FIELD-SYMBOLS:
  <ls_alvg_data> LIKE LINE OF it_alvg_data.

LOOP AT it_alvg_data ASSIGNING <ls_alvg_data>.
  <ls_alvg_data>-n = sy-tabix.
ENDLOOP.

И куда это воткнуть?

weise

Например, в начало display_alv_report

nickstarnew

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

Например, в начало display_alv_report

УРА, спасибо. Извини что туплю, но думаю что только через год после знакомства с АБАП что то начнешь понимать в системе ;-)

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

Как вывести номера строк в 'REUSE_ALV_GRID_DISPLAY'

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