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

àì夳堔傛蜴生んèń 2023-06-27 11:08 42阅读 0赞

如下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 返回结果如下所示

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70][]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20200106102930724.jpg?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dhbmdsZWk4ODA1MjY=,size_16,color_FFFFFF,t_70