Users Dialogs: Lists

最新推荐文章于 2024-07-13 16:33:19 发布

最新推荐文章于 2024-07-13 16:33:19 发布 · 116 阅读

ABAP/4 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一种使用ABAP编程语言处理航班数据的方法。通过从主列表读取数据并显示航空公司ID、连接ID等信息，随后隐藏这些字段，并进一步选择次级列表的数据，如航班日期和座位情况等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

data: wa_spfli type spfli,
          wa_sflight type sflight.


start-of-selection.

* Read data for primary list and display
  select carrid connid airpfrom cityfrom airpto cityto deptime arrtime
         from spfli
         into corresponding fields of wa_spfli.

    format color col_key.
    write: / wa_spfli-carrid ,
             wa_spfli-connid .

    format color col_normal.
    write:   wa_spfli-airpfrom ,
             wa_spfli-cityfrom ,
             wa_spfli-airpto ,
             wa_spfli-cityto ,
             wa_spfli-deptime ,
             wa_spfli-arrtime .
*   Hide information
    hide: wa_spfli-carrid, wa_spfli-connid.

  endselect.

* Preparing regular line selection check
* CLEAR wa_spfli.



at line-selection.

  if sy-lsind = 1.

*   Check if regular line was selected
*   IF NOT wa_spfli IS INITIAL.

      write: text-001 color col_normal,      " Page header
             wa_spfli-carrid color col_total,
             wa_spfli-connid color col_total.
      skip.
      format color col_heading.
      write: text-003, text-004, text-005.
      skip.
      format color col_normal.

*     Select data for secondary list
      select fldate seatsmax seatsocc
             from sflight
             into corresponding fields of wa_sflight
             where  carrid = wa_spfli-carrid
              and   connid = wa_spfli-connid.
*       Creating secondary list
        write: / wa_sflight-fldate   color col_key    under text-003,
                 wa_sflight-seatsmax color col_normal under text-004,
                 wa_sflight-seatsocc color col_normal under text-005.
      endselect.

*   ENDIF.

  endif.

AT LINE-SELECTION 可以嵌套使用通过 sy-lisnd 来判断当前是第几层，参数传递通过 HIDE