万能锁对象 EZ_BDCP2

最新推荐文章于 2024-08-09 10:40:14 发布

anchangong3418

最新推荐文章于 2024-08-09 10:40:14 发布

阅读量273

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/rainysblog/p/11065120.html

本文深入探讨了ABAP中万能锁对象EZ_BDCP2的使用方法，详细讲解了如何通过FRM_LOCK_EBELN表单来锁定采购订单，以防并发处理中的数据冲突。在代码示例中，展示了如何调用ENQUEUE_EZ_BDCP2函数来实现对象级别的锁定，并处理可能的异常情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

万能锁对象 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.