万能锁对象 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 =
system_failure =
OTHERS = .
IF sy-subrc <> .
DATA(lv_message) = '采购订单' && <gf_doc>-ebeln &&
'正在处理中,被用户' && sy-msgv1 && '锁定'.
MESSAGE lv_message TYPE 'E' .
LEAVE LIST-PROCESSING.
EXIT.
ENDIF. ENDFORM.