一、创建业务对象SWO1
创建
回车
实现对象类型
对象类型被创建
新建事件
确定
实现组件
实现方法
创建报表se38
代码
REPORT ZWL_DISPLY.
TABLES T001.
PARAMETERS P_BUKRS TYPE T001-BUKRS OBLIGATORY. SELECT SINGLE * FROM T001 WHERE BUKRS = P_BUKRS.
MESSAGE I398(00) WITH '工作流测试！' P_BUKRS T001-BUTXT.
添加参数，点参数
新建
否
关联报表双击
确定
点程序
是
修改
BEGIN_METHOD DISPLAY CHANGING CONTAINER.
DATA:
BUKRS TYPE T001-BUKRS.
SWC_GET_ELEMENT CONTAINER 'BUKRS' BUKRS. SUBMIT ZWL_DISPLY WITH P_BUKRS = BUKRS AND RETURN.
END_METHOD. 新建关键字段
否
生成
测试
显示
二、创建工作流SWDD
定义作业，双击
作业
创建任务
选择前面的业务对象ZWL
保存，后退
确定，自动绑定
三、创建角色增强PFAC_INS
新建
函数模块ZWL 创建
源码
FUNCTION ZWL.
*"-------------------------------------------------------------------*"*"Local interface:
*" TABLES
*" AC_CONTAINER STRUCTURE SWCONT
*" ACTOR_TAB STRUCTURE SWHACTOR
*"------------------------------------------------------------------ ACTOR_TAB-OTYPE = 'US'.
ACTOR_TAB-OBJID = 'SYZHANGWL'.
APPEND ACTOR_TAB.
ACTOR_TAB-OBJID = 'SYWY'.
APPEND ACTOR_TAB.
ENDFUNCTION.
给工作流分配角色
任务属性
属性
一般任务
保存
四、创建业务，关联工作流事件创建触发程序SE38
创建
源码
REPORT ZWL_SUBMIT.
DATA: LV_KEY TYPE SWEINSTCOU-OBJKEY.
LV_KEY = '0319'. "关键字段
CALL FUNCTION 'SWE_EVENT_CREATE'
EXPORTING
OBJTYPE = 'ZWL'
OBJKEY = LV_KEY
EVENT = 'SUBMIT'
EXCEPTIONS
OBJTYPE_NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.
COMMIT WORK.
关联工作流事件
基础数据
事件
激活
激活工作流
五、测试工作流
执行
工作台
代办
执行。