Chinaunix首页 | 论坛 | 博客
  • 博客访问: 701934
  • 博文数量: 255
  • 博客积分: 5000
  • 博客等级: 大校
  • 技术积分: 2811
  • 用 户 组: 普通用户
  • 注册时间: 2010-06-09 13:29
个人简介

IT业行者,行者无疆

文章分类

全部博文(255)

文章存档

2011年(121)

2010年(134)

我的朋友

分类:

2011-06-20 17:22:54

*&---------------------------------------------------------------------*
*& Report  YGYTEST061
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  YGYTEST061.
*定义使用图标,按钮使用
INCLUDE .
*定义事件类型
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
*功能码返回值
DATA:OK_CODE TYPE SY-UCOMM,
     SAVE_OK LIKE OK_CODE.
*定义事件
DATA EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
*定义内表,变量需要传递,不加HEADER LINE.
DATA:WA_SPFLI TYPE TABLE OF SPFLI,
     A_SPFLI LIKE SPFLI.
*内表赋值
SELECT * INTO TABLE WA_SPFLI FROM SPFLI.
*定义窗口定制控制,定义ALV对象
DATA:WA_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',
     ALV_GRID TYPE REF TO CL_GUI_ALV_GRID,
     WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
*直接调用窗口
CALL SCREEN 100.
*定义事件的属性和方法
CLASS LCL_EVENT_RECEIVER DEFINITION.
*公共事件
PUBLIC SECTION.
  METHODS:
*按钮处理方法
  HANDLE_TOOLBAR
    FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
      IMPORTING E_OBJECT E_INTERACTIVE,
*用户交互事件处理
  HANDLE_USER_COMMAND
    FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
      IMPORTING E_UCOMM.
*PRIVATE SECTION.
ENDCLASS.
*实现方法
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
*处理按钮事件
  METHOD HANDLE_TOOLBAR.
    DATA:LS_TOOLBAR TYPE STB_BUTTON.
    CLEAR LS_TOOLBAR.
    MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
*取工具条接口
    APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
*append an icon to show booking table
    CLEAR LS_TOOLBAR.
*加入功能码
    MOVE 'SHOW_DATA' TO LS_TOOLBAR-FUNCTION.
*图标,可以用SHOWICON系统程序查阅需使用的图标.
    MOVE ICON_PPE_VNODE TO LS_TOOLBAR-ICON.
*按钮文本和提示
    MOVE '航班明细显示' TO LS_TOOLBAR-QUICKINFO.
    MOVE '航班明细显示'(112) TO LS_TOOLBAR-TEXT.
    MOVE '' TO LS_TOOLBAR-DISABLED.
*添加到工具条
    APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
  ENDMETHOD.
*处理功能码事件
 METHOD HANDLE_USER_COMMAND.
   DATA:LT_ROWS TYPE LVC_T_ROW.
   CASE E_UCOMM.
*定义的按钮事件
     WHEN 'SHOW_DATA'.
*取得所有选择行
       CALL METHOD ALV_GRID->GET_SELECTED_ROWS
          IMPORTING ET_INDEX_ROWS = LT_ROWS.
*       CALL METHOD`CL_GUI_CFW=>FLUSH.
       IF SY-SUBRC EQ 0.
*提示成功
         MESSAGE S005(YMESS) WITH '已选择行!'.
*调用子程序显示选择行内容
         PERFORM MESSDETA TABLES LT_ROWS.
       ENDIF.
   ENDCASE.
 ENDMETHOD.
ENDCLASS.
*用户交互
MODULE USER_COMMAND_0100 INPUT.
  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
*退出按钮时退出程序
  CASE SAVE_OK.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.
*定义状态条,包括菜单、工具条按钮、系统按钮等
MODULE STATUS_0100 OUTPUT.
*  SET PF-STATUS 'STATUS1'.
*如果窗口还没有创建ALV对象则创建它
  IF WA_CUSTOM_CONTAINER IS INITIAL.
    CREATE OBJECT WA_CUSTOM_CONTAINER
      EXPORTING CONTAINER_NAME = WA_CONTAINER.
    CREATE OBJECT ALV_GRID
      EXPORTING I_PARENT = WA_CUSTOM_CONTAINER.
    CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING I_STRUCTURE_NAME = 'SPFLI'
      CHANGING IT_OUTTAB = WA_SPFLI.
*创建事件
  CREATE OBJECT EVENT_RECEIVER.
*将用户交互事件分配ALV
  SET HANDLER EVENT_RECEIVER->HANDLE_USER_COMMAND FOR ALV_GRID.
*将按钮相关事件分配ALV
  SET HANDLER EVENT_RECEIVER->HANDLE_TOOLBAR FOR ALV_GRID.
*调用处理工具条处理方法,使自定义工具条生效
  CALL METHOD ALV_GRID->SET_TOOLBAR_INTERACTIVE.
 ENDIF.
ENDMODULE.
*显示选择内容模块
FORM MESSDETA TABLES P_ET_INDEX_ROWS STRUCTURE LVC_S_ROW.
*定义选择行
  DATA:LS_SELECTED_LINE LIKE LVC_S_ROW,
       LF_ROW_INDEX TYPE LVC_INDEX.
*定义合并字段及分隔字段
  DATA:S1(200) TYPE C,
       S2(3)   TYPE C.
  S2 = '-'.
*读取所有选择行
  LOOP AT P_ET_INDEX_ROWS INTO LS_SELECTED_LINE.
    LF_ROW_INDEX = LS_SELECTED_LINE-INDEX.
*从内表中按序号读取内容
    READ TABLE WA_SPFLI INDEX LF_ROW_INDEX INTO A_SPFLI.
*合并
    S1 = '选择行内容:'.
    CONCATENATE S1 A_SPFLI-CONNID A_SPFLI-CARRID A_SPFLI-CITYFROM
       INTO S1 SEPARATED BY S2.
*弹出窗口提示
    MESSAGE I005(YMESS) WITH S1.
 ENDLOOP.
ENDFORM.
阅读(2306) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~