*&---------------------------------------------------------------------*
*& Report ztest201403001
*&
*&---------------------------------------------------------------------*
*& REUSE_ALV_GRID_DISPLAY 简单示例(通用模板)
*&
*&---------------------------------------------------------------------*
REPORT ztest201403001.
TABLES: sflight.
DATA: BEGIN OF gs_data,
sel TYPE boolean, " 用于选择多行
carrid TYPE sflight-carrid, " 航线代码
connid TYPE sflight-connid, " 航班连接 Id
fldate TYPE sflight-fldate, " 航班日期
price TYPE sflight-price, " 航空运费
END OF gs_data.
DATA: gt_data LIKE TABLE OF gs_data. " ALV显示內表
DATA: line TYPE i." ALV行数
" 选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_carrid TYPE sflight-carrid OBLIGATORY. " 航线代码
SELECT-OPTIONS: s_connid FOR sflight-connid, " 航班连接 Id
s_fldate FOR sflight-fldate. " 航班日期
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION. " F8事件
PERFORM get_data.
IF gt_data[] IS INITIAL.
MESSAGE '无符合条件的记录' TYPE 'S' DISPLAY
*& Report ztest201403001
*&
*&---------------------------------------------------------------------*
*& REUSE_ALV_GRID_DISPLAY 简单示例(通用模板)
*&
*&---------------------------------------------------------------------*
REPORT ztest201403001.
TABLES: sflight.
DATA: BEGIN OF gs_data,
sel TYPE boolean, " 用于选择多行
carrid TYPE sflight-carrid, " 航线代码
connid TYPE sflight-connid, " 航班连接 Id
fldate TYPE sflight-fldate, " 航班日期
price TYPE sflight-price, " 航空运费
END OF gs_data.
DATA: gt_data LIKE TABLE OF gs_data. " ALV显示內表
DATA: line TYPE i." ALV行数
" 选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_carrid TYPE sflight-carrid OBLIGATORY. " 航线代码
SELECT-OPTIONS: s_connid FOR sflight-connid, " 航班连接 Id
s_fldate FOR sflight-fldate. " 航班日期
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION. " F8事件
PERFORM get_data.
IF gt_data[] IS INITIAL.
MESSAGE '无符合条件的记录' TYPE 'S' DISPLAY