ABAP 选择屏幕隐藏

除了辣条不吃辣

已于 2025-07-31 10:59:11 修改

阅读量781

点赞数 6

CC 4.0 BY-SA版权

分类专栏： ABAP分享文章标签：开发语言 ABAP

于 2024-07-05 15:37:48 首次发布

本文链接：https://blog.csdn.net/m0_73554458/article/details/140210537

ABAP分享专栏收录该内容

16 篇文章

订阅专栏

效果图：

模板代码：

TABLES mara.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS:
  r_rb1 RADIOBUTTON GROUP gr1 USER-COMMAND sel DEFAULT 'X',
  r_rb2 RADIOBUTTON GROUP gr1.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE t2.
SELECT-OPTIONS:
  s_matnr FOR mara-matnr MODIF ID a,
  s_mtart FOR mara-mtart MODIF ID a.

SELECT-OPTIONS:
   s_meins FOR mara-meins MODIF ID b,
   s_spart FOR mara-spart MODIF ID b,
   s_bwscl FOR mara-bwscl MODIF ID b.
SELECTION-SCREEN END OF BLOCK b2.

INITIALIZATION.
  t1 = '功能按钮'.
  t2 = '选择条件'.
  %_r_rb1_%_app_%-text = '按钮1'.
  %_r_rb2_%_app_%-text = '按钮2'.

  %_s_matnr_%_app_%-text  = '物料编码'.
  %_s_mtart_%_app_%-text  = '物料类型'.
  %_s_meins_%_app_%-text = '基本计量单位'.
  %_s_spart_%_app_%-text  = '产品组'.
  %_s_bwscl_%_app_%-text = '货源'.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE 'X'.
      WHEN r_rb1.
        IF screen-group1 = 'B'.
          screen-active = '0'.
          MODIFY SCREEN.
        ENDIF.

      WHEN r_rb2.
        IF screen-group1 = 'A'.
          screen-active = '0'.
          MODIFY SCREEN.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
  ENDLOOP.