REPORT z16_04.
TYPE-POOLS : slis.
DATA gt_events TYPE slis_t_event.
DATA gs_event TYPE slis_alv_event.
DATA gt_itab TYPE TABLE OF sflight.
SELECT * FROM sflight INTO TABLE gt_itab
UP TO 25 ROWS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = gt_events
* EXCEPTIONS
* LIST_TYPE_WRONG = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
MOVE 'PF_STATUS_SET' TO gs_event-name.
MOVE 'ALV_STATUS_SET' TO gs_event-form.
APPEND gs_event TO gt_events.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_events = gt_events
i_structure_name = 'SFLIGHT'
i_callback_user_command = 'ALV_USER_COMMAND'
TABLES
t_outtab = gt_itab.
*&---------------------------------------------------------------------*
*& Form alv_user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_UCOMM text
* -->P_SELFIELD text
*----------------------------------------------------------------------*
FORM alv_user_command USING p_ucomm LIKE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN 'CLOSE'.
LEAVE PROGRAM.
WHEN 'SAVE'.
MODIFY sflight FROM TABLE gt_itab.
WHEN OTHERS.
ENDCASE.
ENDFORM. " ALV_USER_COMMAND
*&---------------------------------------------------------------------*
*& Form alv_status_set
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PT_EXTAB text
*----------------------------------------------------------------------*
FORM alv_status_set USING pt_extab TYPE slis_t_extab .
CLEAR: pt_extab[].
* SET PF-STATUS 'ALV_STATUS'.
SET PF-STATUS 'STANDARD_FULLSCREEN'.
ENDFORM. "ALV_STATUS_SET
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
190 | REPORT z04_05. | sapjoy | 2012.07.30 | 1439 |
189 | REPORT z03_24 [1] | sapjoy | 2012.07.30 | 1428 |
188 | REPORT z17_13 . | sapjoy | 2012.08.01 | 1426 |
187 | REPORT z04_04. | sapjoy | 2012.07.30 | 1411 |
186 | PROGRAM z13_01. | sapjoy | 2012.08.01 | 1410 |
185 | REPORT z16_11. | sapjoy | 2012.08.01 | 1398 |
184 | REPORT z15_24. | sapjoy | 2012.08.01 | 1394 |
183 | REPORT z03_25. | sapjoy | 2012.07.30 | 1367 |
182 | REPORT z12_31. | sapjoy | 2012.07.30 | 1312 |
181 | REPORT z15_12. | sapjoy | 2012.08.01 | 1295 |
180 | REPORT z12_06. | sapjoy | 2012.07.30 | 1294 |
» | REPORT z16_04. | sapjoy | 2012.08.01 | 1246 |
178 | REPORT Z12_22 | sapjoy | 2012.07.30 | 1226 |
177 | REPORT z15_17. [1] | sapjoy | 2012.08.01 | 1219 |
176 | REPORT z15_23. [1] | sapjoy | 2012.08.01 | 1216 |
175 | REPORT z12_27. | sapjoy | 2012.07.30 | 1208 |
174 | REPORT z15_20. | sapjoy | 2012.08.01 | 1195 |
173 | report Z12_33 | sapjoy | 2012.07.30 | 1193 |
172 | REPORT z15_25. [1] | sapjoy | 2012.08.01 | 1190 |
171 | REPORT z16_10. | sapjoy | 2012.08.01 | 1183 |