ITPub博客

首页 > 应用开发 > IT综合 > 更改屏幕TEXT的直接赋值法和SELECTION_TEXTS_MODIFY

更改屏幕TEXT的直接赋值法和SELECTION_TEXTS_MODIFY

原创 IT综合 作者:747328720 时间:2015-06-10 15:09:56 0 删除 编辑
方法一: 直接在AT SELECTION-SCREEN OUTPUT后赋值
REPORT z_barry_test.

PARAMETERS: p_test(20).

AT SELECTION-SCREEN OUTPUT .
  %_p_test_%_app_%-text = p_test.


方法二:  使用SELECTION_TEXTS_MODIFY 函数
*--------------------------------------------------------------------*

* selection screen definition
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME .
PARAMETERS : P_BUDAT TYPE QALS-ENSTEHDAT .
SELECT-OPTIONS : SO_QPLOS FOR QALS-PRUEFLOS .
SELECTION-SCREEN END OF BLOCK B01 .

*--------------------------------------------------------------------*
* PBO event for selection screen
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT .
  PERFORM SUB_MODIFY_SEL_TEXT .

*&---------------------------------------------------------------------*
*&      Form  SUB_MODIFY_SEL_TEXT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SUB_MODIFY_SEL_TEXT .

  DATA : LT_SEL TYPE TABLE OF RSSELTEXTS ,
         LS_SEL TYPE RSSELTEXTS .

  CLEAR LT_SEL[] .
  LS_SEL-NAME = 'P_BUDAT' .
  LS_SEL-KIND = 'P' . "parameter
  LS_SEL-TEXT = '检验批生成日期'.
  APPEND LS_SEL TO LT_SEL[] .

  CLEAR LS_SEL .
  LS_SEL-NAME = 'SO_QPLOS' .
  LS_SEL-KIND = 'S' . "select-option
  LS_SEL-TEXT = '检验批编号'.
  APPEND LS_SEL TO LT_SEL[] .

  CALL FUNCTION 'SELECTION_TEXTS_MODIFY'
    EXPORTING
      PROGRAM                     = SY-REPID
    TABLES
      SELTEXTS                    = LT_SEL
    EXCEPTIONS
      PROGRAM_NOT_FOUND           = 1
      PROGRAM_CANNOT_BE_GENERATED = 2
      OTHERS                      = 3.
  IF SY-SUBRC <> 0.
* error handling ...
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

ENDFORM.                   

 " SUB_MODIFY_SEL_TEXT 不调用:

'SELECTION_TEXTS_MODIFY'的效果:调用后:


参考链接:http://blog.chinaunix.net/uid-8527621-id-2983708.html

来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/29792642/viewspace-1694363/ ,如需转载,请注明出处,否则将追究法律责任。

下一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2014-08-07

  • 博文量
    2
  • 访问量
    3502