SAP 冲销增强：MBST、MBRL和MIGO

METHOD if_ex_mb_document_badi~mb_document_before_update.

"BREAK-POINT.
"MESSAGE 'hello world' TYPE 'W'.

DATA: ls_mseg TYPE mseg.
"创建日期
DATA : i_erdat TYPE aufk-erdat.

DATA:i_zpmno TYPE aufk-zpmno.

DATA: ls_zpmmseg TYPE zpmmseg.
DATA: lt_zpmmseg TYPE TABLE OF zpmmseg.

DATA: e_jsondata TYPE string.
DATA: lv_appid        TYPE char6, "系统编码
      lv_serviceappid TYPE char12. "服务系统编码

DATA:lo_sys_exception TYPE REF TO cx_ai_system_fault.

DATA: lv_TIME1 TYPE STRING,
lv_TIME2 TYPE STRING,
lv_message type STRING.

DATA: result  TYPE string.
DATA:BEGIN OF ls_result,

       mblnr   TYPE mseg-mblnr, "物料凭证
       mjahr   TYPE mseg-mjahr, "年份
       zeile   TYPE mseg-zeile, "行项目
       mtype   TYPE c,          "状态
       message TYPE string,    "消息

     END OF ls_result.

DATA: lt_result LIKE TABLE OF ls_result .

IF  sy-tcode  = 'MBST'  OR sy-tcode = 'MBR