生活随笔
收集整理的這篇文章主要介紹了
在alv list小计之后输出分割线
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
程序代碼：
*---type pools
TYPE-POOLS: slis.
*---internal tables
DATA: BEGIN OF it_flight OCCURS 0,
? ?? ? carrid??LIKE sflight-carrid,
? ?? ? connid? ?LIKE sflight-connid,
? ?? ? fldate? ?LIKE sflight-fldate,
? ?? ? seatsmax LIKE sflight-seatsmax,
? ?? ? seatsocc LIKE sflight-seatsocc,
? ?? ?END OF it_flight,
*--internal tables for?ALV
? ?? ?it_fieldcat TYPE??slis_t_fieldcat_alv,
? ?? ?wa_fcat LIKE LINE OF it_fieldcat,
? ?? ?layout TYPE??slis_layout_alv,
? ?? ?it_sort type??slis_t_sortinfo_alv,
? ?? ?wa_sort like line of it_sort.
*---start-of-selection .
START-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
??EXPORTING
? ? i_program_name? ?? ?? ?= sy-repid
? ? i_internal_tabname? ???= 'IT_FLIGHT'
? ? i_inclname? ?? ?? ?? ? = sy-repid
??CHANGING
? ? ct_fieldcat? ?? ?? ?? ?= it_fieldcat
??EXCEPTIONS
? ? inconsistent_interface = 1
? ? program_error? ?? ?? ? = 2.
*----get data
??SELECT carrid
? ?? ?? ?connid
? ?? ?? ?fldate
? ?? ?? ?seatsmax
? ?? ?? ?seatsocc
? ?FROM sflight
? ?INTO CORRESPONDING FIELDS OF TABLE it_flight
? ?UP TO 20 ROWS.
??.
??wa_fcat-do_sum = 'X'.
??MODIFY it_fieldcat FROM wa_fcat TRANSPORTING do_sum
? ?WHERE fieldname = 'SEATSOCC' .
??wa_sort-fieldname = 'CARRID'.
??wa_sort-group = 'UL'.??"顯示分割線
??wa_sort-up = 'X'.
??APPEND wa_sort TO it_sort.
??wa_sort-fieldname = 'CONNID'.
??wa_sort-subtot = 'X'.
??wa_sort-up = 'X'.
??APPEND wa_sort TO it_sort.
??CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
? ? EXPORTING
? ?? ?i_callback_program = sy-repid
? ?? ?is_layout? ?? ?? ? = layout
? ?? ?it_fieldcat? ?? ???= it_fieldcat
? ?? ?it_sort? ?? ?? ?? ?= it_sort
? ? TABLES
? ?? ?t_outtab? ?? ?? ???= it_flight
? ? EXCEPTIONS
? ?? ?program_error? ?? ?= 1. 復制代碼
程序執行效果：
|
與50位技術專家面對面20年技術見證，附贈技術全景圖
總結
以上是生活随笔為你收集整理的在alv list小计之后输出分割线的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
