(1)银行账户检查:SE38:CHECK_END_BANK_ADDRESS(隐式增强)
SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_lfbk FROM lfbk WHERE bankn = bank_account.
IF sy-subrc = 0.
MESSAGE e001(00) WITH '银行账户' && ls_lfbk-bankn && '已存在于供应商' && ls_lfbk-lifnr.
ENDIF.
(2)供应商信息检查:
BADI:BUPA_ADDR_CHECK
方法:IF_EX_BUPA_ADDR_CHECK~CHECK
主要参数:IS_BUT000(BP: 一般数据 I)
METHOD IF_EX_BUPA_ADDR_CHECK~CHECK.
DATA:EV_OK_CODE TYPE BU_FCODE.
CALL FUNCTION 'BUS_LOCATOR_OKCODE'
IMPORTING
EV_OK_CODE = EV_OK_CODE.
IF ( EV_OK_CODE = 'BUS_MAIN_SAVE' or ( EV_OK_CODE = 'BUS_MAIN_BACK' and SY-UCOMM = 'YES' ) ) AND SY-TCODE = 'BP'.
CALL FUNCTION 'ZFMPSEXIT001' “自建函数
EXPORTING
IS_BUT000 = IS_BUT000
TABLES
ET_RETURN = ET_RETURN.
ENDIF.
ENDMETHOD.