REPORT z18_003 .
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : grid1 TYPE REF TO cl_gui_alv_grid,
gs_variant LIKE disvariant,
gt_sflight TYPE TABLE OF sflight.
START-OF-SELECTION.
gs_variant-report = sy-repid.
gs_variant-username = sy-uname.
SELECT * FROM sflight INTO TABLE gt_sflight.
CALL SCREEN 100.
*---------------------------------------------------------------------*
* MODULE init_con OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE init_con OUTPUT.
IF con1_ref IS INITIAL.
CREATE OBJECT con1_ref
EXPORTING container_name = 'CON1'.
CREATE OBJECT grid1
EXPORTING
i_parent = con1_ref.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_variant = gs_variant " variant display
i_save = ' '
CHANGING
it_outtab = gt_sflight.
ENDIF.
ENDMODULE. " init_con OUTPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'G100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : grid1 TYPE REF TO cl_gui_alv_grid,
gs_variant LIKE disvariant,
gt_sflight TYPE TABLE OF sflight.
START-OF-SELECTION.
gs_variant-report = sy-repid.
gs_variant-username = sy-uname.
SELECT * FROM sflight INTO TABLE gt_sflight.
CALL SCREEN 100.
*---------------------------------------------------------------------*
* MODULE init_con OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE init_con OUTPUT.
IF con1_ref IS INITIAL.
CREATE OBJECT con1_ref
EXPORTING container_name = 'CON1'.
CREATE OBJECT grid1
EXPORTING
i_parent = con1_ref.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_variant = gs_variant " variant display
i_save = ' '
CHANGING
it_outtab = gt_sflight.
ENDIF.
ENDMODULE. " init_con OUTPUT
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'G100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
130 | REPORT z18_012 [1] | sapjoy | 2007.03.09 | 2404 |
129 | REPORT Z15_045 | sapjoy | 2007.03.08 | 2388 |
128 | REPORT z18_011 [1] | sapjoy | 2007.03.07 | 2326 |
127 | REPORT z18_008 | sapjoy | 2007.03.07 | 2359 |
126 | REPORT z18_007 | sapjoy | 2007.03.07 | 2206 |
125 | REPORT z18_006 | sapjoy | 2007.03.06 | 2423 |
124 | REPORT z18_005 | sapjoy | 2007.03.06 | 2157 |
123 | REPORT z18_004 [1] | sapjoy | 2007.03.05 | 2348 |
» | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
121 | REPORT Z18_002 | sapjoy | 2007.03.05 | 3082 |
120 | Z18_001_PBO | sapjoy | 2007.03.02 | 2585 |
119 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
118 | REPORT Z02_016 | sapjoy | 2007.02.27 | 2294 |
117 | Z17_ZSFLIGHT | sapjoy | 2007.02.26 | 2413 |
116 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2937 |
115 | REPORT Z09_013 | sapjoy | 2007.02.23 | 2243 |
114 | REPORT Z17_020. [2] | sapjoy | 2007.02.23 | 2185 |
113 | REPORT z17_025 | sapjoy | 2007.02.22 | 2202 |
112 | REPORT Z17_020 | sapjoy | 2007.02.22 | 2172 |
111 | REPORT Z17_000. | sapjoy | 2007.02.22 | 2419 |