删除BP地址概览 BAPI_BUPA_ADDRESS_REMOVE

SAP爱好者

于 2024-06-27 22:10:37 发布

阅读量161

点赞数 3

分类专栏： SAP ABAP 核心代码文章标签： BP地址概览删除地址概览 BP主数据维护

本文链接：https://blog.csdn.net/dwjnhkbc123/article/details/140025551

版权

SAP ABAP 核心代码专栏收录该内容

27 篇文章 23 订阅

订阅专栏

FORM FRM_ADDRESS_REMOVE USING   LV_BP      TYPE BU_PARTNER
                                LV_GUID    TYPE BUT020-GUID
                       CHANGING CV_TYPE    TYPE COMSGTY
                                CV_MESSAGE TYPE BAPI_MSG
                                CT_RETURN  TYPE BAPIRET2_T.

  DATA: LW_RETURN TYPE BAPIRET2.

  CLEAR: CV_TYPE, CV_TYPE.
  REFRESH: CT_RETURN.

  CALL FUNCTION 'BAPI_BUPA_ADDRESS_REMOVE'
    EXPORTING
      BUSINESSPARTNER = LV_BP
      ADDRESSGUID     = LV_GUID
    TABLES
      RETURN          = CT_RETURN.

  CLEAR: LW_RETURN.
  LOOP AT CT_RETURN INTO LW_RETURN WHERE TYPE CA 'AEX'.
    EXIT.
  ENDLOOP.

  IF LW_RETURN IS INITIAL.
    CV_TYPE    = 'S'.
    CV_MESSAGE = LV_GUID && '删除成功'.
    PERFORM FRM_BAPI_COMMIT USING 'X' CHANGING LW_RETURN.
  ELSE.
    CV_TYPE    = 'E'.
    CV_MESSAGE = LW_RETURN-MESSAGE.
    PERFORM FRM_BAPI_ROLLBACK CHANGING LW_RETURN.
  ENDIF.
ENDFORM.


FORM FRM_BAPI_COMMIT USING    LV_WAIT   TYPE BAPITA-WAIT
                     CHANGING LW_RETURN TYPE BAPIRET2.
  CLEAR: LW_RETURN.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT   = LV_WAIT
    IMPORTING
      RETURN = LW_RETURN.
ENDFORM.

FORM FRM_BAPI_ROLLBACK CHANGING LW_RETURN TYPE BAPIRET2.
  CLEAR: LW_RETURN.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
    IMPORTING
      RETURN = LW_RETURN.
ENDFORM.

相关BAPI

BAPI_BUPA_ADDRESSES_GET SAP BP BAPI Determine All Addresses
BAPI_BUPA_ADDRESS_ADD SAP BP BAPI Add Address
BAPI_BUPA_ADDRESS_CHANGE SAP BP BAPI Change Address
BAPI_BUPA_ADDRESS_GETDETAIL SAP BP BAPI Read Address
BAPI_BUPA_ADDRESS_GET_NUMBERS SAP BP BAPI Read Address Numbers
BAPI_BUPA_ADDRESS_REMOVE SAP BP BAPI Delete Address