SAP ABAP 更新BP银行数据
FUNCTION GROUP：BUBA_3
BAPI_BUPA_BANKDETAIL_CHANGE
BAPI_BUPA_BANKDETAIL_ADD
FORM frm_save_data_new .
FIELD-SYMBOLS:
DATA:
ls_but0bk TYPE but0bk,
lv_bkvid TYPE but0bk-bkvid,
lv_type TYPE char1.
DATA: ls_bankdetail TYPE bapibus1006_bankdetail.
DATA: ls_bankdetail_x TYPE BAPIBUS1006_BANKDETAIL_X.
DATA: lt_return TYPE TABLE OF bapiret2.
DATA: ls_return TYPE bapiret2.
LOOP AT gt_data ASSIGNING
CLEAR: lv_type,lt_return[],ls_bankdetail_x,ls_return.
- 判断< 银行账号 + 参考明细 > 是否一样 --》 一样：
- 判断账户收款人是否一样（如果一样，提示“已存在”，如果不一样，执行处理的时候修改账户收款人）
READ TABLE gt_but0bk INTO ls_but0bk WITH KEY partner =-lifnr
bankl =-bankl
bankn =-bankn
bkref =-bkref BINARY SEARCH.
IF sy-subrc = 0.
lv_type = ‘U’.
ELSE.
lv_type = ‘I’.
ENDIF.
ls_bankdetail-bank_ctry = -banks.
ls_bankdetail-bank_key = -bankl.
ls_bankdetail-bank_acct = -bankn.
ls_bankdetail-ctrl_key = -bkont.
ls_bankdetail-bank_ref = -bkref.
ls_bankdetail-accountholder = -koinh.
IF lv_type = 'I'.
CALL FUNCTION 'BAPI_BUPA_BANKDETAIL_ADD'
EXPORTING
businesspartner = -lifnr
bankdetaildata = ls_bankdetail
TABLES
return = lt_return
.
ELSE.
ls_bankdetail_x-ctrl_key = abap_true.
ls_bankdetail_x-accountholder = abap_true.
CALL FUNCTION 'BAPI_BUPA_BANKDETAIL_CHANGE'
EXPORTING
businesspartner = -lifnr
bankdetailid = ls_but0bk-bkvid
bankdetaildata = ls_bankdetail
bankdetaildata_x = ls_bankdetail_x
TABLES
return = lt_return
.
ENDIF.
READ TABLE lt_return INTO ls_return INDEX 1.
IF sy-subrc = 0.
MESSAGE ID ls_return-id TYPE ls_return-type NUMBER ls_return-number
WITH ls_return-message_v1 ls_return-message_v2 ls_return-message_v3 ls_return-message_v4
INTO -message.
-led = 1.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
-message = '修改成功'.
-led = 3.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = abap_true.
ENDIF.
ENDLOOP.
ENDFORM.