选择屏幕折叠功能

效果图

图片

图片

参考代码


REPORT ZLM_SCREEN1.

TABLES SSCRFIELDS.

"展开--关闭按钮
SELECTION-SCREENPUSHBUTTON /2(10B_OPEN
                      USER-COMMAND F_OPEN MODIF ID M_O,    "open
                  PUSHBUTTON /2(10)  B_CLS
                      USER-COMMAND F_CLS  MODIF ID M_C.    "close

"选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-001.
PARAMETERSP_ID TYPE STRING MODIF ID M_C.
SELECTION-SCREEN END OF BLOCK B01.

PARAMETERSP_FLG TYPE NO-DISPLAY.

INITIALIZATION.


  "添加两个图标
  CONCATENATE ICON_EXPAND'打开' '' INTO B_OPEN,
               '打开' '' INTO B_OPEN.

  CONCATENATE ICON_COLLAPSE'关闭' '' INTO B_CLS,
                '关闭' '' INTO B_CLS.

  "默认是 关闭状态,点打开才能看到选择屏幕
  P_FLG 'X'.

AT SELECTION-SCREEN.
  CASE SSCRFIELDS-UCOMM.
    WHEN 'F_OPEN'.     "打开
      CLEAR P_FLG.
    WHEN 'F_CLS'.       "关闭
      P_FLG 'X'.
  ENDCASE.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    "修改屏幕显示状态
    PERFORM CLOSE_BLOCK USING:  P_FLG 'M_O' 'X',
                                                            P_FLG 'M_C' SPACE.
  ENDLOOP.


*&---------------------------------------------------------------------*
*&      Form  CLOSE_BLOCK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->VALUE            text
*      -->(U_CLOSE_BLOCK)  text
*      -->U_MODIFY_ID      text
*      -->U_CONVERT        text
*----------------------------------------------------------------------*
FORM CLOSE_BLOCK USING VALUE(P_FLAGLIKE P_FLG
                     P_MODIFY_ID LIKE SCREEN-GROUP1
                     P_CONVERT."显示内容标识

  IF P_CONVERT IS NOT INITIAL.
    IF P_FLAG IS INITIAL.
      P_FLAG 'X'.
    ELSE.
      CLEAR P_FLAG.
    ENDIF.
  ENDIF.

  IF SCREEN-GROUP1 P_MODIFY_ID )
    AND (  P_FLAG IS NOT INITIAL ).
    SCREEN-ACTIVE '0'.
    MODIFY SCREEN.
  ENDIF.

ENDFORM.                    "close_block


猜你喜欢

转载自blog.51cto.com/15057820/2628627

相关文章