Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7188729
  • 博文数量: 655
  • 博客积分: 10264
  • 博客等级: 上将
  • 技术积分: 8278
  • 用 户 组: 普通用户
  • 注册时间: 2007-06-04 17:47
个人简介

ABAP顾问

文章分类

全部博文(655)

文章存档

2017年(2)

2014年(8)

2013年(3)

2012年(2)

2011年(18)

2010年(102)

2009年(137)

2008年(274)

2007年(134)

分类:

2007-12-12 22:02:27

*&---------------------------------------------------------------------*
*& 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 的功能键
*
阅读(4117) | 评论(0) | 转发(0) |
0

上一篇:利用Excel显示数据

下一篇:SAP Logo

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