sap利用VMD_EI_API=>MAINTAIN建立供應商主要資料,sapvmd_ei_api

來源:互聯網
上載者:User

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開頭的哦
 

相關文章

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.