SAP ABAP 客户名称重复性检查

SAP ABAP 客户名称重复性检查
BADI:BUPA_ADDR_CHECK

  method IF_EX_BUPA_ADDR_CHECK~CHECK.
  DATA: LS_BUT000 TYPE BUT000.
    DATA: LS_BAPIRET2 TYPE BAPIRET2.
    CLEAR: LS_BUT000.
    IF IV_ACTIVITY NE ‘06’.
      IF NOT ( IS_BUT000-BU_GROUP = ‘Z002’ OR IS_BUT000-BU_GROUP = ‘X001’ OR IS_BUT000-BU_GROUP = ‘X005’ OR IS_BUT000-BU_GROUP = ‘Z030’ ).
      SELECT SINGLE *
        INTO LS_BUT000
        FROM BUT000
        WHERE PARTNER NE IS_BUT000-PARTNER
          AND NAME_ORG1 = IS_BUT000-NAME_ORG1
          AND NAME_GRP1 = IS_BUT000-NAME_GRP1
          AND BU_GROUP = IS_BUT000-BU_GROUP.
      IF LS_BUT000-PARTNER IS NOT INITIAL.
        CLEAR: LS_BAPIRET2.
        LS_BAPIRET2-TYPE = ‘E’.
        LS_BAPIRET2-ID = ‘00’ .
        LS_BAPIRET2-NUMBER = ‘001’ .
        LS_BAPIRET2-MESSAGE_V1 = ‘名字与’.
        LS_BAPIRET2-MESSAGE_V2 = LS_BUT000-PARTNER.
        LS_BAPIRET2-MESSAGE_V3 = ‘的一致’.
*        LS_BAPIRET2-MESSAGE = ‘名字与’  && LS_BUT000-PARTNER &&  ‘的一致’.

APPEND LS_BAPIRET2 to ET_RETURN.
      ENDIF.
    ENDIF.
    ENDIF.
  endmethod.