修改输入条件屏幕字段描述

根据上面选择的输入条件，下面月份显示描述也随之变化

1、TOP代码：
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-001.

  SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_1 RADIOBUTTON GROUP rg DEFAULT 'X' USER-COMMAND comd.
    SELECTION-SCREEN COMMENT (8) TEXT-002.
    PARAMETERS: pr_2 RADIOBUTTON GROUP rg.
    SELECTION-SCREEN COMMENT (8) TEXT-003.
    PARAMETERS: pr_3 RADIOBUTTON GROUP rg.
    SELECTION-SCREEN COMMENT (12) TEXT-004.
  SELECTION-SCREEN END OF LINE.

  SELECTION-SCREEN SKIP.
  SELECTION-SCREEN SKIP.

  SELECT-OPTIONS:  s_monat FOR ythr_rtxz-monat  NO-EXTENSION NO INTERVALS OBLIGATORY ,"记账期间年月
                   s_taxgp FOR pa0531-taxgp NO INTERVALS.

  SELECTION-SCREEN SKIP.
  PARAMETERS: p_test AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK bk1.

2、改变值
AT SELECTION-SCREEN OUTPUT.

  PERFORM frm_screen.


FORM frm_screen .

  DATA : lt_sel TYPE TABLE OF rsseltexts,
         ls_sel TYPE rsseltexts.
  CLEAR: ls_sel,lt_sel[].

  ls_sel-name = 'S_MONAT' .
  ls_sel-kind = 'S' . "select-option
  IF pr_1 IS NOT INITIAL.
    ls_sel-text = '选择1'.
  ELSEIF pr_2 IS NOT INITIAL.
    ls_sel-text = '选择2'.
  ELSEIF pr_3 IS NOT INITIAL.
    ls_sel-text = '选择3'.
  ENDIF.
  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.

ENDFORM.