SAP에서 ABAP 리포트를 개발할 때 ALV 리포트를 많이 만들게 됩니다.
ALV 리포트를 만들 때 헤더(Header)의 필드 제목은 한 줄로 표시되는 것이 일반적입니다.
하지만 표시해야 할 필드의 제목이 길거나 그룹으로 나누어 대분류, 소분류 형식으로 출력해야 하는 경우 필드 제목을 두 줄 이상 출력해야 하는 상황이 생기게 됩니다.
ALV Layout의 기본 Heading 출력을 사용하지 않고, TOP_OF_PAGE에서 WRITE문으로 Heading 부분을 만들어 주는 방식으로 구현할 수 있습니다.
단, 이렇게 했을때는 ALV 기본 기능중에 열(Column)로 처리하는 작업을 할 수 없게 됩니다. (예, 열(Column)의 정렬, 합계 표시하기 등)
이번 글에서는 ABAP ALV의 헤더 제목을 여러 줄(Multi Line)로 출력하는 방법에 대해 알아보겠습니다.
ALV 리포트의 헤더 제목이 여러 라인으로 출력 된 결과 미리보기
▼ 아래 화면은 ‘연도’라는 대분류에 ‘월’이라는 소분류로 나누고, 각 월마다 ‘수량’과 ‘금액’을 출력하는 리포트 입니다.
‘수량’과 ‘금액’의 필드 제목도 두 줄로 출력 되도록 하였습니다.
ALV Grid에서 제목 타이틀을 여러 줄로 출력하는 ABAP Source
▼ ALV Grid의 헤더 타이틀을 여러 라인으로 출력하는 ABAP의 예제 소스입니다.
PROGRAM ymm0001. TYPE-POOLS: slis, icon. DATA: ld_fieldcat TYPE slis_fieldcat_alv. DATA: t_alv_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, alv_layout TYPE slis_layout_alv . DATA : it_fld TYPE slis_t_fieldcat_alv , it_evt TYPE slis_t_event , wa_fld TYPE slis_fieldcat_alv , wa_evt TYPE slis_alv_event , wa_lay TYPE slis_layout_alv . DATA: BEGIN OF itab OCCURS 0, b1qty(10) TYPE p DECIMALS 0, b1amt(10) TYPE p DECIMALS 0, b2qty(10) TYPE p DECIMALS 0, b2amt(10) TYPE p DECIMALS 0, b3qty(10) TYPE p DECIMALS 0, b3amt(10) TYPE p DECIMALS 0, c1qty(10) TYPE p DECIMALS 0, c1amt(10) TYPE p DECIMALS 0, c2qty(10) TYPE p DECIMALS 0, c2amt(10) TYPE p DECIMALS 0, c3qty(10) TYPE p DECIMALS 0, c3amt(10) TYPE p DECIMALS 0, END OF itab. START-OF-SELECTION. * 예제로 사용하기 위해 인터널테이블 채움 itab-b1qty = 40. itab-b1amt = 3900. itab-b2qty = 43. itab-b2amt = 3200. itab-b3qty = 12. itab-b3amt = 1300. itab-c1qty = 23. itab-c1amt = 2830. itab-c2qty = 42. itab-c2amt = 3600. itab-c3qty = 64. itab-c3amt = 7900. APPEND itab. CLEAR itab. itab-b1qty = 44. itab-b1amt = 4900. itab-b2qty = 33. itab-b2amt = 3000. itab-b3qty = 25. itab-b3amt = 2300. itab-c1qty = 52. itab-c1amt = 8530. itab-c2qty = 42. itab-c2amt = 3600. itab-c3qty = 34. itab-c3amt = 2450. APPEND itab. CLEAR itab. itab-b1qty = 20. itab-b1amt = 3000. itab-b2qty = 61. itab-b2amt = 7500. itab-b3qty = 32. itab-b3amt = 4300. itab-c1qty = 23. itab-c1amt = 2830. itab-c2qty = 52. itab-c2amt = 5600. itab-c3qty = 44. itab-c3amt = 5900. APPEND itab. CLEAR itab. CALL FUNCTION ‘REUSE_ALV_EVENTS_GET’ IMPORTING et_events = it_evt. READ TABLE it_evt INTO wa_evt WITH KEY name = slis_ev_after_line_output . wa_evt-form = slis_ev_after_line_output . MODIFY it_evt FROM wa_evt INDEX sy-tabix . READ TABLE it_evt INTO wa_evt WITH KEY name = slis_ev_top_of_page . wa_evt-form = slis_ev_top_of_page . MODIFY it_evt FROM wa_evt INDEX sy-tabix . * 필드 정의 CLEAR: ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B1QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B1AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B2QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B2AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B3QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘B3AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR: ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C1QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C1AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C2QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C2AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C3QTY’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. ld_fieldcat-tabname = ‘ITAB’. ld_fieldcat-fieldname = ‘C3AMT’. ld_fieldcat-outputlen = ’10’. APPEND ld_fieldcat TO t_alv_fieldcat. CLEAR ld_fieldcat. alv_layout-no_colhead = ‘X’ . ” ALV 기본 Heading을 출력하지 않음 CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’ EXPORTING is_layout = alv_layout i_bypassing_buffer = ‘X’ i_callback_program = sy-repid it_fieldcat = t_alv_fieldcat[] it_events = it_evt i_save = ‘A’ TABLES t_outtab = itab. “internal table IF sy-subrc <> 0. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF. *&———————————————————————* *& Form top_of_page *&———————————————————————* * ALV의 Heading 부분을 직접 WRITE문으로 만들어 줌 *———————————————————————-* FORM top_of_page . “Uline for creating a horizontal line ULINE AT 1(133) . “Format color for header background FORMAT COLOR 7 . WRITE: / sy-vline , 32 ‘2021년’. WRITE: 67 sy-vline, 98 ‘2022년’, 133 sy-vline. WRITE: / sy-vline , 11 ‘1월’ ,23 sy-vline, 33 ‘2월’,45 sy-vline, 55 ‘3월’, 67 sy-vline, 77 ‘1월 ‘, 89 sy-vline, 99 ‘2월’, 111 sy-vline, 121 ‘3월’, 133 sy-vline. ULINE. FORMAT COLOR 3 . WRITE: / sy-vline , 5 ‘집계’ ,12 sy-vline, 17 ‘집계’,23 sy-vline, 27 ‘집계’, 34 sy-vline , 38 ‘집계’ ,45 sy-vline, 49 ‘집계’,56 sy-vline, 60 ‘집계’, 67 sy-vline, 71 ‘집계 ‘, 78 sy-vline, 82 ‘집계’, 89 sy-vline, 93 ‘집계’, 100 sy-vline, 104 ‘집계 ‘, 111 sy-vline, 115 ‘집계’, 122 sy-vline, 126 ‘집계’, 133 sy-vline. WRITE: / sy-vline , 5 ‘수량’ ,12 sy-vline, 17 ‘금액’,23 sy-vline, 27 ‘수량’, 34 sy-vline , 38 ‘금액’ ,45 sy-vline, 49 ‘수량’,56 sy-vline, 60 ‘금액’, 67 sy-vline, 71 ‘수량 ‘, 78 sy-vline, 82 ‘금액’, 89 sy-vline, 93 ‘수량’, 100 sy-vline, 104 ‘금액 ‘, 111 sy-vline, 115 ‘수량’, 122 sy-vline, 126 ‘금액’, 133 sy-vline. ENDFORM. “top_of_page |
※ ALV 기본 Heading을 출력하지 않게 설정(alv_layout-no_colhead = ‘X’.)함으로 해서 TOP_OF_PAGE 이벤트의 실행이 이루어 집니다.
※ 함께 읽으면 도움이 될 만한 다른 포스팅 글입니다.
이 글이 도움이 되었기를 바랍니다. ^-^