赛跑网-选择屏幕实例二

SAPOK_ABAP

TABLES : LFA1 ,t001w.
SELECTION-SCREEN BEGIN OF BLOCK b1
                         WITH FRAME
                         TITLE text-001.
SELECTION-SCREEN SKIP.

PARAMETERS:  p_insert  RADIOBUTTON GROUP  z USER-COMMAND f  DEFAULT 'X' ,
             p_p  RADIOBUTTON GROUP z,
             p_delete  RADIOBUTTON GROUP z ,
             p_modify  RADIOBUTTON GROUP z ,
             p_disp    RADIOBUTTON GROUP  z ." DEFAULT 'X'.

SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2
                         WITH FRAME
                         TITLE text-002.
SELECTION-SCREEN SKIP.

SELECT-OPTIONS : s_lifnr FOR  lfa1-lifnr  MODIF ID isi ,
                 s_werks FOR  t001w-werks  MODIF ID isi.
PARAMETERS p_file(128) TYPE c MODIF ID is OBLIGATORY.
SELECTION-SCREEN END   OF BLOCK b2.

SELECTION-SCREEN END   OF BLOCK b1.

***动态得到路径的事件块
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file  .
***动态得到文件路径
  CALL FUNCTION 'WS_FILENAME_GET'
   EXPORTING
*   DEF_FILENAME           = ' '
    def_path               = 'C:\ '
    mask                   = ',Excel files (*.XLS),*.XLS,'
    mode                   = 'O'
    title                  = '请选择需要导入的数据文件 '
    IMPORTING
    filename               = p_file
*   RC                     =
   EXCEPTIONS
     inv_winsys             = 1
     no_batch               = 2
     selection_cancel       = 3
     selection_error        = 4
     OTHERS                 = 5.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.

游客，如果您要查看本帖隐藏内容请回复

    IF p_delete = 'X' OR p_modify = 'X' OR p_disp = 'X' .
      IF screen-group1 = 'IS'.
        screen-input = '0'.
        screen-active = '0'.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

xingfan234

先拷下来运行一下看看先

thp20000

先看看是什么功能

thp20000

1.PARAMETERS:  p_insert  RADIOBUTTON GROUP  z USER-COMMAND f  DEFAULT 'X'
中的参数USER-COMMAND是对整个组起作用，不是单独只对第一个RADIOBUTTON起作用。
2.AT SELECTION-SCREEN OUTPUT.
与AT SELECTION-SCREEN有什么区别呢？
好像加了USER-COMMAND 对AT SELECTION-SCREEN也可以起作用。
请李老师请教

SAPOK_ABAP

thp20000 发表于 2012-5-19 17:34
1.PARAMETERS:  p_insert  RADIOBUTTON GROUP  z USER-COMMAND f  DEFAULT 'X'
中的参数USER-COMMAND是对整 ...

1，USER-COMMAND是对整个组起作用。是对的！
2，有关AT SELECTION-SCREEN OUTPUT与AT SELECTION-SCREEN 的区别交给你一个判断的方法:将上述代码中的事件分别换成下面两种，然后运行程序，分别查看程序何时进入事件块。
      AT SELECTION-SCREEN OUTPUT.  "在选择屏幕出现之前和单击选择屏幕按钮会进入该事件块，
      BREAK-POINT.

      AT SELECTION-SCREEN .                "在选择屏幕出现之后和单击选择屏幕按钮会会进入该事件块
      BREAK-POINT.               

无言草

参考参考

yangjinping1234

dorian110

看看这个selection-screen的例子

412768150

cx楼主辛苦啦，这个问题对我很重要

小强

好像很不错