REPORT ZABAP1903_11_LIANXI06.
&---------------------------------------------------------------------
*& Report ZABAP1903_11_BASIC011
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------
///引入类型池
type-pools:slis.
data:gt_fieldcat type slis_t_fieldcat_alv, 存放表头的内表
wa_fieldcat type slis_fieldcat_alv, 存放列标题的工作区
wa_layout type slis_layout_alv. 报表样式工作区
TYPES:BEGIN OF zty_sflight,
CARRID type sflight-carrid, 航班代码
FLDATE TYPE sflight-fldate, 航班日期
PRICE TYPE sflight-price,
PLANETYPE TYPE sflight-PLANETYPE,
CITYFROM TYPE spfli-CITYFROM,
CITYTO type spfli-CITYTO,
FLTIME type spfli-FLTIME,
end of zty_sflight.
data: gt_itab TYPE TABLE OF zty_sflight,
wa_itab TYPE zty_sflight.
PERFORM f_layout.
PERFORM f_fieldcat.
PERFORM get_data. "获取数据
PERFORM f_alvprint.
&---------------------------------------------------------------------
*& Form F_LAYOUT
&---------------------------------------------------------------------
text
----------------------------------------------------------------------
- --> p1 text
- <-- p2 text
----------------------------------------------------------------------
FORM F_LAYOUT .
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
ENDFORM. " F_LAYOUT
&---------------------------------------------------------------------
*& Form F_FIELDCAT
&--------------------------------------------------------------------- text
----------------------------------------------------------------------
- --> p1 text
- <-- p2 text
----------------------------------------------------------------------
FORM F_FIELDCAT .
wa_fieldcat-fieldname = 'CARRID'.
wa_fieldcat-seltext_s = '航线代码'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FLDATE'.
wa_fieldcat-seltext_s = '航班日期'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'PRICE'.
wa_fieldcat-seltext_s = '航空运费'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'PLANETYPE'.
wa_fieldcat-seltext_s = '飞机类型'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'CITYFROM'.
wa_fieldcat-seltext_s = '起飞城市'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'CITYTO'.
wa_fieldcat-seltext_s = '目标城市'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FLTIME'.
wa_fieldcat-seltext_s = '航班时间'.
APPEND wa_fieldcat to gt_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " F_FIELDCAT
&---------------------------------------------------------------------
*& Form GET_DATA
&---------------------------------------------------------------------
text
----------------------------------------------------------------------
- --> p1 text
- <-- p2 text
----------------------------------------------------------------------
FORM GET_DATA .
SELECT
sflight~CARRID
sflight~FLDATE
sflight~PRICE
sflight~PLANETYPE
spfli~CITYFROM
spfli~CITYTO
spfli~FLTIME
from sflight INNER JOIN SPFLI ON SFLIGHT~CONNID = SPFLI~CONNID
into CORRESPONDING FIELDS OF TABLE gt_itab
WHERE SFLIGHT~PLANETYPE = 'DC-10-10' AND sflight~FLDATE BETWEEN '20190101' AND '20190801'.
ENDFORM. " GET_DATA
&---------------------------------------------------------------------
*& Form F_ALVPRINT
&--------------------------------------------------------------------- text
----------------------------------------------------------------------
- --> p1 text
- <-- p2 text
----------------------------------------------------------------------
FORM F_ALVPRINT .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING - I_INTERFACE_CHECK = ' '
- I_BYPASSING_BUFFER = ' '
- I_BUFFER_ACTIVE = ' '
- I_CALLBACK_PROGRAM = ' '
- I_CALLBACK_PF_STATUS_SET = ' '
- I_CALLBACK_USER_COMMAND = ' '
- I_CALLBACK_TOP_OF_PAGE = ' '
- I_CALLBACK_HTML_TOP_OF_PAGE = ' '
- I_CALLBACK_HTML_END_OF_LIST = ' '
- I_STRUCTURE_NAME =
- I_BACKGROUND_ID = ' '
- I_GRID_TITLE =
- I_GRID_SETTINGS =
IS_LAYOUT = wa_layout
IT_FIELDCAT = gt_fieldcat - IT_EXCLUDING =
- IT_SPECIAL_GROUPS =
- IT_SORT =
- IT_FILTER =
- IS_SEL_HIDE =
- I_DEFAULT = 'X'
- I_SAVE = ' '
- IS_VARIANT =
- IT_EVENTS =
- IT_EVENT_EXIT =
- IS_PRINT =
- IS_REPREP_ID =
- I_SCREEN_START_COLUMN = 0
- I_SCREEN_START_LINE = 0
- I_SCREEN_END_COLUMN = 0
- I_SCREEN_END_LINE = 0
- I_HTML_HEIGHT_TOP = 0
- I_HTML_HEIGHT_END = 0
- IT_ALV_GRAPHICS =
- IT_HYPERLINK =
- IT_ADD_FIELDCAT =
- IT_EXCEPT_QINFO =
- IR_SALV_FULLSCREEN_ADAPTER =
- IMPORTING
- E_EXIT_CAUSED_BY_CALLER =
- ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = gt_itab. - EXCEPTIONS
- PROGRAM_ERROR = 1
- OTHERS = 2
.
IF SY-SUBRC <> 0. - Implement suitable error handling here
ENDIF.
ENDFORM. " F_ALVPRINT
结果
