SAP ABAP获取采购订单凭证历史函数

实现功能：在自开发的报表中单击或双击字段跳转至采购订单历史页签

实现代码：
DATA: lo_factory TYPE REF TO if_mmpur_history_factory,
lo_handle TYPE REF TO if_mmpur_history.

DATA: lv_ebeln TYPE ekpo-ebeln,
lv_ebelp TYPE ekpo-ebelp.

lv_ebeln = ‘4500000462’.
lv_ebelp = ‘00010’.

• IF cl_ops_switch_check=>mm_sfws_ci_3( ) = abap_true.
  CALL FUNCTION ‘MMHIPO_GET_FACTORY’
  IMPORTING
  eo_factory = lo_factory.
  TRY.
  lo_handle = lo_factory->get_document_handle(
  iv_document = lv_ebeln
  iv_doc_item = lv_ebelp ).
  lo_handle->call_gui( cl_mmpur_constants=>yes ).
  lo_factory->close( lv_ebeln ).
  CATCH cx_mmpur_not_found.
  RETURN.
  CATCH cx_mmpur_not_relevant.
  RETURN.
  ENDTRY.