测试事件的发生

*&---------------------------------------------------------------------*
*& Report  ZRS08057                                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  zrs08057                                .

DATA: BEGIN OF itab  OCCURS 0 .
        INCLUDE STRUCTURE rlgrap .
DATA: END OF itab .

PARAMETERS: p_file LIKE rlgrap-filename DEFAULT 'c:\test.xls',
            q_file LIKE rlgrap-filename DEFAULT 'c:\test.xls'.

SELECT-OPTIONS:
            s_file FOR itab-filename .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
     titlebar                    = '标题'
     diagnose_object             = 'Z_TEXT_IN_DIALOG'
      text_question               = '提示文本'
     text_button_1               = '第一个'                 "第一个按钮文本,默认为"是"
     icon_button_1               = 'ICON_ADDRESS'           "按钮ICON,可以用Showicon程序来查找Icon
*     TEXT_BUTTON_2               = 'Nein'(002)
*     ICON_BUTTON_2               = ' '
*     DEFAULT_BUTTON              = '1'                      "缺省的按钮
*     DISPLAY_CANCEL_BUTTON       = 'X'                      "是否显示"取消"按钮
*     USERDEFINED_F1_HELP         = ' '
*     START_COLUMN                = 1                        "弹出位置
*     START_ROW                   = 6
*     POPUP_TYPE                  =
   IMPORTING
     answer                      = p_file                   "1、 2、 A
*   TABLES
*     PARAMETER                   =
*   EXCEPTIONS
*     TEXT_NOT_FOUND              = 1
*     OTHERS                      = 2
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR q_file.
  MESSAGE 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR Q_FILE' TYPE 'I'.
  PERFORM getfilename USING q_file .

AT SELECTION-SCREEN ON p_file. "选择完毕，按回车或者执行时触发
  MESSAGE 'AT SELECTION-SCREEN ON p_FILE' TYPE 'I'.

AT SELECTION-SCREEN ON q_file. "选择完毕，按回车或者执行时触发
  MESSAGE 'AT SELECTION-SCREEN ON q_FILE' TYPE 'I'.

AT SELECTION-SCREEN ON END OF s_file. "只是对Select-Options 有效
  MESSAGE 'AT SELECTION-SCREEN ON END OF S_FILE' TYPE 'I'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_file-low .
  MESSAGE 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_FILE-LOW' TYPE 'I' .
  s_file-low = 'AAA'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_file-high .
  MESSAGE 'AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_FILE-HIGH' TYPE 'I' .
  s_file-high = 'BBB'.

AT SELECTION-SCREEN ON HELP-REQUEST FOR s_file-low .
  MESSAGE 'AT SELECTION-SCREEN ON HELP-REQUEST FOR S_FILE-LOW' TYPE 'I' .

*AT SELECTION-SCREEN.
*
*Extras:
*
*1. ... ON psel
*2. ... ON END OF sel
*3. ... ON VALUE-REQUEST FOR psel_low_high
*4. ... ON HELP-REQUEST FOR psel_low_high
*5. ... ON RADIOBUTTON GROUP radi
*6. ... ON BLOCK block
*7. ... OUTPUT

INITIALIZATION .
  p_file  = 'H1'.
  MESSAGE 'INITIALIZATION ' TYPE 'I'.

 

*&--------------------------------------------------------------------*
*&      Form  GETFILENAME
*&--------------------------------------------------------------------*
FORM getfilename USING p_name .
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mask             = ',*.XLS ,*.XLS.'
      mode             = '0'              "如果为S，则为保存对话框
      title            = '选择要导入的文件'
    IMPORTING
      filename         = p_name
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
ENDFORM.                    " GETFILENAME

*事件关键字             事件

*INITIALIZATION        在显示选择屏幕之前的点
*AT SELECTION-SCREEN  选择屏幕仍 然活动时， 处理用户在 选择屏幕上 输入之后的 点
*START-OF-SELECTION  处理选择屏 幕之后的点
*GET        点位于逻辑 数据库提供 数据库表 的行处。
*GET LATE  处理所有表 之后的点， 在逻辑数据 库的结构中 ，使这些表 位于数据库 表 的下层。
*END-OF-SELECTION  处理完逻辑 数据库提供 的所有行之 后的点。
*
*TOP-OF-PAGE       启动新页时，列表处理中 的点
*END-OF-PAGE       结束页时，列表处理中的 点
*
*AT LINE-SELECTION 用 户在该点处 选择行
*AT USER-COMMAND       用户在该点处 按下功能键 或在命令字 段中输入命 令
*AT PF             用户在该点处 按下有功能 代码 PF 的功能键
*

阅读(4144) | 评论(0) | 转发(0) |

0

上一篇：利用Excel显示数据

下一篇：SAP Logo

给主人留下些什么吧！~~

评论热议

请登录后评论。

登录 注册

关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6