sap利用VMD_EI_API=>MAINTAIN建立供應商主要資料,sapvmd_ei_api
FRM_VENDOR_CREATE.
DATA:LV_FLG.
DATA:LS_MAIN TYPE VMDS_EI_MAIN,
LS_MESG TYPE CVIS_MESSAGE,
LT_MSG TYPE BAPIRET2_T,
LWA_MSG TYPE BAPIRET2,
LT_VEND TYPE VMDS_EI_EXTERN_T,
LWA_VEND TYPE VMDS_EI_EXTERN,
LT_COMPANY TYPE VMDS_EI_COMPANY_T,
LWA_COMPANY TYPE VMDS_EI_COMPANY,
LT_BANKDETAILS TYPE CVIS_EI_BANKDETAIL_T,
LWA_BANKDETAILS TYPE CVIS_EI_CVI_BANKDETAIL,"CVIS_EI_BANKDETAIL.
LT_PURCHASING TYPE VMDS_EI_PURCHASING_T,
LWA_PURCHASING TYPE VMDS_EI_PURCHASING,
LT_FUNCTIONS TYPE VMDS_EI_FUNCTIONS_T,
LWA_FUNCTIONS TYPE VMDS_EI_FUNCTIONS.
* 主要資料
LWA_VEND-HEADER-OBJECT_TASK = 'I'.
*LWA_VEND-HEADER-OBJECT_INSTANCE-LIFNR = 'A20101241'.
LWA_VEND-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'Z002'.
LWA_VEND-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X'.
*地址資料
LWA_VEND-CENTRAL_DATA-ADDRESS-TASK = 'I'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-TITLE = '0002'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME = 'LSI Logic Storage System, Inc'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU = SY-LANGU.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'CN'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = 'LSI'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT2 = 'LSI'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-STREET = '1621 Barber Lane Milpitas,'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-HOUSE_NO = 'California'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-POSTL_COD1 = '466303'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-CITY = '青島'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'US'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-REGION = '120'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-TITLE = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-LANGU = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT1 = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT2 = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-STREET = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-HOUSE_NO = 'X'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-POSTL_COD1 = 'X'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-CITY = 'X'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY = 'X'.
*LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-REGION = 'X'.
*銀行資料
***LWA_BANKDETAILS-TASK = 'I'.
***LWA_BANKDETAILS-DATA_KEY-BANKL = 'KHYH'.
***LWA_BANKDETAILS-DATA_KEY-BANKN = '232232322232323'.
***
***APPEND LWA_BANKDETAILS TO LT_BANKDETAILS.
***LWA_VEND-CENTRAL_DATA-BANKDETAIL-BANKDETAILS = LT_BANKDETAILS.
* 公司代碼資料
*LWA_VEND-COMPANY_DATA-CURRENT_STATE = 'X'.
LWA_COMPANY-TASK = 'I'.
LWA_COMPANY-DATA_KEY-BUKRS = '1100'.
LWA_COMPANY-DATA-AKONT = '0021210101'.
LWA_COMPANY-DATA-ZTERM = 'Z008'.
LWA_COMPANY-DATA-ZWELS = 'E'.
LWA_COMPANY-DATA-TOGRR = 'Z001'.
LWA_COMPANY-DATA-REPRF = 'X'.
LWA_COMPANY-DATA-ZSABE = 'Z(090324轉正)'.
LWA_COMPANY-DATA-INTAD = '2009.03.24 臨時轉正式'.
LWA_COMPANY-DATA-KVERM = '原機'.
LWA_COMPANY-DATAX-AKONT = 'X'.
LWA_COMPANY-DATAX-ZTERM = 'X'.
LWA_COMPANY-DATAX-ZWELS = 'X'.
LWA_COMPANY-DATAX-TOGRR = 'X'.
LWA_COMPANY-DATAX-REPRF = 'X'.
LWA_COMPANY-DATAX-ZSABE = 'X'.
LWA_COMPANY-DATAX-INTAD = 'X'.
LWA_COMPANY-DATAX-KVERM = 'X'.
APPEND LWA_COMPANY TO LT_COMPANY.
LWA_VEND-COMPANY_DATA-COMPANY = LT_COMPANY.
*採購資料
LWA_PURCHASING-TASK = 'I'.
LWA_PURCHASING-DATA_KEY-EKORG = '1100'. "採購組織
LWA_PURCHASING-DATA-WAERS = 'USD'.
LWA_PURCHASING-DATA-ZTERM = 'Z008'.
***LWA_PURCHASING-DATA-INCO1 = ''.
LWA_PURCHASING-DATA-KALSK = 'Z1'.
LWA_PURCHASING-DATA-VERKF = '刑剛'.
LWA_PURCHASING-DATA-TELF1 = '13925135205'.
LWA_PURCHASING-DATA-WEBRE = 'X'.
LWA_PURCHASING-DATA-KZABS = 'X'.
LWA_PURCHASING-DATA-KZAUT = 'X'.
LWA_PURCHASING-DATA-BSTAE = 'Z001'.
***
LWA_PURCHASING-DATAX-WAERS = 'X'.
LWA_PURCHASING-DATAX-ZTERM = 'X'.
***LWA_PURCHASING-DATAX-INCO1 = 'X'.
LWA_PURCHASING-DATAX-KALSK = 'X'.
LWA_PURCHASING-DATAX-VERKF = 'X'.
LWA_PURCHASING-DATAX-TELF1 = 'X'.
LWA_PURCHASING-DATAX-WEBRE = 'X'.
LWA_PURCHASING-DATAX-KZABS = 'X'.
LWA_PURCHASING-DATAX-KZAUT = 'X'.
LWA_PURCHASING-DATAX-BSTAE = 'X'.
LWA_FUNCTIONS-TASK = 'I'.
LWA_FUNCTIONS-DATA_KEY-PARVW = 'BA'.
APPEND LWA_FUNCTIONS TO LT_FUNCTIONS.
LWA_FUNCTIONS-TASK = 'I'.
LWA_FUNCTIONS-DATA_KEY-PARVW = 'LF'.
APPEND LWA_FUNCTIONS TO LT_FUNCTIONS.
LWA_FUNCTIONS-TASK = 'I'.
LWA_FUNCTIONS-DATA_KEY-PARVW = 'RS'.
APPEND LWA_FUNCTIONS TO LT_FUNCTIONS.
LWA_PURCHASING-FUNCTIONS-FUNCTIONS = LT_FUNCTIONS.
APPEND LWA_PURCHASING TO LT_PURCHASING.
LWA_VEND-PURCHASING_DATA-PURCHASING = LT_PURCHASING.
APPEND LWA_VEND TO LT_VEND.
LS_MAIN-VENDORS = LT_VEND.
CALL METHOD VMD_EI_API=>MAINTAIN
EXPORTING
* IV_TEST_RUN = SPACE
IS_MASTER_DATA = LS_MAIN
IMPORTING
ES_ERROR = LS_MESG .
LT_MSG = LS_MESG-MESSAGES.
LOOP AT LT_MSG INTO LWA_MSG.
WRITE: / LWA_MSG-TYPE,LWA_MSG-MESSAGE.
IF LWA_MSG-TYPE = 'E' OR LWA_MSG-TYPE = 'A'.
LV_FLG = 'X'.
ENDIF.
ENDLOOP.
IF LV_FLG IS INITIAL.
COMMIT WORK.
ELSE.
ROLLBACK WORK.
ENDIF.
ENDFORM.
SAP ABAP 使用cmd_ei_api=>maintain_bapi 在後台建立Customer Master的時
沒用過 但是我記得我收藏夾裡有個講這個東西的sample code
但是現在不是自己的本子 等拿到了自己本子給你看看
用java 調用SAP建立客戶主要資料的bapi是那個
你可以用以下四個分別建立、修改、刪除標記、顯示。
BAPI_CUSTOMER_CREATE
BAPI_CUSTOMER_DELETE
BAPI_CUSTOMER_DISPLAY
BAPI_CUSTOMER_EDIT
尋找BAPI的方法其實很簡單:一是可以通過事務代碼BAPI進去找;而是通過SE37進去按BAPI*尋找,因為BAPI函數都是以BAPI開頭的哦