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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
630 | REPORT z18_02. | sapjoy | 2012.08.01 | 3092 |
629 | REPORT z20_002 [2] | sapjoy | 2007.04.15 | 3092 |
» | REPORT Z18_002 | sapjoy | 2007.03.05 | 3082 |
627 | report zsalv_004 | sapjoy | 2010.08.20 | 3076 |
626 | Z01_018 [2] | sapjoy | 2006.12.02 | 3043 |
625 | Z02_003 [2] | sapjoy | 2006.12.02 | 3042 |
624 | doi_create [1] | sapjoy | 2008.12.25 | 3040 |
623 | REPORT Z_DYNAMIC_SCREEN [1] | sapjoy | 2010.10.07 | 3034 |
622 | REPORT Z05_014 | sapjoy | 2008.04.14 | 3010 |
621 | Z01_020 [2] | sapjoy | 2006.12.02 | 3008 |
620 | report zsalv_041 . | sapjoy | 2010.08.20 | 2998 |
619 | REPORT Z15_033 | sapjoy | 2007.02.05 | 2987 |
618 | report zsalv_043 . | sapjoy | 2010.08.20 | 2978 |
617 | report zsapdoi_005. | sapjoy | 2008.12.26 | 2978 |
616 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2977 |
615 | report zsalv_032 . | sapjoy | 2010.08.20 | 2976 |
614 | INLUCDE ZXAISU02 | sapjoy | 2008.12.15 | 2961 |
613 | PROGRAM z16_001 | sapjoy | 2007.04.26 | 2952 |
612 | REPORT Z17_028 | sapjoy | 2007.02.26 | 2937 |
611 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |