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 Z07_05. | sapjoy | 2012.07.30 | 943 |
89 | REPORT Z16_02. | sapjoy | 2012.08.01 | 939 |
88 | REPORT z15_11. | sapjoy | 2012.08.01 | 937 |
87 | REPORT z17_11 . | sapjoy | 2012.08.01 | 933 |
86 | REPORT z14_04. | sapjoy | 2012.08.01 | 932 |
85 | REPORT z12_12. | sapjoy | 2012.07.30 | 932 |
84 | REPORT Z12_19 | sapjoy | 2012.07.30 | 931 |
83 | REPORT z05_05. | sapjoy | 2012.07.30 | 931 |
82 | REPORT z12_10. | sapjoy | 2012.07.30 | 927 |
81 | REPORT Z12_20. | sapjoy | 2012.07.30 | 926 |
80 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |
79 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
78 | REPORT Z14_20. | sapjoy | 2012.08.01 | 921 |
77 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
76 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
75 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
74 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
73 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
72 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
71 | REPORT z14_16. [1] | sapjoy | 2012.08.01 | 910 |