WF工作流触发事件.docxVIP

使用function触发事件DATA:lt_messagesTYPETABLEOFswr_messag,lt_mess_structTYPETABLEOFswr_mstruc.DATA:ld_object_typeTYPEswr_struct-object_typVALUEZBO22RHRWF,ld_object_keyTYPEswr_struct-object_key, ld_eventTYPEswr_struct-eventVALUECREAT.REFRESHgt_con.gs_con-element=US.gs_con-value=ls_rzzz-pmzhz.IFgs_con-valueISINITIAL.gs_con-value=sy-uname.ENDIF.APPENDgs_conTOgt_con.ld_object_key=lv_objid.CALLFUNCTIONSAP_WAPI_CREATE_EVENTEXPORTINGobject_type=ld_object_typeobject_key=ld_object_keyevent=ld_event*COMMIT_WORK=XIMPORTINGreturn_code=g_rcTABLESinput_container=gt_conmessage_lines=lt_messagesmessage_struct=lt_mess_struct.*结束工作流CALLFUNCTIONSWE_EVENT_CREATEEXPORTINGobjtype=ZBO22RHRWFobjkey=ld_object_keyevent=FINISHEXCEPTIONSobjtype_not_found=1OTHERS=2.使用CLASS类触发事件FORMfrm_sub_wf.DATA:ls_conTYPEswr_cont,lt_conTYPETABLEOFswr_cont.DATA:l_event(20)TYPEc,流程事件l_workflowname(30)TYPEc,WORKFLOWCLASSl_messageTYPEstring.提示信息DATA:rcTYPEsy-subrc.*ls_con-element=NODE.*ls_con-value=1.*APPENDls_conTOlt_con.l_event=CREATED.l_workflowname=ZPM22CL_WF_PROCESS.*触发工作流CALLFUNCTIONZPM22_FM_TRIGGER_EVENTEXPORTINGinstanceid=c_instanceidevent=l_eventworkflowname=l_workflownameIMPORTINGrc=rcTABLESset_container=lt_con.CONCATENATE实例号c_instanceid流程启动成功INTOl_message.IFrcEQ0.MESSAGEs001(00)WITHl_message.ELSE.MESSAGEs001(00)WITHl_messageDISPLAYLIKEE.ENDIF.LEAVETOSCREEN0.ENDFORM.FRM_SUB_WF触发工作流函数zpm22_fm_trigger_eventfunctionzpm22_fm_trigger_event.*-*Localinterface:*IMPORTING*VALUE(INSTANCEID)TYPESIBFINSTID*VALUE(EVENT)TYPECHAR20*VALUE(WORKFLOWNAME)TYPECHAR30*EXPORTING*VALUE(RC)LIKESY-SUBRC*TABLES*SET_CONTAINERSTRUCTURESWR_CONTOPTIONAL*-data:lv_objtypetypesibftypeid,lv_eventtypesibfevent,lv_objkeytypesibfinstid,lc_cnttypereftoif_swf_cnt_container,lc_containertypereftoif_swf_ifs_parameter_container,i_rctypesy-subrc,c_elementtypeswfdname.*赋值操作lv_objtype=workflowname.lv_event=event.lv_objkey=instanceid.*Raisetheeventifset_containerisnotinitial.try.callmethodcl_swf_cnt_factory=create_event_containerexportingim_objcateg=CLim_objtype=workflownameim_event=eventreceivingre_instance=lc_cnt.lc_container?=lc_cnt.catchcx_swf_utl_obj_create_failed.rc=3.endtry.ifrc0.rollbackwork.exit.endif.loopatset_container.try.callmethodlc_container-setexportingname=set_container-elementvalue=set_container-valueimportingreturncode=i_rc.catchcx_swf_cnt_cont_access_denied.rc=4.catchcx_swf_cnt_elem_access_denied.rc=5.catchcx_swf_cnt_elem_not_found.rc=6.catchcx_swf_cnt_elem_type_conflict.rc=7.catchcx_swf_cnt_unit_type_conflict.rc=8.catchcx_swf_cnt_elem_def_invalid.rc=9.catchcx_swf_cnt_container.rc=10.endtry.endloop.endif.ifrc0.rollbackwork.exit.endif.try.callmethodcl_swf_evt_event=raiseexportingim_objcateg=cl_swf_evt_event=mc_objcateg_clim_objtype=lv_objtypeim_event=lv_eventim_objkey=lv_objkeyim_event_container=lc_containe