万能锁对象 EZ_BDCP2

万能锁对象 EZ_BDCP2

*&---------------------------------------------------------------------*
*& Form FRM_LOCK_EBELN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- LV_STATUS
*&---------------------------------------------------------------------*
FORM frm_lock_ebeln  CHANGING pv_status.
  DATA:lv_mestype TYPE bdcp2-mestype.

  lv_mestype = <gf_doc>-ebeln.
  CALL FUNCTION 'ENQUEUE_EZ_BDCP2'
    EXPORTING
      mode_bdcp2     = 'E'
      mandt          = sy-mandt
      mestype        = lv_mestype
*     CPIDENT        =
*     X_MESTYPE      = ' '
*     X_CPIDENT      = ' '
*     _SCOPE         = '2'
*     _WAIT          = ' '
*     _COLLECT       = ' '
    EXCEPTIONS
      foreign_lock   = 1
      system_failure = 2
      OTHERS         = 3.
  IF sy-subrc <> 0.
    DATA(lv_message) = '采购订单' && <gf_doc>-ebeln &&
                       '正在处理中,被用户' && sy-msgv1 && '锁定'.
    MESSAGE lv_message TYPE 'E' .
    LEAVE LIST-PROCESSING.
    EXIT.
  ENDIF.

ENDFORM.