WF工作流触发事件

WF工作流触发事件

ID:38213884

大小:20.69 KB

页数:5页

时间:2019-06-07

WF工作流触发事件_第1页
WF工作流触发事件_第2页
WF工作流触发事件_第3页
WF工作流触发事件_第4页
WF工作流触发事件_第5页
资源描述:

《WF工作流触发事件》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、使用function触发事件DATA: lt_messages    TYPE TABLE OF swr_messag,          lt_mess_struct TYPE TABLE OF swr_mstruc.DATA: ld_object_type TYPE swr_struct-object_typ  VALUE 'ZBO22RHRWF',   ld_object_key  TYPE swr_struct-object_key,ld_event       TYPE swr_struct-event

2、                            VALUE 'CREAT'.REFRESH gt_con.    gs_con-element = 'US'.    gs_con-value = ls_rzzz-pmzhz.    IF gs_con-value IS INITIAL.      gs_con-value = sy-uname.    ENDIF.    APPEND gs_con TO gt_con.    ld_object_key = lv_objid.    CALL FUNCTI

3、ON 'SAP_WAPI_CREATE_EVENT'        EXPORTING          object_type           = ld_object_type          object_key            = ld_object_key          event                 = ld_event*     COMMIT_WORK           = 'X'        IMPORTING          return_code        

4、   = g_rc        TABLES          input_container       = gt_con          message_lines         = lt_messages          message_struct        = lt_mess_struct.*结束工作流CALL FUNCTION 'SWE_EVENT_CREATE'      EXPORTING        objtype           = 'ZBO22RHRWF'        o

5、bjkey            = ld_object_key        event             = 'FINISH'      EXCEPTIONS        objtype_not_found = 1        OTHERS            = 2.使用CLASS类触发事件FORM frm_sub_wf .  DATA:ls_con TYPE swr_cont,       lt_con TYPE TABLE OF swr_cont.  DATA:        l_event

6、(20) TYPE c,           "流程事件        l_workflowname(30) TYPE c,    "WORKFLOW CLASS        l_message TYPE string.        "提示信息  DATA: rc TYPE sy-subrc.*  ls_con-element = 'NODE'.*  ls_con-value = '1'.*  APPEND ls_con TO lt_con.  l_event = 'CREATED'.  l_workflow

7、name = 'ZPM22CL_WF_PROCESS'.*触发工作流  CALL FUNCTION 'ZPM22_FM_TRIGGER_EVENT'    EXPORTING      instanceid    = c_instanceid      event         = l_event      workflowname  = l_workflowname    IMPORTING      rc            = rc    TABLES      set_container = lt_c

8、on.  CONCATENATE '实例号' c_instanceid '流程启动成功' INTO l_message.  IF rc EQ 0.    MESSAGE s001(00) WITH l_message.  ELSE.    MESSAGE s001(00) WITH l_message DISPLAY LIKE 'E'.  ENDIF.  LEAVE TO

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。