一、创建业务对象 SW O1 创建 回车 实现对象类型 对象类型被创建 新建事件 确定 实现组件 实现方法 创建报表 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. 新建关键字段 否 生成 测试 显示 二、创建工作流 SW DD 定义作业,双击 作业 创建任务 选择前面的业务对象 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. 关联工作流事件 基础数据 事件 激活 激活工作流 五、测试工作流 执行 工作台 代办 执行