ABAP_自定义屏幕03—工具栏
ABAP_自定义屏幕03—工具栏
1、工具栏包含4种
1.1 菜单条(Menu Bar):最多设置6个,一般都不设置
1.2 标准工具条(Standard Toolbar)
1.3 应用工具条(Application Toolbar)
1.4 功能键设置(FunctionKeys):即快捷键
2、工具栏功能码
所有的工具功能执行时,都会有一个功能码,放在系统变量SY-UCOMM 或者 SYST-UCOMM
在屏幕中定义:OK_CODE
REPORT 程序名.
DATA ok_code LIKE sy-ucomm."定义给屏幕的OK_CODE使用
DATA my_code LIKE sy-ucomm."定义给自身使用
.
.
.
my_code = ok_code.
CLEAR ok_code.
CASE my_code."捕获功能码
WHEN '&EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
3、以下是完整例子
3.1 SE38创建
3.2 创建屏幕
3.3 创建标题
3.4 创建GUI状态(即工具栏)
3.5 把标题和工具栏绑定到屏幕中
3.6 在PAI中实现工具栏方法
3.7效果图
3.8 完整代码
REPORT zcsdn_lion_custom03.
DATA ok_code LIKE sy-ucomm."定义给屏幕的OK_CODE使用
DATA my_code LIKE sy-ucomm."定义给自身使用
call SCREEN '2000'.
*&---------------------------------------------------------------------*
*& Module STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_2000 OUTPUT.
SET PF-STATUS 'TOOLS'.
SET TITLEBAR 'TITLE'.
ENDMODULE. " STATUS_2000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
my_code = ok_code.
CLEAR ok_code.
CASE my_code."捕获功能码
WHEN '&EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_2000 INPUT
4、工具-Exit
当屏幕有必填栏位的,如工具栏有退出按钮,默认点击退出按钮,必填栏位也要必填(不合理),需有如下设置
4.1 工具栏退出按钮,设置E类型
4.2 在屏幕的PAI中添加代码
MODULE USER_COMMAND_2000 AT EXIT-COMMAND.
以上设置后,点击退出按钮时,必填栏位不需填写
post SAP-Garson
原文链接:https://blog.csdn.net/f346348157/article/details/124574420文章来自于网络,如果侵犯了您的权益,请联系站长删除!