ABAP 选择屏幕选择条件带出信息

选择屏幕中，选择一个参数，按回车后在旁边文本显示相关信息。主要是先定义一个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 .