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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
649 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
648 | REPORT z19_01. | sapjoy | 2012.08.01 | 3526 |
647 | z_exception_test | sapjoy | 2010.10.10 | 3520 |
646 | report zsalv_036 . | sapjoy | 2010.08.20 | 3472 |
645 | REPORT ZSMARTFORMS_03. | sapjoy | 2008.11.28 | 3345 |
644 | REPORT z18_04 . | sapjoy | 2012.08.01 | 3344 |
643 | REPORT z18_05 | sapjoy | 2012.08.01 | 3328 |
642 | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
» | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
640 | subroutine pool | sapjoy | 2013.11.15 | 3273 |
639 | REPORT z19_004 | sapjoy | 2007.03.27 | 3230 |
638 | REPORT Z_WHEREUSEDLIST [4] | sapjoy | 2011.03.28 | 3215 |
637 | REPORT ZALVCOLOR | sapjoy | 2010.10.09 | 3212 |
636 | REPORT ZSAPTIP_002. | sapjoy | 2009.02.20 | 3206 |
635 | zsalv_edit [1] | sapjoy | 2010.08.20 | 3205 |
634 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3205 |
633 | REPORT z18_06. | sapjoy | 2012.08.01 | 3147 |
632 | REPORT zsapdoi_001. [2] | sapjoy | 2008.12.20 | 3135 |
631 | report zsalv_042 . | sapjoy | 2010.08.20 | 3132 |
630 | REPORT z18_01. | sapjoy | 2012.08.01 | 3108 |