在REPORT标准应用工具条上增加自定义按钮

  REPORT ZICON_EXAMPLE .

**********************************************************************
* 在选择屏幕的标准应用工具条上增加自定义按钮需要定义的
* SAO的选择屏幕的标准工具栏上系统预先定义了5个按钮，他们对应的功能码是
* FC01-FC05，默认是不激活的。用户可以使用
* SELECTION-SCREEN FUNCTION KEY i.
* 来激活这5个按钮（这里的i必须是1-5）,这五个按钮的文本放在SSCRFields
* 的对应的Functxt_0i中。当用户按下按钮时，系统将触发AT SELECTION-SCREEN
* 事件,并将功能码放到sscrfields的ucomm字段中。
**********************************************************************

*--> 按钮引入图标
 INCLUDE : <ICON>.

*-->定义按钮工作区
 TABLES SSCRFIELDS.

 DATA: FUNCTXT TYPE SMP_DYNTXT.
**********************************************************************
**********************************************************************

 PARAMETERS: P_CMD TYPE CHAR200.

**********************************************************************
**********************************************************************
 SELECTION-SCREEN: FUNCTION KEY 1,   "激活按钮
                   FUNCTION KEY 2.
**********************************************************************
**********************************************************************

 INITIALIZATION.

**********************************************************************
**********************************************************************
   FUNCTXT-ICON_ID = ICON_CHANGE.
   FUNCTXT-QUICKINFO = '更改销售订单'.
   SSCRFIELDS-FUNCTXT_01 = FUNCTXT.

   FUNCTXT-ICON_ID = ICON_TIME.
   FUNCTXT-QUICKINFO = '更改采购订单'.
   SSCRFIELDS-FUNCTXT_02 = FUNCTXT.
**********************************************************************
**********************************************************************

 AT SELECTION-SCREEN.
   CASE SSCRFIELDS-UCOMM.          "处理按钮命令
       WHEN'FC01'.
       P_CMD = 'FC01'.
     WHEN 'FC02'.
       P_CMD = 'FC02'.
   ENDCASE.

 START-OF-SELECTION.
   WRITE / 'START-OF-SELECTION'.