메뉴 건너뛰기

SAP 한국 커뮤니티



Z18_020 질문입니다.

inoran8203 2012.02.07 18:08 조회 수 : 2313

아래대로 코딩을 하였습니다.

 

REPORT  z18_020                                                     .
TABLES : SFLIGHT.


 

DATA : con1_ref TYPE REF TO cl_gui_custom_container.


 

 


 

TYPES : T_SFLIGHT TYPE SFLIGHT.


 

*DATA : GT_SFLIGHT TYPE TABLE OF T_SFLIGHT.
DATA : GT_SFLIGHT LIKE SFLIGHT OCCURS 0 WITH HEADER LINE.
*
*DATA : BEGIN OF  gt_sflight OCCURS 0.
*       INCLUDE STRUCTURE SFLIGHT.
*DATA : END OF gt_sflight.


 

DATA : grid1  TYPE REF TO cl_gui_alv_grid,
       gs_variant     LIKE disvariant,
       gs_cs_variant  LIKE disvariant,
       gs_layout     TYPE lvc_s_layo,
       gs_toolbar    TYPE ui_functions,
       gt_sort       TYPE lvc_t_sort,
       gt_fieldcat   TYPE lvc_t_fcat.
*       gt_sflight    TYPE TABLE OF sflight.


 

TYPE-POOLS: icon.


 

*---------------------------------------------------------------------*
*       CLASS lcl_event_receiver DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.


 

  PUBLIC SECTION.
    METHODS:


 

    handle_double_click
        FOR EVENT double_click OF cl_gui_alv_grid
            IMPORTING e_row e_column.


 

    METHODS : handle_toolbar
                 FOR EVENT toolbar OF cl_gui_alv_grid
                 IMPORTING e_object e_interactive.


 


    METHODS : handle_command
                 FOR EVENT user_command OF cl_gui_alv_grid
                 IMPORTING e_ucomm.


 

  PRIVATE SECTION.


 

ENDCLASS.                    "lcl_event_receiver DEFINITION


 

*---------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.


 

  METHOD handle_double_click.
    LEAVE TO SCREEN 0.
  ENDMETHOD.                           "handle_double_click


 

*-- Add ToolBar
  METHOD handle_toolbar.


 

    DATA: ls_toolbar  TYPE stb_button.


 

    CLEAR ls_toolbar.
    ls_toolbar-butn_type = 3.
    APPEND ls_toolbar    TO e_object->mt_toolbar.


 

    CLEAR ls_toolbar.
    ls_toolbar-function  = 'RESH'.
    ls_toolbar-icon      = icon_refresh.
    ls_toolbar-quickinfo = 'Refresh'.
    ls_toolbar-text      = ' '.
    ls_toolbar-disabled  = ' '.
    APPEND ls_toolbar    TO e_object->mt_toolbar.


 

  ENDMETHOD.                    "handle_toolbar


 


  METHOD handle_command.
    DATA : l_scroll TYPE lvc_s_stbl.


 

    CASE e_ucomm.
*-  REFRESH
      WHEN 'RESH'.


 

        SELECT * FROM sflight
        INTO CORRESPONDING FIELDS OF TABLE gt_sflight.
        l_scroll-row = 'X'.
        l_scroll-col = 'X'.
        CALL METHOD grid1->refresh_table_display
          EXPORTING
            i_soft_refresh = ''
            is_stable      = l_scroll.
    ENDCASE.
  ENDMETHOD.                    "handle_user_command


 


ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
*


 

DATA :     event_receiver TYPE REF TO lcl_event_receiver.


 


START-OF-SELECTION.
  SELECT * FROM sflight INTO CORRESPONDING FIELDS OF 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.
    PERFORM getting_catalog.
    PERFORM setting_catalog.
    PERFORM setting_toolbar.
    PERFORM setting_sort.
    PERFORM setting_event.


 

    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
        it_toolbar_excluding = gs_toolbar
      CHANGING
        it_outtab            = gt_sflight[]
        it_fieldcatalog      = gt_fieldcat[]
        it_sort              = gt_sort.


 

 


 


  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 .
*- General display options
  gs_layout-cwidth_opt = 'X'.
* TITLE BAR
  gs_layout-grid_title = '필드 카타로그 Key, Fix Column TEST'.
* Selection modes for SEL_MODE
  gs_layout-sel_mode = 'D'.
* Grid pattern
  gs_layout-zebra      = 'X'.
ENDFORM.                    " setting_layout
*&---------------------------------------------------------------------*
*&      Form  setting_toolbar
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GS_TOOLBAR  text
*----------------------------------------------------------------------*
FORM setting_toolbar.
  DATA: l_exclude TYPE ui_func.


 

  l_exclude = cl_gui_alv_grid=>mc_fc_save_variant.
  APPEND l_exclude TO gs_toolbar.


 

  l_exclude = cl_gui_alv_grid=>mc_fc_maintain_variant.
  APPEND l_exclude TO gs_toolbar.


 

ENDFORM.                    " setting_toolbar
*&---------------------------------------------------------------------*
*&      Form  setting_sort
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM setting_sort .


 

  DATA : ls_sort TYPE lvc_s_sort.


 

  ls_sort-spos = '1'.
  ls_sort-fieldname = 'CARRID'.
  ls_sort-up = 'X'.
  ls_sort-subtot = 'X'.
  APPEND ls_sort TO gt_sort.


 

 


 


ENDFORM.                    " setting_sort
*&---------------------------------------------------------------------*
*&      Form  setting_event
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM setting_event .
  CREATE OBJECT event_receiver.
  SET HANDLER event_receiver->handle_double_click FOR grid1.
  SET HANDLER event_receiver->handle_toolbar       FOR grid1.
  SET HANDLER event_receiver->handle_command       FOR grid1.


 

ENDFORM.                    " setting_event
*&---------------------------------------------------------------------*
*&      Form  setting_catalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM setting_catalog .
 FIELD-SYMBOLS: <ls_fcat> TYPE lvc_s_fcat.


 

 LOOP AT GT_FIELDCAT ASSIGNING <ls_fcat>.


 

 IF <ls_fcat>-fieldname EQ 'PRICE'.
  <ls_fcat>-key = 'X'.
 ENDIF.


 

 IF <ls_fcat>-fieldname EQ 'CURRENCY'.
  <ls_fcat>-fix_column = 'X'.
 ENDIF.


 

 ENDLOOP.


 

ENDFORM.                    " setting_catalog
*&---------------------------------------------------------------------*
*&      Form  getting_catalog
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM getting_catalog .
DATA : LT_FIELDCAT TYPE KKBLO_T_FIELDCAT.
  CALL FUNCTION 'K_KKB_FIELDCAT_MERGE'
    EXPORTING
      i_callback_program     = SY-REPID
      i_tabname              = 'GT_SFLIGHT'
*      i_strucname            = i_structure
      i_inclname             = SY-REPID
    CHANGING
      ct_fieldcat            = lt_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      OTHERS                 = 2.
 IF SY-SUBRC EQ 0.
      CALL FUNCTION 'LVC_TRANSFER_FROM_KKBLO'
        EXPORTING
          it_fieldcat_kkblo = lt_fieldcat[]
        IMPORTING
          et_fieldcat_lvc   = gt_fieldcat[].
ENDIF.


 

ENDFORM.                    " getting_catalog

 

근데 첨부와 같은 오류가 뜨더라구요?

원인이 어떻게 되는건지 알고싶습니다^^

 

번호 제목 글쓴이 날짜 조회 수
공지 e-abap에서 출간된 책 소개 [8] 양키 2013.01.31 11747
145 <b>[완료]</b>야호 넷위버 설치 완료 했습니다. ^^ [2] 한사 2008.10.28 2407
144 EASY ABAP 책구입후 [3] 소나무03 2012.05.22 2398
143 240page baishui 2013.07.03 2366
142 sap 말고도 다른 erp도 abap을 쓰나요? [1] kkkaaa 2016.08.02 2332
141 easy abap 2.0 P.203 Function Module 생성할때 질문있습니다. [2] file 싸밥아밥 2013.02.20 2314
» Z18_020 질문입니다. file inoran8203 2012.02.07 2313
139 p.281 - ADJACENT DUPLICATE 구문에 대해 [2] titelsu 2012.11.14 2301
138 자꾸 여쭤봐서 정말 죄송합니다 ㅜㅜ 예제 4-18 질문 드릴게요 [2] file 대왕불갈비 2015.01.08 2283
137 교재구입~! [1] owen 2012.03.13 2243
136 easy abap 구매자입니다. [1] donster 2015.09.11 2234
135 오브젝트네비게이터의 계층구조가 이상합니다. [2] file PHENOME 2012.01.09 2203
134 Easy ABAP 2.0 p.147 질문입니다 [2] 호놀룰루 2013.12.23 2194
133 easy ABAP vs easy ABAP 2.0 차이 [2] 크리스티앙리 2012.09.07 2192
132 책 중, 2장 Package Create 질문입니다. [1] file Bart 2012.05.24 2150
131 운영자님 plus abap 이제 안파나요? [1] 빠코 2015.09.03 2103
130 Z16_004 Subscreen영역 정의 시 궁금한점. [2] SAP너이늠 2015.07.29 2087
129 교재 외의 질문입니다 v.persie 2012.02.06 2077
128 easy abap 2.0 구매했습니다 ^ ^ [1] saparchive 2012.07.31 2062
127 [요청]질문 제목은 상세하게 작성해주세요 sapjoy 2008.04.05 2054
126 Easy ABAP 2.0 p.272 질문입니다. [2] 호놀룰루 2013.12.26 2048