Demo:选择屏幕写页签

效果图:

图片

图片


demo代码

需要特别注意的是abap memory的应用

图片

图片


文本版:

*&---------------------------------------------------------------------*
*& Report ZLM_SCREEN3
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zlm_screen3.

TABLES:mara.

SELECTION-SCREEN BEGIN OF SCREEN 0100 AS SUBSCREEN .
PARAMETERS:
  p_dwms TYPE char1 AS LISTBOX VISIBLE LENGTH 30,
  p_dwm  TYPE string NO-DISPLAY.
SELECT-OPTIONS:
                s_matnr  FOR mara-matnr        .

SELECTION-SCREEN END OF SCREEN 0100.

SELECTION-SCREEN BEGIN OF SCREEN 0300 AS SUBSCREEN.
PARAMETERSrb_down RADIOBUTTON GROUP rad1,  "下载模版
            rb_up   RADIOBUTTON GROUP rad1,  "导入数据
            p_file  LIKE rlgrap-filename.   "文件路径

SELECTION-SCREEN END OF SCREEN 0300.


SELECTION-SCREEN BEGIN OF TABBED BLOCK mytab FOR LINES."子屏幕的行数
SELECTION-SCREEN TAB (6)  text1 USER-COMMAND but1.
SELECTION-SCREEN TAB (10text2 USER-COMMAND but2.
SELECTION-SCREEN END OF BLOCK mytab.

*----------------------------------------------------------------------*
*  INITIALIZATION
*----------------------------------------------------------------------*

INITIALIZATION .         "给标签赋值
  PERFORM frm_init.

*----------------------------------------------------------------------*
*  AT SELECTION-SCREEN.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE sy-dynnr.
    WHEN 1000.
      CASE sy-ucomm.
        WHEN 'BUT1'.           " 'BUT1'
          mytab-dynnr 0100.
        WHEN 'BUT2'.           " 'BUT2'
          mytab-dynnr 0300.
        WHEN OTHERS.
      ENDCASE.
  ENDCASE.

*----------------------------------------------------------------------*
*  事件处理
*----------------------------------------------------------------------*

START-OF-SELECTION.
  CASE mytab-dynnr.
    WHEN  0100.
      MESSAGE '1' TYPE 'I'.
    WHEN  0300"300屏幕的操作
      DATAlv_subscreen         TYPE string .
      "ABAP memory是为了能控制返回时返回到哪个页签
      lv_subscreen '0300'.
      EXPORT lv_subscreen  TO MEMORY ID 'M1'.
      MESSAGE '2' TYPE 'I'.
ENDCASE.


FORM frm_init .
  DATAlv_subscreen         TYPE string .

  text1 =  '页签一'.
  text2 =  '页签二'.

  IMPORT lv_subscreen  FROM MEMORY ID 'M1' .      "读取内存,获取当前处理页签

  DATA(v_dynnrlv_subscreen.

  mytab-prog sy-repid.

  IF v_dynnr space.
    mytab-dynnr 0100.
    mytab-activetab 'BUT1'.    " 'BUT1'
  ELSE.
    mytab-dynnr v_dynnr.

    IF v_dynnr 0300 .
      mytab-activetab 'BUT2'.   "'BUT2'
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_INIT


猜你喜欢

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

相关文章