Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7189401
  • 博文数量: 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)

分类:

2010-05-11 10:28:13

REPORT  z_barry_test NO STANDARD PAGE HEADING .

PARAMETERS: p_date TYPE sy-datum ,
            p_bukrs LIKE t001-bukrs ,
            p_str(10).

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE screen-name.
      WHEN 'P_DATE' OR 'P_BUKRS'.
        screen-input = 0.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date. "方法一
  CALL FUNCTION 'F4_DATE'
    IMPORTING
      select_date = p_date.
  LEAVE SCREEN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs. "方法二
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname     = 'T001'
      fieldname   = 'BUKRS'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      dynprofield = 'P_BUKRS'
      display     = 'F'.   " <-- Force

 

如果是自定义的Screen,可以使用POV Process
PROCESS ON VALUE-REQUEST  .
  FIELD P_bukrs MODULE mf4.
 
然后使用方法二
阅读(4156) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2010-07-21 11:00:23

感谢白哥哈,我原来使用F4IF_INT_TABLE_VALUE_REQUEST,但是参数display使用的是X,看到你的帖子换位F即解决了,谢了哈。