Помогите определиться со способом вывода списка

nickmne

Добрый день.
Помогите, пожалуйста. У меня есть задание, вывести содержимое внутренней таблицы в ввиде списка, где к тому же последнее поле может быть либо значение, либо если его нет, checkbox, где пользователь поставит признак, выполнять ли действие по этой записи или нет. Я новичок еще в ABAP, поэтому вижу способы только очень корявые. А я так подозреваю, должны быть более менее красивые возможности реализовать подобное, просто я их еще не знаю... Подскажите, пожалуйста, возможные варианты, либо саповские проги, где есть что-то подобное, посмотрю как сделано.
Заранее всем спасибо.

РМщик

попробуй для начала запустить простенькую прогу

Code:

REPORT  ZALV_SHABLON3                                .

TYPE-POOLS: SLIS, KKBLO.

DATA: BEGIN OF T_T001 OCCURS 0.
        INCLUDE STRUCTURE T001.
DATA:   CH,
      END OF T_T001,
      
      CT TYPE SLIS_T_FIELDCAT_ALV,
      CL LIKE LINE OF CT,
      PRN LIKE SY-REPID.


START-OF-SELECTION.

  PERFORM READDAN.

  PERFORM VALV.

FORM READDAN.
  CLEAR: T_T001, T_T001[], CT, CT[].
  SELECT * FROM T001 INTO CORRESPONDING FIELDS OF TABLE T_T001.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME     = SY-REPID
      I_INTERNAL_TABNAME = 'T_T001'
      I_INCLNAME         = SY-REPID
    CHANGING
      CT_FIELDCAT        = CT
    EXCEPTIONS
      OTHERS             = 99.

  READ TABLE CT INTO CL WITH KEY FIELDNAME = 'CH'.
  CL-CHECKBOX = 'X'.
  CL-EDIT = 'X'.
  CL-OUTPUTLEN = 3.

  DELETE CT WHERE FIELDNAME = 'CH'.
  INSERT CL INTO CT INDEX 1.
  LOOP AT CT INTO CL.
    CL-COL_POS = SY-TABIX.
    MODIFY CT FROM CL.
  ENDLOOP.

ENDFORM.                   

FORM VALV.
  PRN = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = PRN
      I_SAVE             = 'A'
      IT_FIELDCAT        = CT
    TABLES
      T_OUTTAB           = T_T001[].
ENDFORM.              

aht

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

Добрый день.
Помогите, пожалуйста. У меня есть задание, вывести содержимое внутренней таблицы в ввиде списка, где к тому же последнее поле может быть либо значение, либо если его нет, checkbox, где пользователь поставит признак, выполнять ли действие по этой записи или нет. Я новичок еще в ABAP, поэтому вижу способы только очень корявые. А я так подозреваю, должны быть более менее красивые возможности реализовать подобное, просто я их еще не знаю... Подскажите, пожалуйста, возможные варианты, либо саповские проги, где есть что-то подобное, посмотрю как сделано.
Заранее всем спасибо.

вот Вам, начинайте!!!
тр. ABAPDOCU (пр. SAPMSABAPDEMOS_TREE)

nickmne

Спасибо РМщик за программку. Но к сожалению, у меня в задании стоит или значение или checkbox, а в случае с гридом, всегда будут присутствовать оба поля..., или я ошибаюсь и есть варианты?

РМщик

в алв такое можно, но только через классы.

попробуй тогда совсем по-простому:

Code:

REPORT  ZALV_SHABLON3                                .

TYPE-POOLS: SLIS, KKBLO.

DATA:  T_T001 LIKE T001 OCCURS 0 WITH HEADER LINE.


START-OF-SELECTION.

  CLEAR: T_T001, T_T001[].
  SELECT * FROM T001 APPENDING TABLE T_T001.

   LOOP AT T_T001.
      IF SY-TABIX = 1 OR SY-TABIX = 3.
          WRITE:/ T_T001-BUKRS, T_T001-BUTXT, T_T001-WAERS.
      ELSE.
          WRITE:/ T_T001-BUKRS, T_T001-BUTXT, T_T001-KOKFI AS CHECKBOX.
      ENDIF.

   ENDLOOP.

nickmne

Спасибо.
Действительно просто, но действенно. Но Вы упомянули про возможность создания подобного в гриде на основе классов. Нельзя немного поподробнее или ссылку на примерчик. Простые гриды на основе классов я уже строил, интересно релизовать это с помощью него.

abap

BCALV_TEST_FULLSCREEN

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

Помогите определиться со способом вывода списка

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