SAP 选择屏幕的收起与展开（Collapse and Expand）

今天做的一个项目中用到将SELECTION-SCREEN 展开和收起的功能，现总结如下：

首先

include <icon>.因为要用到 icon_data_area_expand 和icon_data_area_collapse
这两个图标，

其次：就干脆贴代码显示算了，语言能力太差了。

*&———————————————————————*
*& Report ZVOL_SCREEN_COLLAPSE
*&
*&———————————————————————*
*&
*&
*&———————————————————————*

REPORT ZVOL_SCREEN_COLLAPSE.
include <icon>.
SELECTION-SCREEN:BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN : PUSHBUTTON 50(10) volcano USER-COMMAND pbvol modif id NEW.
SELECTION-SCREEN:BEGIN OF LINE.
PARAMETERS: r1 RADIOBUTTON GROUP gr1.
SELECTION-SCREEN:COMMENT 4(10) text-002 for field r1 modif id new.
PARAMETERS: R2 RADIOBUTTON GROUP gr1.
SELECTION-SCREEN:COMMENT 17(10) text-003 for field r1 modif id new.
SELECTION-SCREEN:END OF LINE.

SELECTION-SCREEN:BEGIN OF LINE.
PARAMETERS : c1 AS CHECKBOX DEFAULT ‘X’ modif id old.
SELECTION-SCREEN:COMMENT 4(20) text-004 modif id old.
PARAMETERS: V_TEXT(4) TYPE C modif id old.
SELECTION-SCREEN:end OF LINE.

SELECTION-SCREEN:END OF BLOCK bk1.

DATA : FULL(1).

AT SELECTION-SCREEN.
IF SY-UCOMM EQ ‘PBVOL’.

IF FULL EQ SPACE.
      FULL = ‘X’.
    ELSE.
      FULL = ‘ ‘.
    ENDIF.
ELSE.
    EXIT.
ENDIF.

AT SELECTION-SCREEN OUTPUT.
*

IF FULL EQ ‘X’.
    LOOP AT SCREEN.
      if screen-group1 = ‘OLD’.
        screen-active    = ‘0′.
        screen-input     = ‘0′.
        screen-output    = ‘0′.
        modify screen.
      endif.
    ENDLOOP.
    CALL FUNCTION ‘ICON_CREATE’
EXPORTING
   NAME                        = icon_data_area_expand
*   TEXT                        = ‘niha’
   INFO                         = ‘expand’
      ADD_STDINF                  = ‘ ‘
IMPORTING
   RESULT                      = volcano
        .

ELSE.
    LOOP AT SCREEN.
      if screen-group1 = ‘OLD’.
        screen-active    = ‘1′.
        screen-input     = ‘1′.
        screen-output    = ‘1′.
        modify screen.
      endif.
    ENDLOOP.
    CALL FUNCTION ‘ICON_CREATE’
EXPORTING
   NAME                        = icon_data_area_collapse
*   TEXT                        = ‘niha’
INFO                         = ‘collapse’
ADD_STDINF                  = ‘ ‘
IMPORTING
   RESULT                      = volcano
        .

ENDIF.

几点注意事项：

1.modif id ,就是modification group id,会自动的 system table screen 的group1 里面。

2.对于FM icon_create 里面的RESULT = VOLCANO ,其中的VOLCANO就是你要改变图标的这个屏幕字段名称,

INFO = ‘collapse’ ,就是鼠标移到这个图标的附近时要显示的文字。

其余大家可以自己试验吧。

3.如果你发现你要显示的图标是一线乱7八拐的字符，那是因为你的字段长度太短了，不信你可以将

PUSHBUTTON 50(20) volcano

里面的20改为10，或更小试试？

SAP 选择屏幕的收起与展开（Collapse and Expand）相关推荐

SAP选择屏幕开发（一）
用户通过屏幕操作来实现与SAP的数据交互,而SAP的屏幕开发一般分为两种,一种是通过SAP ABAP语法创建屏幕元素,称之为选择屏幕,选择屏幕主要是用来输入查询参数:第二种是通过SAP的屏幕编辑器开发 ...
SAP选择屏幕中实现三级联动下拉框效果
TYPE-POOLS:VRM. DATA: NAME TYPE VRM_ID. DATA:NUM TYPE I. "根据PRODH字段长度判断某行属于哪一级 DATA:LOADED TYP ...
SAP 选择屏幕下拉框实现
选择屏幕: DATA:vid TYPE vrm_id , "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格)list TYPE vrm_values,valu ...
SAP 选择屏幕中定义按钮 pushbutton
SELECTION-SCREEN PUSHBUTTON 1(22) BUT1 USER-COMMAND DOWNLOAD. " 定义搜索按钮在选择屏幕定义按钮 INITIALIZATION ...
【测试】SAP选择屏幕界面配图实现
需求:需要在生产实际查询报表选择界面中显示相应的流程图,如何实现. 准备工作:需要利用事务代码SMW0上传流程图图片,这里以某样图代替. 代码实现: *&------------------- ...
sap 选择屏幕设定动态标题
转载自:https://blog.csdn.net/xiaoxiaoanhong/article/details/53640850 SET TITLEBAR 'TITLBAR' WITH 'TITLE ...
[SAP ABAP开发技术总结]选择屏幕——SELECT-OPTIONS
12.4. SELECT-OPTIONS. 89 12.4.1. 输入ABAP程序默认值时,需要加上"=". 89 12.4.2. 选择条件内表多条 ...
SAP ABAP 动态选择屏幕
常规实现方式: 1. 动态控制属性,使用如下语句代码控制. 2. 标准模块实现的free selection 3. 结合逻辑数据库的动态选择屏幕具体实现: 第一种大致通过如下代码实现 AT SELE ...
SAP变式-选择屏幕变式属性及应用场景
目录仅用于后台处理保护变式仅在目录中显示系统变式变式字段属性保护字段隐藏字段保存无值的字段 GPA关闭要求的字段选择变量,选项,变量名称仅用于后台处理前台执行程序不可选,后台作 ...

SAP 选择屏幕的收起与展开（Collapse and Expand）

SAP 选择屏幕的收起与展开（Collapse and Expand）相关推荐

最新文章

热门文章