*&---------------------------------------------------------------------*
*& Report ZDISPLAY_ORDER_LOG
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zdisplay_order_log.
DATA: lt_msg_handle TYPE bal_t_msgh,
ls_msg TYPE bal_s_msg,
ls_log TYPE crmt_odata_task_logs,
lt_log LIKE TABLE OF ls_log,
lv_object_guid TYPE crmt_object_guid.
DATA: ls_log_filter TYPE bal_s_lfil,
lt_log_header TYPE balhdr_t,
lt_log_header1 TYPE balhdr_t,
lt_extnumber TYPE bal_s_lfil-extnumber,
ls_extnumber LIKE LINE OF lt_extnumber,
ls_object LIKE ls_extnumber,
lt_object LIKE lt_extnumber,
ls_subobject LIKE ls_extnumber,
lt_subobject LIKE lt_extnumber.
FIELD-SYMBOLS: <msg_handle> TYPE balmsghndl.
lv_object_guid = '3440B5B172DE1ED4B1C6A856D9456788'.
"new design
ls_extnumber-sign = 'I'.
ls_extnumber-option = 'EQ'.
ls_extnumber-low = lv_object_guid.
APPEND ls_extnumber TO lt_extnumber.
ls_log_filter-extnumber = lt_extnumber.
ls_object-sign = 'I'.
ls_object-option = 'EQ'.
ls_object-low = 'CRM_DOCUMENT'.
APPEND ls_object TO lt_object.
ls_log_filter-object = lt_object.
ls_subobject-sign = 'I'.
ls_subobject-option = 'EQ'.
ls_subobject-low = 'SINGLE'.
APPEND ls_subobject TO lt_subobject.
ls_log_filter-subobject = lt_subobject.
CALL FUNCTION 'BAL_DB_SEARCH'
EXPORTING
i_s_log_filter = ls_log_filter
IMPORTING
e_t_log_header = lt_log_header
EXCEPTIONS
log_not_found = 1
no_filter_criteria = 2.
DATA: lt_msgs TYPE BAL_T_MSGH.
call FUNCTION 'BAL_DB_LOAD'
EXPORTING
I_T_LOG_HEADER = lt_log_header
IMPORTING
E_T_MSG_HANDLE = lt_msgs
EXCEPTIONS
NO_LOGS_SPECIFIED = 1
LOG_NOT_FOUND = 2
LOG_ALREADY_LOADED = 3.
WRITE: / sy-subrc.
BREAK-POINT.
data: ls_msg_handle TYPE BALMSGHNDL,
ls_context type crmt_msg_context,
lv_item_no type crmt_item_no.
READ TABLE lt_log_header ASSIGNING FIELD-SYMBOL(<fs>) INDEX 1.
CHECK sy-subrc = 0.
ls_msg_handle-log_handle = <fs>-log_handle.
CLEAR: ls_msg.
* Read the message
call function 'BAL_LOG_MSG_READ'
exporting
i_s_msg_handle = ls_msg_handle
importing
e_s_msg = ls_msg
exceptions
others = 1.
BREAK-POINT.
汪子熙
认证博客专家
前端框架
Node.js
SAP
JerryWang,2007年从电子科技大学计算机专业硕士毕业后加入SAP成都研究院工作至今。Jerry是SAP社区导师,SAP中国技术大使。2020年5月下旬,Jerry做了脑部肿瘤的开颅切除手术,对编程和人生又有了新的感悟。
转载请注明原文地址:https://ipadbbs.8miu.com/read-55869.html