获取PO日志ID

DATA: lv_error_msg   TYPE string,  
          lv_action_name TYPE val_text,  
          lt_pernr       TYPE TABLE OF zhr_pernr,  
          lo_bpm_engine  TYPE REF TO zcl_co_si_21160_ceerp_rwbl_out,  
          lo_message_id  TYPE REF TO if_wsprotocol_message_id,  
          ls_engine_out  TYPE zcl_mt_21160_ceerp2sgbpm_rwbl1,  
          ls_engine_in   TYPE zcl_mt_21160_ceerp2sgbpm_rwbl,  
          lo_cx          TYPE REF TO cx_ai_system_fault.
 DATA: lv_para TYPE string.  
  
    GET TIME STAMP FIELD DATA(lv_timestamp).  
  
	    gs_wf_log =  VALUE #( db_key       = /bobf/cl_frw_factory=>get_new_key( )  
                          bpm_business_key = iv_bpm_business_key  
                          mv_uid           = mv_uid  
                          wf_service_name  = '办理'  
                          created_date     = sy-datum  
                          created_time     = sy-uzeit  
                          created_by       = sy-uname  
                          created_at       = lv_timestamp ).

    TRY.  
        CREATE OBJECT lo_bpm_engine.  
        lo_message_id ?= lo_bpm_engine->get_protocol( if_wsprotocol=>message_id ).  
        lo_bpm_engine->si_21160_ceerp_rwbl_out( EXPORTING output = ls_engine_out IMPORTING input = ls_engine_in ).  
        DATA(lv_message_id) = lo_message_id->get_message_id( ).  
        gs_wf_log-po_message_id = lv_message_id.  
      CATCH cx_ai_system_fault INTO lo_cx.  
        lv_message_id = lo_message_id->get_message_id( ).  
        gs_wf_log-po_message_id = lv_message_id.  
        gs_wf_log-short_msg = lo_cx->errortext.  
        MESSAGE e000(zers_msg) RAISING error_exist  WITH 'PO:' && lo_cx->errortext.  
    ENDTRY.
编号 报文字段名称 是否必输 字段描述 字段长度 字段类型 层级 备注
ROOT 1
1 code 是 返回状态码() string 2
2 msg 是 消息 string 2
3 data 2
1 name 是 来自 string 3
2 processInstId 是 流程实例ID string 3
3 processType 是 流程类型 string 3
4 title 是 标题 string 3
5 processDefId 是 流程定义ID string 3
6 ifSubProcess 是 是否子流程 string 3
7 taskinfo 3
1 receiveTime 是 接收时间 string 4
2 tasktype 是 任务类型(1：常规待办任务2：只读传阅任务3：待办任务4：只读等待任务9：系统通知任务11：加签任务) string 4
3 nextTarget 是 下一节点办理人账号 string 4
4 taskInstId 是 流程任务ID string 4
5 activityDefId 是 流程节点ID string 4
6 activityDefName 是 流程节点名称 string 4
7 target 是 当前办理人账号 string 4
8 parentProcessInstId 是 父流程实例 ID string 4
9 processInstId 是 流程实例ID string 4
10 processType 是 流程类型 string 4
11 title 是 标题 string 4
12 processDefId 是 流程定义ID string 4
13 name 是 来自 string 4
14 zyl 否 预留字段 string 4