手工写页签

来源：互联网发布：转运知乎编辑：程序博客网时间：2024/06/10 14:59

手工写页签

效果图：

大致代码如下：

  SELECTION-SCREEN BEGIN OF SCREEN 0100 AS SUBSCREEN .
  PARAMETERS:
                  p_dwms   TYPE zssdwmc AS LISTBOX VISIBLE LENGTH 30,
                  p_dwm    TYPE zssdwdm NO-DISPLAY ."MATCHCODE OBJECT zmm00sh_zssdw.  "单位码
  SELECT-OPTIONS:
                  s_matnr  FOR mara-matnr        .  "物料

  SELECTION-SCREEN END OF SCREEN 0100.

  SELECTION-SCREEN BEGIN OF SCREEN 0300 AS SUBSCREEN.
  PARAMETERS: rb_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 4 LINES."子屏幕的行数
  SELECTION-SCREEN TAB (6)  text1 USER-COMMAND but1.
  SELECTION-SCREEN TAB (10) text2 USER-COMMAND but2.
  SELECTION-SCREEN END OF BLOCK mytab.

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

INITIALIZATION .         "给标签赋值
  PERFORM frm_init.

"选择页签
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.

  "文件路径

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_file CHANGING p_file.

AT SELECTION-SCREEN OUTPUT.

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

START-OF-SELECTION.

  CASE mytab-dynnr.
    WHEN  0100.
      PERFORM frm_weihu_db.

    WHEN  0300. "300屏幕的操作
      PERFORM frm_down_up.

  ENDCASE.

FORM frm_down_up .
  DATA: l_mm         TYPE string .

"ABAP memory是为了能控制返回时返回到哪个页签
  l_mm = '0300'.
  EXPORT l_mm  TO MEMORY ID 'M1'.

FORM frm_init .
DATA: l_mm TYPE string .
text1 = ‘合理供货期维护’. "合理供货期维护

  text2 = ‘批量导入’.                      "批量导入

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

  v_dynnr = l_mm.

  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

代码仅仅做个简单的参考，具体细节自己拷过去改改就行

0 0