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

来源：互联网发布：淘宝m1911 编辑：程序博客网时间：2024/05/01 01:13

今天做的一个项目中用到将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，或更小试试？