bapi創建及修改供應商主數據（業務伙伴、財務視圖、銀行信息、采購組織）

本文轉載自查看原文 2019-06-28 10:04 1878

CASE SRM_SUPPLIER_IN-ZMOD.
WHEN 'ADD'.
SELECT MAX( BUT000~PARTNER )
INTO L_BPARTNER
FROM BUT000
WHERE BUT000~BU_GROUP = 'ST07'.
L_BPARTNER = L_BPARTNER + 1.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = L_BPARTNER
IMPORTING
OUTPUT = L_BPARTNER.
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
EXPORTING
INPUT = 'ZH'
IMPORTING
OUTPUT = LS_ADDRESS-LANGU "語言
EXCEPTIONS
UNKNOWN_LANGUAGE = 1
OTHERS = 2.
L_PARTN_CAT = '2'.
L_PARTN_GRP = 'ST07'.
LS_CENTRAL-TITLE_KEY = '0003'. "稱謂
LS_CENTRAL_ORGAN-NAME1 = SRM_SUPPLIER_IN-NAME_ORG1. "名稱1

IF SRM_SUPPLIER_IN-BU_SORT1 IS INITIAL.
LS_CENTRAL-SEARCHTERM1 = SRM_SUPPLIER_IN-NAME_ORG1(20). "檢索項
ELSE.
LS_CENTRAL-SEARCHTERM1 = SRM_SUPPLIER_IN-BU_SORT1. "檢索項
ENDIF.
LS_ADDRESS-STREET = SRM_SUPPLIER_IN-STREET. "街道
LS_ADDRESS-CITY = SRM_SUPPLIER_IN-CITY1. "城市
LS_ADDRESS-COUNTRY = 'CN'. "國家
CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
EXPORTING
BUSINESSPARTNEREXTERN = L_BPARTNER
PARTNERCATEGORY = L_PARTN_CAT
PARTNERGROUP = L_PARTN_GRP
CENTRALDATA = LS_CENTRAL
CENTRALDATAORGANIZATION = LS_CENTRAL_ORGAN
ADDRESSDATA = LS_ADDRESS
IMPORTING
BUSINESSPARTNER = L_BPARTNER
TABLES
RETURN = LT_RETURN1
.
CLEAR:RETURN_MESSAGE, L_MSG1.
LOOP AT LT_RETURN1 WHERE TYPE CA 'AEX'.

CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
MSGID = LT_RETURN1-ID
MSGNR = LT_RETURN1-NUMBER
MSGV1 = LT_RETURN1-MESSAGE_V1
MSGV2 = LT_RETURN1-MESSAGE_V2
MSGV3 = LT_RETURN1-MESSAGE_V3
MSGV4 = LT_RETURN1-MESSAGE_V4
IMPORTING
MESSAGE_TEXT_OUTPUT = RETURN_MESSAGE.
L_MSG1 = L_MSG1 && '##' && RETURN_MESSAGE.
CLEAR RETURN_MESSAGE.
ENDLOOP.
IF L_MSG1 IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' "commit--信息提交
EXPORTING
WAIT = 'X'. "地址信息提交
L_VENDOR = L_BPARTNER.

CLEAR LS_BAPIBUS1006_BANKDETAIL.
LS_BAPIBUS1006_BANKDETAIL-BANK_KEY = SRM_SUPPLIER_IN-BANKL.
LS_BAPIBUS1006_BANKDETAIL-BANK_CTRY = 'CN'. "銀行國家
LS_BAPIBUS1006_BANKDETAIL-ACCOUNTHOLDER = SRM_SUPPLIER_IN-KOINH. "賬戶持有人
LS_BAPIBUS1006_BANKDETAIL-BANK_ACCT = SRM_SUPPLIER_IN-BANK_NO. "銀行賬戶

CALL FUNCTION 'BAPI_BUPA_BANKDETAIL_ADD'
EXPORTING
BUSINESSPARTNER = L_BPARTNER
BANKDETAILDATA = LS_BAPIBUS1006_BANKDETAIL
TABLES
RETURN = LT_RETURN3.
CLEAR L_MSG3.
LOOP AT LT_RETURN3 WHERE TYPE = 'E' OR TYPE = 'A'. " OR TYPE = 'W'.
CONCATENATE LT_RETURN3-MESSAGE L_MSG3 INTO L_MSG3 SEPARATED BY '；'. "銀行信息創建不成功
CONDENSE L_MSG3.
ENDLOOP.
IF L_MSG3 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'. "銀行信息提交（即銀行信息創建成功）

*分配角色
CLEAR: LT_RETURN4,LT_RETURN4[].
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD_2' "財務視圖
EXPORTING
BUSINESSPARTNER = L_BPARTNER
BUSINESSPARTNERROLECATEGORY = 'FLVN00'
BUSINESSPARTNERROLE = 'FLVN00'
TABLES
RETURN = LT_RETURN4.

CLEAR L_MSG4.
LOOP AT LT_RETURN4 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE LT_RETURN4-MESSAGE L_MSG4 INTO L_MSG4 SEPARATED BY '；'.
CONDENSE L_MSG4.
ENDLOOP.

IF L_MSG4 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.

CLEAR: LS_MASTER_DATA,LS_COMPANY,LT_MASTER_DATA.
LS_MASTER_DATA-HEADER-OBJECT_TASK = 'M'.
LS_MASTER_DATA-HEADER-OBJECT_INSTANCE-LIFNR = L_VENDOR.

LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'ST07'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-STENR = SRM_SUPPLIER_IN-TAXNUM."社會信用號

LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-STENR = 'X'."社會信用號

LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME = SRM_SUPPLIER_IN-NAME_ORG1+0(35). "名稱1
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME_2 = SRM_SUPPLIER_IN-NAME_ORG1+35(5). "名稱2
IF SRM_SUPPLIER_IN-BU_SORT1 IS INITIAL.
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = SRM_SUPPLIER_IN-NAME_ORG1+0(20). "檢索項
ELSE.
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = SRM_SUPPLIER_IN-BU_SORT1. "屬性（SAP為搜索項 1）
ENDIF.

LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-STREET = SRM_SUPPLIER_IN-STREET. "街道/門牌號
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-CITY = SRM_SUPPLIER_IN-CITY1. "城市
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'CN'. "國家
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU = '1'. "語言

LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME = 'X'. "名稱1
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME_2 = 'X'. "名稱2
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT1 = 'X'. "屬性（SAP為搜索項 1）
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-STREET = 'X'. "街道/門牌號
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-CITY = 'X'. "城市
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY = 'X'. "國家
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-LANGU = 'X'. "語言

LS_COMPANY-TASK = 'M'.
LS_COMPANY-DATA_KEY-BUKRS = '6010'. "公司代碼
LS_COMPANY-DATA-AKONT = '2202020000'. "統馭科目
LS_COMPANY-DATAX-AKONT = 'X'.
LS_COMPANY-DATA-ZTERM = SRM_SUPPLIER_IN-ZTERM. "付款條件
LS_COMPANY-DATAX-ZTERM = 'X'.
LS_COMPANY-DATA-ZWELS = 'BEFGHIJKLM'. "付款方式
LS_COMPANY-DATAX-ZWELS = 'X'.
APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.
LS_COMPANY-DATA_KEY-BUKRS = '7010'. "公司代碼
APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.
LS_COMPANY-DATA_KEY-BUKRS = '8010'. "公司代碼
APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.
LS_COMPANY-DATA_KEY-BUKRS = '9010'. "公司代碼
APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.
LS_COMPANY-DATA_KEY-BUKRS = '9020'. "公司代碼
APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.

APPEND LS_MASTER_DATA TO LT_MASTER_DATA-VENDORS[].
VMD_EI_API=>INITIALIZE( ).

CALL METHOD VMD_EI_API=>MAINTAIN_BAPI
EXPORTING
IS_MASTER_DATA = LT_MASTER_DATA
IMPORTING
ES_MASTER_DATA_CORRECT = L1
ES_MESSAGE_CORRECT = L2
ES_MASTER_DATA_DEFECTIVE = L3
ES_MESSAGE_DEFECTIVE = L4.

IF L4-IS_ERROR = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.

FREE: LS_MASTER_DATA,LS_PURCHASING,LT_MASTER_DATA.
CLEAR: LS_MASTER_DATA,LS_PURCHASING,LT_MASTER_DATA,LT_MASTER_DATA-VENDORS[].
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD_2'
EXPORTING
BUSINESSPARTNER = L_BPARTNER
BUSINESSPARTNERROLECATEGORY = 'FLVN01'
BUSINESSPARTNERROLE = 'FLVN01'
TABLES
RETURN = LT_RETURN5.
LOOP AT LT_RETURN5 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE LT_RETURN5-MESSAGE L_MSG5 INTO L_MSG4 SEPARATED BY '；'.
CONDENSE L_MSG5.
ENDLOOP.
IF L_MSG5 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' "角色信息提交（即角色創建成功）
EXPORTING
WAIT = 'X'.
LS_MASTER_DATA-HEADER-OBJECT_TASK = 'M'.
LS_MASTER_DATA-HEADER-OBJECT_INSTANCE-LIFNR = L_BPARTNER.
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'ST07'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X'. "供應商帳戶組
"采購數據
LS_MASTER_DATA-PURCHASING_DATA-CURRENT_STATE = 'X'. "采購完成數據的標識
LS_PURCHASING-FUNCTIONS-CURRENT_STATE = 'X'."合作伙伴完成數據的標識
LS_PURCHASING-TASK = 'M'.
LS_PURCHASING-DATA_KEY-EKORG = '6010'.
LS_PURCHASING-DATA-WAERS = 'CNY'.
LS_PURCHASING-DATAX-WAERS = 'X'.
LS_PURCHASING-DATA-ZTERM = SRM_SUPPLIER_IN-ZTERM.
LS_PURCHASING-DATAX-ZTERM = 'X'.
LS_PURCHASING-DATA-VERKF = SRM_SUPPLIER_IN-VERKF.
LS_PURCHASING-DATAX-VERKF = 'X'.
LS_PURCHASING-DATA-TELF1 = SRM_SUPPLIER_IN-TELF1.
LS_PURCHASING-DATAX-TELF1 = 'X'.

LS_FUNCTIONS-TASK = 'M'.
LS_FUNCTIONS-DATA_KEY-PARVW = 'BA'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

LS_FUNCTIONS-DATA_KEY-PARVW = 'LF'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

LS_FUNCTIONS-DATA_KEY-PARVW = 'RS'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

APPEND LS_PURCHASING TO LS_MASTER_DATA-PURCHASING_DATA-PURCHASING.

LS_PURCHASING-DATA_KEY-EKORG = '9010'.

APPEND LS_PURCHASING TO LS_MASTER_DATA-PURCHASING_DATA-PURCHASING.

APPEND LS_MASTER_DATA TO LT_MASTER_DATA-VENDORS[].

VMD_EI_API=>INITIALIZE( ).

CALL METHOD VMD_EI_API=>MAINTAIN_BAPI
EXPORTING
IV_COLLECT_MESSAGES = 'X'
IS_MASTER_DATA = LT_MASTER_DATA
IMPORTING
ES_MASTER_DATA_CORRECT = L1
ES_MESSAGE_CORRECT = L2
ES_MASTER_DATA_DEFECTIVE = L3
ES_MESSAGE_DEFECTIVE = L5.

IF L5-IS_ERROR = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = '供應商主數據創建成功'.
RETURN-ZMESS = '供應商主數據創建成功'.
RETURN-ZISOK = 'Y'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

DATA LS_L5 LIKE LINE OF L5-MESSAGES.
LOOP AT L5-MESSAGES INTO LS_L5 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE L_MSGL5 LS_L5-MESSAGE INTO L_MSGL5 SEPARATED BY '；'.
CONDENSE L_MSGL5.
ENDLOOP.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL5 .
RETURN-ZMESS = '業務伙伴創建成功,創建采購視圖失敗'.
RETURN-ZISOK = 'N'.
ENDIF.
ELSE.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL5 .
RETURN-ZMESS = '業務伙伴創建成功,創建采購視圖基礎失敗'.
RETURN-ZISOK = 'N'.
ENDIF.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

DATA LS_L4 LIKE LINE OF L4-MESSAGES.
LOOP AT L4-MESSAGES INTO LS_L4 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE L_MSGL4 LS_L4-MESSAGE INTO L_MSGL4 SEPARATED BY '；'.
CONDENSE L_MSGL4.
ENDLOOP.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL4 .
RETURN-ZMESS = '創建業務合作伙伴成功,創建財務視圖失敗'.
RETURN-ZISOK = 'N'.

ENDIF.

ELSE.
ROLLBACK WORK.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG4.
RETURN-ZMESS = '業務伙伴創建成功,創建財務視圖基礎失敗'.
RETURN-ZISOK = 'N'.
ENDIF.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG3 .
RETURN-ZMESS = '創建業務合作伙伴成功,創建銀行信息失敗'.
RETURN-ZISOK = 'N'.

ENDIF.

ELSE.
ROLLBACK WORK.
CLEAR:RETURN_MESSAGE.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG1.
RETURN-ZMESS = '業務伙伴創建失敗'.
RETURN-ZISOK = 'N'.
ENDIF.
RETURN-ZNUM = ZNUM.
RETURN-DATUM = SY-DATUM.
RETURN-UZEIT = SY-UZEIT.

WHEN 'MOD'.

CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
EXPORTING
INPUT = 'ZH'
IMPORTING
OUTPUT = LS_ADDRESS-LANGU "語言
EXCEPTIONS
UNKNOWN_LANGUAGE = 1
OTHERS = 2.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = SRM_SUPPLIER_IN-PARTNER
IMPORTING
OUTPUT = L_BPARTNER.
SELECT SINGLE *
FROM BUT000
WHERE PARTNER = L_BPARTNER
AND BU_GROUP = 'ST07'.
IF SY-SUBRC NE 0.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = '業務合作伙伴' && L_BPARTNER && '在SAP中不存在，不允許修改.'.
RETURN-ZMESS = '業務合作伙伴' && L_BPARTNER && '在SAP中不存在，不允許修改.'.
RETURN-ZISOK = 'N'.
RETURN-ZNUM = ZNUM.
RETURN-DATUM = SY-DATUM.
RETURN-UZEIT = SY-UZEIT.

ENDIF.

L_PARTN_CAT = '2'.
L_PARTN_GRP = 'ST07'.
LS_CENTRAL-TITLE_KEY = '0003'. "稱謂
LS_CENTRALDATA_X-TITLE_KEY = 'X'.
LS_CENTRAL_ORGAN-NAME1 = SRM_SUPPLIER_IN-NAME_ORG1. "名稱1
LS_CENTRALDATAORGANIZATION_X-NAME1 = 'X'.
IF SRM_SUPPLIER_IN-BU_SORT1 IS INITIAL.
LS_CENTRAL-SEARCHTERM1 = SRM_SUPPLIER_IN-NAME_ORG1(20). "檢索項
ELSE.
LS_CENTRAL-SEARCHTERM1 = SRM_SUPPLIER_IN-BU_SORT1. "檢索項
ENDIF.
LS_CENTRALDATA_X-SEARCHTERM1 = 'X'.
IF SRM_SUPPLIER_IN-ZTYPE = 'D'.
LS_CENTRAL-CENTRALARCHIVINGFLAG = 'X'. "中心歸檔標記
ENDIF.
LS_ADDRESS-STREET = SRM_SUPPLIER_IN-STREET. "街道
LS_ADDRESS-CITY = SRM_SUPPLIER_IN-CITY1. "城市
LS_ADDRESS-COUNTRY = 'CN'. "國家
SY-LANGU = '1'.
CALL FUNCTION 'BAPI_BUPA_CENTRAL_CHANGE'
EXPORTING
BUSINESSPARTNER = L_BPARTNER
CENTRALDATA = LS_CENTRAL
CENTRALDATAORGANIZATION = LS_CENTRAL_ORGAN
CENTRALDATA_X = LS_CENTRALDATA_X
CENTRALDATAORGANIZATION_X = LS_CENTRALDATAORGANIZATION_X
TABLES
RETURN = LT_RETURN1.
CLEAR:RETURN_MESSAGE, L_MSG1. "20160721新增
LOOP AT LT_RETURN1 WHERE TYPE CA 'AEX'.

CLEAR LS_BAPIBUS1006_BANKDETAIL_X.
LS_BAPIBUS1006_BANKDETAIL_X-BANK_KEY = 'X'.
LS_BAPIBUS1006_BANKDETAIL_X-BANK_CTRY = 'X'.
LS_BAPIBUS1006_BANKDETAIL_X-ACCOUNTHOLDER = 'X'.
LS_BAPIBUS1006_BANKDETAIL_X-BANK_ACCT = 'X'.
CLEAR: LT_RETURN3, LT_RETURN3[].
CALL FUNCTION 'BAPI_BUPA_BANKDETAIL_CHANGE' "銀行信息
EXPORTING
BUSINESSPARTNER = L_BPARTNER
BANKDETAILID = '0001'
BANKDETAILDATA = LS_BAPIBUS1006_BANKDETAIL
BANKDETAILDATA_X = LS_BAPIBUS1006_BANKDETAIL_X
TABLES
RETURN = LT_RETURN3.

CLEAR L_MSG3.
LOOP AT LT_RETURN3 WHERE TYPE = 'E' OR TYPE = 'A'. " OR TYPE = 'W'.
CONCATENATE LT_RETURN3-MESSAGE L_MSG3 INTO L_MSG3 SEPARATED BY '；'. "銀行信息修改不成功
CONDENSE L_MSG3.
ENDLOOP.
IF L_MSG3 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'. "銀行信息提交（即銀行信息修改成功）

CLEAR: LS_ADDRESS, LS_ADDRESS_X.
LS_ADDRESS-COUNTRY = 'CN'.
LS_ADDRESS-CITY = SRM_SUPPLIER_IN-CITY1.
LS_ADDRESS-STREET = SRM_SUPPLIER_IN-STREET.
LS_ADDRESS-LANGU = 1.

LS_ADDRESS_X-COUNTRY = 'X'.
LS_ADDRESS_X-CITY = 'X'.
LS_ADDRESS_X-STREET = 'X'.
LS_ADDRESS_X-LANGU = 'X'.
CLEAR LT_BAPIADTEL.
LT_BAPIADTEL-STD_NO = 'X'.

* LT_BAPIADTEL-EXTENSION = GS_ITAB-TEL_EXTENS. "電話-分機
APPEND LT_BAPIADTEL.

CLEAR LT_BAPIADTEL_X.
LT_BAPIADTEL_X-STD_NO = 'X'.
LT_BAPIADTEL_X-TELEPHONE = 'X'. "電話
APPEND LT_BAPIADTEL_X.

CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
EXPORTING
BUSINESSPARTNER = L_BPARTNER
ADDRESSDATA = LS_ADDRESS
ADDRESSDATA_X = LS_ADDRESS_X
TABLES
BAPIADTEL = LT_BAPIADTEL
BAPIADFAX = LT_BAPIADFAX
BAPIADTEL_X = LT_BAPIADTEL_X
BAPIADFAX_X = LT_BAPIADFAX_X
RETURN = LT_RETURN2.
CLEAR L_MSG4. "20160721新增
LOOP AT LT_RETURN2 WHERE TYPE = 'E' OR TYPE = 'A'. " OR TYPE = 'W'.
CONCATENATE LT_RETURN2-MESSAGE L_MSG4 INTO L_MSG4 SEPARATED BY '；'.
CONDENSE L_MSG4.
ENDLOOP.
IF L_MSG4 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.

CLEAR: LS_MASTER_DATA,LS_COMPANY,LT_MASTER_DATA.
LS_MASTER_DATA-HEADER-OBJECT_TASK = 'M'.
LS_MASTER_DATA-HEADER-OBJECT_INSTANCE-LIFNR = L_BPARTNER.

LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'ST07'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-STENR = SRM_SUPPLIER_IN-TAXNUM."社會信用號

LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-STENR = 'X'."社會信用號
IF SRM_SUPPLIER_IN-ZTYPE = 'F'.
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-SPERR = 'X'."中心記賬凍結
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-SPERM = 'X'."采購組織凍結
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-SPERR = 'X'."記賬凍結
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-SPERM = 'X'."采購組織凍結
ENDIF.

LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME = SRM_SUPPLIER_IN-NAME_ORG1+0(35). "名稱1
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME_2 = SRM_SUPPLIER_IN-NAME_ORG1+35(5). "名稱2
IF SRM_SUPPLIER_IN-BU_SORT1 IS INITIAL.
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = SRM_SUPPLIER_IN-NAME_ORG1(20). "檢索項
ELSE.
LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = SRM_SUPPLIER_IN-BU_SORT1. "屬性（SAP為搜索項 1）
ENDIF.

LS_MASTER_DATA-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU = 1.

APPEND LS_COMPANY TO LS_MASTER_DATA-COMPANY_DATA-COMPANY.

APPEND LS_MASTER_DATA TO LT_MASTER_DATA-VENDORS[].

VMD_EI_API=>INITIALIZE( ).

CALL METHOD VMD_EI_API=>MAINTAIN_BAPI
EXPORTING
IS_MASTER_DATA = LT_MASTER_DATA
IMPORTING
ES_MASTER_DATA_CORRECT = L1
ES_MESSAGE_CORRECT = L2
ES_MASTER_DATA_DEFECTIVE = L3
ES_MESSAGE_DEFECTIVE = L4.

IF L4-IS_ERROR = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.

*******采購組織
FREE: LS_MASTER_DATA,LS_PURCHASING,LT_MASTER_DATA.
CLEAR: LS_MASTER_DATA,LS_PURCHASING,LT_MASTER_DATA,LT_MASTER_DATA-VENDORS[].
CALL FUNCTION 'BAPI_BUPA_ROLE_ADD_2'
EXPORTING
BUSINESSPARTNER = L_BPARTNER
BUSINESSPARTNERROLECATEGORY = 'FLVN01'
BUSINESSPARTNERROLE = 'FLVN01'
TABLES
RETURN = LT_RETURN5.
LOOP AT LT_RETURN5 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE LT_RETURN5-MESSAGE L_MSG5 INTO L_MSG4 SEPARATED BY '；'.
CONDENSE L_MSG5.
ENDLOOP.
IF L_MSG5 = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' "角色信息提交（即角色創建成功）
EXPORTING
WAIT = 'X'.
LS_MASTER_DATA-HEADER-OBJECT_TASK = 'M'.
LS_MASTER_DATA-HEADER-OBJECT_INSTANCE-LIFNR = L_BPARTNER.
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'ST07'. "供應商帳戶組
LS_MASTER_DATA-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X'. "供應商帳戶組
"采購數據
LS_MASTER_DATA-PURCHASING_DATA-CURRENT_STATE = 'X'. "采購完成數據的標識
LS_PURCHASING-FUNCTIONS-CURRENT_STATE = 'X'."合作伙伴完成數據的標識
LS_PURCHASING-TASK = 'M'.
LS_PURCHASING-DATA_KEY-EKORG = '6010'.
LS_PURCHASING-DATA-WAERS = 'CNY'.
LS_PURCHASING-DATAX-WAERS = 'X'.
LS_PURCHASING-DATA-ZTERM = SRM_SUPPLIER_IN-ZTERM.
LS_PURCHASING-DATAX-ZTERM = 'X'.
LS_PURCHASING-DATA-VERKF = SRM_SUPPLIER_IN-VERKF.
LS_PURCHASING-DATAX-VERKF = 'X'.
LS_PURCHASING-DATA-TELF1 = SRM_SUPPLIER_IN-TELF1.
LS_PURCHASING-DATAX-TELF1 = 'X'.

LS_FUNCTIONS-TASK = 'M'.
LS_FUNCTIONS-DATA_KEY-PARVW = 'BA'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

LS_FUNCTIONS-DATA_KEY-PARVW = 'LF'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

LS_FUNCTIONS-DATA_KEY-PARVW = 'RS'.
APPEND LS_FUNCTIONS TO LS_PURCHASING-FUNCTIONS-FUNCTIONS.

APPEND LS_PURCHASING TO LS_MASTER_DATA-PURCHASING_DATA-PURCHASING.

LS_PURCHASING-DATA_KEY-EKORG = '9010'.

APPEND LS_PURCHASING TO LS_MASTER_DATA-PURCHASING_DATA-PURCHASING.

APPEND LS_MASTER_DATA TO LT_MASTER_DATA-VENDORS[].

VMD_EI_API=>INITIALIZE( ).

IF L5-IS_ERROR = ''.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = '供應商主數據修改成功'.
RETURN-ZMESS = '供應商主數據修改成功'.
RETURN-ZISOK = 'Y'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

LOOP AT L5-MESSAGES INTO LS_L5 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE L_MSGL5 LS_L5-MESSAGE INTO L_MSGL5 SEPARATED BY '；'.
CONDENSE L_MSGL5.
ENDLOOP.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL5 .
RETURN-ZMESS = '業務伙伴修改成功,修改采購視圖失敗'.
RETURN-ZISOK = 'N'.
ENDIF.

ELSE.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL5 .
RETURN-ZMESS = '業務伙伴修改成功,修改采購視圖基礎失敗'.
RETURN-ZISOK = 'N'.

ENDIF.

ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

LOOP AT L4-MESSAGES INTO LS_L4 WHERE TYPE = 'E' OR TYPE = 'A'.
CONCATENATE L_MSGL4 LS_L4-MESSAGE INTO L_MSGL4 SEPARATED BY '；'.
CONDENSE L_MSGL4.
ENDLOOP.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSGL4 .
RETURN-ZMESS = '供應商主數據修改成功,修改財務視圖失敗'.
RETURN-ZISOK = 'N'.

ENDIF.

ELSE.
ROLLBACK WORK.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG4.
RETURN-ZMESS = '供應商主數據修改成功,修改財務視圖基礎失敗'.
RETURN-ZISOK = 'N'.
ENDIF.

ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG3 .
RETURN-ZMESS = '修改業務合作伙伴成功,修改銀行信息失敗'.
RETURN-ZISOK = 'N'.
ENDIF.

ELSE.
ROLLBACK WORK.
CLEAR:RETURN_MESSAGE.
SRM_SUPPLIER_RETURN-LIFNR = L_BPARTNER.
SRM_SUPPLIER_RETURN-INFO = L_MSG1.
RETURN-ZMESS = '業務伙伴修改失敗'.
RETURN-ZISOK = 'N'.
ENDIF.
RETURN-ZNUM = ZNUM.
RETURN-DATUM = SY-DATUM.
RETURN-UZEIT = SY-UZEIT.

ENDCASE.

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 ABAP-供應商主數據創建（凍結和解凍供應商的采購組織） ABAP-供應商主數據創建（基本視圖創建）【SD系列】SAP SD模塊-創建供應商主數據BAPI VMD_EI_API=>MAINTAIN_BAPI 去創建供應商主數據 BP 供應商創建與修改 SAP MM 明明已經擴展供應商到采購組織下，采購訂單里還是報錯？ SAP-批量修改主數據(客戶、供應商、物料) 【ABAP系列】SAP ABAP 利用class創建客戶/供應商主數據 SAP 供應商主數據維護(字段示例) 【MM S4】S4中BP業務代碼的業務伙伴和供應商，客戶之間的關系