获取选择页面(SELECTION-SCREEN)选择条件清单和当前输入值 - RS_REFRESH_FROM_SELECTOPTIONS

如下DEMO程序

REPORT ywltest002.

**********************************************************************
* Tables
**********************************************************************
TABLES: sscrfields,acdoca,bseg.

DATA: lt_sel_tab TYPE TABLE OF rsparams.

**********************************************************************
* SELECTION-SCREEN
**********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-001.
*公司代码
PARAMETERS:p_rbukrs TYPE acdoca-rbukrs OBLIGATORY.
*利润中心
SELECT-OPTIONS:s_prctr FOR acdoca-prctr.
*会计年度
PARAMETERS:p_gjahr TYPE acdoca-gjahr DEFAULT sy-datum+0(4) OBLIGATORY.
*期间
*SELECT-OPTIONS:s_poper FOR acdoca-poper OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) TEXT-012 FOR FIELD p_qj_l .
PARAMETERS: p_qj_l TYPE acdoca-poper DEFAULT '01' OBLIGATORY.
SELECTION-SCREEN COMMENT 52(5) TEXT-013 FOR FIELD p_qj_h .
PARAMETERS: p_qj_h TYPE acdoca-poper DEFAULT sy-datum+4(2) OBLIGATORY.
SELECTION-SCREEN END OF LINE.
*会计科目
SELECT-OPTIONS:s_racct FOR acdoca-racct.
*显示原币
PARAMETERS: p_yb AS CHECKBOX.
*分类账
PARAMETERS: p_rldnr TYPE acdoca-rldnr DEFAULT '0L' OBLIGATORY.

**********************************************************************
* NO-DISPLAY
PARAMETERS: p_langu TYPE sy-langu DEFAULT sy-langu NO-DISPLAY.

SELECTION-SCREEN END OF BLOCK bk1.

INITIALIZATION.
AT SELECTION-SCREEN.
START-OF-SELECTION.
  CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
      curr_report     = sy-cprog
* IMPORTING
*     SP              =
    TABLES
      selection_table = lt_sel_tab
*     SELECTION_TABLE_255       =
    EXCEPTIONS
      not_found       = 1
      no_report       = 2
      OTHERS          = 3.

  BREAK-POINT.

BAPI: RS_REFRESH_FROM_SELECTOPTIONS 返回结果如下所示

发布了190 篇原创文章 · 获赞 133 · 访问量 97万+

猜你喜欢

转载自blog.csdn.net/wanglei880526/article/details/103851869