Chinaunix首页 | 论坛 | 博客
  • 博客访问: 466766
  • 博文数量: 199
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 1902
  • 用 户 组: 普通用户
  • 注册时间: 2020-05-14 13:25
个人简介

代码5S

文章分类

全部博文(199)

文章存档

2021年(5)

2020年(194)

我的朋友

分类: 其他平台

2020-05-20 12:43:06

REPORT  zdemo01.

PARAMETERS:p_bukrs LIKE t001-bukrs.

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_bukrs.
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname     'T001'
      fieldname   'BUKRS'
      dynpprog    sy-repid
      dynpnr      sy-dynnr
      dynprofield 'P_BUKRS'
      display     'F'.
阅读(671) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~