REPORT Z18_002 .
DATA : con1_ref TYPE REF TO cl_gui_custom_container.
DATA : grid1 TYPE REF TO cl_gui_alv_grid,
gs_variant LIKE disvariant,
gs_cs_variant LIKE disvariant,
gt_sflight TYPE TABLE OF sflight.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = gs_variant
i_save = 'A'
IMPORTING
* e_exit = g_exit
es_variant = gs_cs_variant
EXCEPTIONS
not_found = 1
program_error = 2
OTHERS = 3.
START-OF-SELECTION.
SELECT * FROM sflight INTO TABLE gt_sflight.
CALL SCREEN 100.
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'
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.
CASE SY-UCOMM.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
LEAVE TO SCREEN 0.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z15_036 | sapjoy | 2007.02.05 | 2214 |
89 | REPORT Z15_035 | sapjoy | 2007.02.05 | 2162 |
88 | REPORT Z15_034 | sapjoy | 2007.02.05 | 2079 |
87 | REPORT Z15_033 | sapjoy | 2007.02.05 | 2987 |
86 | REPORT z15_032 | sapjoy | 2007.02.05 | 2578 |
85 | REPORT z15_031 | sapjoy | 2007.02.05 | 2437 |
84 | REPORT Z15_028 | sapjoy | 2007.02.01 | 2509 |
83 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
82 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
81 | REPORT Z15_005 | sapjoy | 2007.01.31 | 2503 |
80 | REPORT z15_024 | sapjoy | 2007.01.30 | 2239 |
79 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
78 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
77 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
76 | REPORT Z15_020 | sapjoy | 2007.01.29 | 2524 |
75 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
74 | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
73 | REPORT z15_014 | sapjoy | 2007.01.26 | 2625 |
72 | REPORT z_15_012 | sapjoy | 2007.01.26 | 2176 |
71 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |