메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT z18_004

sapjoy 2007.03.05 23:32 조회 수 : 2348


REPORT  z18_004                                                     .

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.

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.


    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SFLIGHT'
        i_save = 'A'
        is_variant       = gs_variant  " variant display
*        i_default        = ' '
      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
번호 제목 글쓴이 날짜 조회 수
430 REPORT Z13_001 sapjoy 2007.01.08 2362
429 report zsalv_013 sapjoy 2010.08.20 2361
428 REPORT z19_002 sapjoy 2007.03.24 2360
427 REPORT z18_008 sapjoy 2007.03.07 2359
426 REPORT Z11_010 sapjoy 2006.12.22 2358
425 Z07_005 sapjoy 2006.12.06 2353
424 REPORT Z017_007 [3] sapjoy 2007.02.11 2353
» REPORT z18_004 [1] sapjoy 2007.03.05 2348
422 report zsalv_023 . sapjoy 2010.08.20 2347
421 REPORT Z17_003 sapjoy 2007.02.08 2347
420 REPORT Z07_018 sapjoy 2006.12.08 2341
419 method DISPLAY_LIST . [2] sapjoy 2007.10.28 2341
418 REPORT z17_18 . sapjoy 2012.08.01 2340
417 REPORT Z10_001 sapjoy 2008.04.14 2339
416 report zsalv_003 sapjoy 2010.08.20 2336
415 REPORT ZBAPI_ALE sapjoy 2009.02.05 2334
414 report zsalv_011 sapjoy 2010.08.20 2331
413 report zsalv_030 . sapjoy 2010.08.20 2330
412 report zsalv_018 . sapjoy 2010.08.20 2327
411 REPORT Z07_012 sapjoy 2006.12.08 2326