选择屏幕中,选择一个参数,按回车后在旁边文本显示相关信息。主要是先定义一个SELECTION-SCREEN COMMENT,然后 在AT SELECTION-SCREEN OUTPUT里写取要显示的数据逻辑。
</pre><p></p><p></p><pre code_snippet_id="1562034" snippet_file_name="blog_20160122_2_7287851" name="code" class="plain">REPORT ZPROJECT_SELEMP.
*&---------------------------------------------------------------------*
*&INCLUDE 部分
*&---------------------------------------------------------------------*
TABLES: prps.
DATA: OK_CODE LIKE SY-UCOMM.
DATA: projectName LIKE PRPS-POST1,
projectManager LIKE prps-ASTNA.
------------------------------------------------------------------*
*&选择屏幕的定义
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk0 WITH FRAME TITLE text-001.
PARAMETERS: project TYPE PRPS-POSID DEFAULT '' OBLIGATORY.
*SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT 60(60) v_text."用于显示项目名
SELECT-OPTIONS: s_date FOR sy-datum MODIF ID PP.
SELECTION-SCREEN END OF BLOCK blk0.
AT SELECTION-SCREEN OUTPUT .
IF project <> ''.
SELECT SINGLE POST1 "项目简介
ASTNA "项目经理,自定义字段 申请人
INTO (projectName , projectManager)
FROM prps
WHERE POSID = project.
CONCATENATE projectName ' 项目经理:' projectManager INTO v_text.
MODIFY SCREEN.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'PP'.
screen-REQUIRED = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
*&---------------------------------------------------------------------*
*&AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.
*&---------------------------------------------------------------------*
*&START-OF-SELECTION 程序开始
*&---------------------------------------------------------------------*
START-OF-SELECTION.
call SCREEN 9000.
MODULE USER_COMMAND_2000 INPUT.
ok_code = sy-ucomm.
CLEAR sy-ucomm.
CASE ok_code.
WHEN 'BACK'.
LEAVE TO SCREEN 1000.
ENDCASE.
ENDMODULE. " USER_COMMAND_2000 INPUT
AT SELECTION-SCREEN OUTPUT .