REPORT z16_06.
TYPE-POOLS : slis.
DATA gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA gs_fieldcat TYPE slis_fieldcat_alv.
DATA gt_events TYPE slis_t_event.
DATA gs_event TYPE slis_alv_event.
DATA gt_itab TYPE TABLE OF sflight.
DATA: gs_layout TYPE slis_layout_alv.
SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE
gt_itab UP TO 25 ROWS.
CLEAR : gs_fieldcat, gt_fieldcat.
gs_fieldcat-col_pos = 1.
gs_fieldcat-key = 'X'.
gs_fieldcat-fieldname = 'CARRID'.
gs_fieldcat-seltext_m = 'Airline Code'.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 2.
gs_fieldcat-edit ='X'.
gs_fieldcat-fieldname = 'CONNID'.
gs_fieldcat-seltext_m = 'Connection Number'.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR : gs_fieldcat.
gs_fieldcat-col_pos = 3.
gs_fieldcat-fieldname = 'FLDATE'.
gs_fieldcat-seltext_m = 'Flight Date'.
gs_fieldcat-EDIT_MASK = '____/__/__'.
APPEND gs_fieldcat TO gt_fieldcat.
*gs_layout-NO_INPUT = 'X'.
gs_layout-confirmation_prompt = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
it_events = gt_events
* i_structure_name = 'SFLIGHT'
it_fieldcat = gt_fieldcat
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.
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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
550 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
549 | REPORT z12_11. | sapjoy | 2012.07.30 | 1012 |
548 | REPORT z14_08. [2] | sapjoy | 2012.08.01 | 1012 |
» | REPORT z16_06. | sapjoy | 2012.08.01 | 1012 |
546 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
545 | REPORT z14_14. | sapjoy | 2012.08.01 | 1015 |
544 | REPORT z14_15. | sapjoy | 2012.08.01 | 1018 |
543 | REPORT z15_18. | sapjoy | 2012.08.01 | 1018 |
542 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1019 |
541 | REPORT z05_20. | sapjoy | 2012.07.30 | 1021 |
540 | REPORT z15_28. | sapjoy | 2012.08.01 | 1021 |
539 | REPORT z12_23. | sapjoy | 2012.07.30 | 1022 |
538 | PROGRAM z13_04. | sapjoy | 2012.08.01 | 1023 |
537 | REPORT z14_17. | sapjoy | 2012.08.01 | 1025 |
536 | REPORT z10_07. | sapjoy | 2012.07.30 | 1031 |
535 | REPORT z12_28. | sapjoy | 2012.07.30 | 1032 |
534 | REPORT z15_05. | sapjoy | 2012.08.01 | 1046 |
533 | REPORT z04_16. | sapjoy | 2012.07.30 | 1047 |
532 | REPORT z07_04. [1] | sapjoy | 2012.07.30 | 1058 |
531 | REPORT z07_01. | sapjoy | 2012.07.30 | 1059 |