选择屏幕工具栏添加按钮

&---------------------------------------------------------------------
*& Report ZTESTXUE28 选择屏幕工具栏按钮
&---------------------------------------------------------------------
*& 测试程序
&---------------------------------------------------------------------
REPORT ztestxue28 NO STANDARD PAGE HEADING …

TABLES:sscrfields.

---

** 定义结构类型 Define the structure’s type **

---

---

** 定义变量与内表 Define the variants and Internal tables **

---

CONSTANTS:con_icon_red TYPE icon-id VALUE ‘@0A@’, "红
con_icon_green TYPE icon-id VALUE ‘@08@’, "绿
con_icon_yellow TYPE icon-id VALUE ‘@09@’, "黄
con_icon_okay TYPE icon-id VALUE ‘@2K@’,
con_icon_cancel TYPE icon-id VALUE ‘@2O@’.

DATA:gv_functxt TYPE smp_dyntxt.
DATA:gv_value TYPE char20.
DATA:p_path TYPE string.

@---------------------------------------------------------------------
*@ ALV相关的变量与内表
TYPE-POOLS:slis.
TYPE-POOLS icon.

---

** 选择屏幕 Customize the selection-screen **

---

SELECTION-SCREEN BEGIN OF BLOCK xavery WITH FRAME TITLE TEXT-001.
PARAMETERS:p_bukrs TYPE bkpf-bukrs…
PARAMETERS:p_line TYPE int4 DEFAULT 2. "判断从EXCEL文件的开始行

SELECTION-SCREEN END OF BLOCK xavery.

*一般可以添加五个按钮
SELECTION-SCREEN:FUNCTION KEY 1.
SELECTION-SCREEN:FUNCTION KEY 2.
SELECTION-SCREEN:FUNCTION KEY 3.
SELECTION-SCREEN:FUNCTION KEY 4.
SELECTION-SCREEN:FUNCTION KEY 5.

---

** 执行程序事件 Executing the program’s events **

---

INITIALIZATION.
PERFORM sub_init_cond.

AT SELECTION-SCREEN.
PERFORM sub_selscreen_ucomm.

START-OF-SELECTION.

END-OF-SELECTION.
PERFORM sub_write.

@---------------------------------------------------------------------
*@ Form SUB_INIT_COND
@---------------------------------------------------------------------

•   初始化选择条件
  

----------------------------------------------------------------------
FORM sub_init_cond .
CLEAR gv_functxt.

• 在选择屏幕的工具栏的按钮上添加说明信息
  gv_functxt-icon_id = icon_businav_entity. "图标
  gv_functxt-quickinfo = ‘Preselected Carrier’."菜单制作器：信息文本 (4.0)，滑鼠移去过去显示的信息TIP
  gv_functxt-icon_text = ‘测试1’."图标文本 菜单名称
  sscrfields-functxt_01 = gv_functxt.

  CLEAR gv_functxt.

• 在选择屏幕的工具栏的按钮上添加说明信息
  gv_functxt-icon_id = icon_system_usermenu."图标
  gv_functxt-quickinfo = ‘2222’."菜单制作器：信息文本 (4.0)，滑鼠移去过去显示的信息TIP
  gv_functxt-icon_text = ‘测试2’."图标文本 菜单名称
  sscrfields-functxt_02 = gv_functxt.

  sscrfields-functxt_03 = ‘测试3’.

  sscrfields-functxt_04 = icon_layout_control.

  sscrfields-functxt_05 = ‘Preselected Carrier’.

ENDFORM. " SUB_INIT_COND
&---------------------------------------------------------------------
*& Form SUB_SELSCREEN_UCOMM
&---------------------------------------------------------------------

•   text
  

----------------------------------------------------------------------
FORM sub_selscreen_ucomm .
CASE sscrfields-ucomm.
WHEN ‘FC01’.
CALL TRANSACTION ‘FB03’ WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
WHEN ‘FC02’.
CALL TRANSACTION ‘F-02’ WITH AUTHORITY-CHECK AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM. " SUB_SELSCREEN_UCOMM
&---------------------------------------------------------------------
*& Form sub_write
&---------------------------------------------------------------------
*& text
&---------------------------------------------------------------------
FORM sub_write .

ENDFORM.

*输出结果