ABAP ALV顯示例子

 

 

REPORT  ZTEST_QY.

*ALV用到的類庫
TYPE-POOLS:slis.

DATA: wa_alv_filed TYPE slis_fieldcat_alv, "列描述
      wa_alv_filedcat TYPE slis_t_fieldcat_alv."列描述內表,列清單

*定義工做區
DATA: wa type spfli,

*定義內表
itab_wa LIKE TABLE OF wa WITH HEADER LINE.

data: begin of wa_spfli ,
      carrid type spfli-carrid,
      connid type spfli-connid,
      cityfrom type spfli-cityfrom,
      airpfrom type spfli-airpfrom,
      cityto type spfli-cityto,
      airpto type spfli-airpto,
      end of wa_spfli,
      it_spfli like table of wa_spfli with header line.

data: g_qiqi like sy-datum,
      g_zhiqi like sy-datum.
SELECT-OPTIONS: gs_qiqi FOR g_qiqi,
                gs_zhiqi FOR g_zhiqi.

*查詢數據放到工做區,工做區處理後放到內表
SELECT carrid connid cityfrom airpfrom cityto airpto
FROM spfli INTO table it_spfli up to 5 rows .

*定義列信息
wa_alv_filed-col_pos = 1.
wa_alv_filed-fieldname = 'CARRID'.  " 對應的內表中的字段名稱
wa_alv_filed-seltext_m = '航線承運人ID'. "ALV中顯示的標題
"wa_alv_filed-outputlen = 20. " 列的顯示寬度，能夠不設置
APPEND wa_alv_filed TO wa_alv_filedcat.

wa_alv_filed-col_pos = 2.
wa_alv_filed-fieldname = 'CONNID'.
wa_alv_filed-seltext_m = '航班鏈接Id'.
APPEND wa_alv_filed TO wa_alv_filedcat.

WA_ALV_FILED-COL_POS = 3.
WA_ALV_FILED-FIELDNAME = 'CITYFROM'.
WA_ALV_FILED-SELTEXT_M = '起飛城市'.
APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 4.
WA_ALV_FILED-FIELDNAME = 'AIRPFROM'.
WA_ALV_FILED-SELTEXT_M = '起飛機場'.
APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 5.
WA_ALV_FILED-FIELDNAME = 'CITYTO'.
WA_ALV_FILED-SELTEXT_M = '目標城市'.
APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

WA_ALV_FILED-COL_POS = 6.
WA_ALV_FILED-FIELDNAME = 'AIRPTO'.
WA_ALV_FILED-SELTEXT_M = '目的機場'.
APPEND WA_ALV_FILED TO WA_ALV_FILEDCAT.

*調用ALV顯示錶單數據 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'   EXPORTING     it_fieldcat = wa_alv_filedcat   TABLES     t_outtab    = it_spfli.