BP合作伙伴 - 银行数据检查增强

陈送平er

已于 2023-07-09 17:14:27 修改

阅读量139

点赞数

分类专栏： SAP系统增强文章标签： java

于 2023-07-09 17:07:18 首次发布

本文链接：https://blog.csdn.net/weixin_42135249/article/details/131624792

版权

SAP系统增强专栏收录该内容

14 篇文章 0 订阅

订阅专栏

一、增强调用函数配置

二、函数源代码

一、增强调用函数配置

区域菜单：BUPT

TCODE：BUS7 - 业务数据工具集
事件：DCHCK 保存前检查 (交叉视图)
函数：ZFG_BP_ENHENCEMENT001 BP保存增强检查函数(DCHCK)

二、函数源代码

FUNCTION ZFG_BP_ENHENCEMENT001.
*"----------------------------------------------------------------------
*"*"本地接口：
*"----------------------------------------------------------------------
  DATA: W_BUT000 TYPE BUT000.
  DATA: WA_BUT0BK TYPE BUT0BK,
        IT_BUT0BK LIKE STANDARD TABLE OF WA_BUT0BK.

  CALL FUNCTION 'BUP_BUPA_BUT000_GET'
    IMPORTING
      E_BUT000 = W_BUT000
*     E_BUT000_STAT       =
*     E_DATA   =
*     E_PARTNER_EXT       =
*   TABLES
*     ET_BUT000           =
*     ET_BUT000_OLD       =
*     ET_ADTEL =
*     ET_ADFAX =
*     ET_ADTTX =
*     ET_ADTLX =
*     ET_ADSMTP           =
*     ET_ADRML =
*     ET_ADX400           =
*     ET_ADRFC =
*     ET_ADPRT =
*     ET_ADSSF =
*     ET_ADURI =
*     ET_ADPAG =
    .

  IF W_BUT000-BU_GROUP = 'Z008'.
    "Z008	财务专用供应商

    CLEAR: IT_BUT0BK.
    CALL FUNCTION 'BUP_BUPA_BUT0BK_GET'
      TABLES
        T_BUT0BK = IT_BUT0BK
*       T_DATA   =
*       T_BUT0BK_MARK       =
*       T_BUT0BK_OLD        =
      .

    IF IT_BUT0BK IS INITIAL.
      "银行信息未维护，请维护！
*      MESSAGE E004(ZFI) WITH ''.
      CALL FUNCTION 'BUS_MESSAGE_STORE'
        EXPORTING
          ARBGB      = 'ZFI'
          MSGTY      = 'E'
          TXTNR      = '004'
*         CANCEL     = ' '
*         MSGV1      = ''
*         MSGV2      = ' '
*         MSGV3      = ' '
*         MSGV4      = ' '
          TBFLD_STRG = 'GT_BUT0BK-BKVID'
*         STEPL      =
*         FLAG_COLL_END              =
*         REPEAT_SHOW                = '1'
*         SICHT      = 'CVIC30'
*         I_NOT_ACTIVE_HANDLER       = ' '
*         NAMESPACE  = ' '
*       IMPORTING
*         E_NOT_ACTIVE               =
        .
    ELSE.
      LOOP AT IT_BUT0BK INTO WA_BUT0BK.

        IF WA_BUT0BK-BANKL IS INITIAL.
          "银行代码
          "银行信息中的【&1】字段为空，请维护！
*          MESSAGE E005(ZFI) WITH '银行代码'.
          CALL FUNCTION 'BUS_MESSAGE_STORE'
            EXPORTING
              ARBGB      = 'ZFI'
              MSGTY      = 'E'
              TXTNR      = '005'
*             CANCEL     = ' '
              MSGV1      = '银行代码'
*             MSGV2      = ' '
*             MSGV3      = ' '
*             MSGV4      = ' '
              TBFLD_STRG = 'GT_BUT0BK-BANKL'
*             STEPL      =
*             FLAG_COLL_END              =
*             REPEAT_SHOW                = '1'
*             SICHT      = 'CVIC30'
*             I_NOT_ACTIVE_HANDLER       = ' '
*             NAMESPACE  = ' '
*          IMPORTING
*             E_NOT_ACTIVE               =
            .
          EXIT.
        ENDIF.

        IF WA_BUT0BK-BANKN IS INITIAL.
          "银行账户
          "银行信息中的【&1】字段为空，请维护！
*          MESSAGE E005(ZFI) WITH '银行账户'.
          CALL FUNCTION 'BUS_MESSAGE_STORE'
            EXPORTING
              ARBGB      = 'ZFI'
              MSGTY      = 'E'
              TXTNR      = '005'
*             CANCEL     = ' '
              MSGV1      = '银行账户'
*             MSGV2      = ' '
*             MSGV3      = ' '
*             MSGV4      = ' '
              TBFLD_STRG = 'GT_BUT0BK-BANKN'
*             STEPL      =
*             FLAG_COLL_END              =
*             REPEAT_SHOW                = '1'
*             SICHT      = 'CVIC30'
*             I_NOT_ACTIVE_HANDLER       = ' '
*             NAMESPACE  = ' '
*          IMPORTING
*             E_NOT_ACTIVE               =
            .
          EXIT.
        ENDIF.

        IF WA_BUT0BK-KOINH IS INITIAL.
          "帐户持有人
          "银行信息中的【&1】字段为空，请维护！
*          MESSAGE E005(ZFI) WITH '帐户持有人'.
          CALL FUNCTION 'BUS_MESSAGE_STORE'
            EXPORTING
              ARBGB      = 'ZFI'
              MSGTY      = 'E'
              TXTNR      = '005'
*             CANCEL     = ' '
              MSGV1      = '帐户持有人'
*             MSGV2      = ' '
*             MSGV3      = ' '
*             MSGV4      = ' '
              TBFLD_STRG = 'GT_BUT0BK-KOINH'
*             STEPL      =
*             FLAG_COLL_END              =
*             REPEAT_SHOW                = '1'
*             SICHT      = 'CVIC30'
*             I_NOT_ACTIVE_HANDLER       = ' '
*             NAMESPACE  = ' '
*          IMPORTING
*             E_NOT_ACTIVE               =
            .
          EXIT.
        ENDIF.

      ENDLOOP.
    ENDIF.

  ENDIF.

ENDFUNCTION.