BP创建供应商保存增强

Cici_Leee

于 2021-10-27 10:10:35 发布

阅读量2.3k

点赞数 1

分类专栏： SAP/ABAP记录文章标签：经验分享

本文链接：https://blog.youkuaiyun.com/weixin_55593130/article/details/120987294

版权

SAP/ABAP记录专栏收录该内容

48 篇文章

订阅专栏

（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.