REPORT z18_006 .
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,
gs_layout TYPE lvc_s_layo,
gt_sflight TYPE TABLE OF sflight.
PARAMETERS: p_vari LIKE disvariant-variant.
INITIALIZATION.
gs_variant-report = sy-repid.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
is_variant = gs_variant
i_save = 'A'
IMPORTING
es_variant = gs_cs_variant
EXCEPTIONS
not_found = 1
program_error = 2
OTHERS = 3.
IF sy-subrc EQ 0.
p_vari = gs_cs_variant-variant.
ENDIF.
START-OF-SELECTION.
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.
* PERFORM setting_layout USING gs_layout.
CALL METHOD grid1->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
i_save = 'A'
is_variant = gs_variant " variant display
i_default = ' '
is_layout = gs_layout
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
*&---------------------------------------------------------------------*
*& Form setting_layout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GS_LAYOCAT text
*----------------------------------------------------------------------*
FORM setting_layout USING p_layout TYPE lvc_s_layo.
*- General display options
p_layout-cwidth_opt = 'X'.
* TITLE BAR
p_layout-grid_title = 'LAYOUT TEST'.
* Selection modes for SEL_MODE
p_layout-sel_mode = 'D'.
* Grid pattern
p_layout-zebra = 'X'.
ENDFORM. " setting_layout
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
471 | REPORT Z04_002 | sapjoy | 2008.04.14 | 2447 |
470 | report zsalv_001 | sapjoy | 2010.08.20 | 2442 |
469 | REPORT z17_19 | sapjoy | 2012.08.01 | 2441 |
468 | REPORT Z07_030 [4] | sapjoy | 2006.12.08 | 2440 |
467 | REPORT z15_031 | sapjoy | 2007.02.05 | 2437 |
466 | REPORT Z13_003 | sapjoy | 2007.01.05 | 2437 |
465 | REPORT Z03_004 | sapjoy | 2007.05.11 | 2433 |
464 | REPORT Z05_026 [2] | sapjoy | 2007.05.28 | 2428 |
463 | report zsalv_031 . | sapjoy | 2010.08.20 | 2427 |
462 | REPORT Z07_015 | sapjoy | 2006.12.08 | 2426 |
461 | REPORT Z03_007 [6] | sapjoy | 2007.05.13 | 2425 |
» | REPORT z18_006 | sapjoy | 2007.03.06 | 2423 |
459 | FUNCTION Z_BAPI_REQ_FUNCLOC. | sapjoy | 2009.02.05 | 2421 |
458 | FUNCTION Z_BAPIALE_SEND. | sapjoy | 2009.02.10 | 2420 |
457 | REPORT Z17_000. | sapjoy | 2007.02.22 | 2419 |
456 | REPORT Z03_009 [1] | sapjoy | 2008.04.14 | 2418 |
455 | report zunicode_030. | sapjoy | 2008.11.21 | 2416 |
454 | Z17_ZSFLIGHT | sapjoy | 2007.02.26 | 2413 |
453 | MODULE creat_listbox [4] | sapjoy | 2007.12.12 | 2411 |
452 | report zunicode_004. | sapjoy | 2008.11.21 | 2410 |