Sap uses VMD_EI_API = & gt; MAINTAIN to create supplier master data, sapvmd_ei_api

Source: Internet
Author: User

Sap uses VMD_EI_API => MAINTAIN to create supplier master data, 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.


* Primary Data
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 '.


* Address data
LWA_VEND-CENTRAL_DATA-ADDRESS-TASK = 'I '.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-TITLE = '000000 '.
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 = '2014 Barber Lane Milpitas ,'.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-HOUSE_NO = 'california '.
* LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-POSTL_COD1 = '000000 '.
* LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-CITY = 'qingdao '.
LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'us '.
* LWA_VEND-CENTRAL_DATA-ADDRESS-POSTAL-DATA-REGION = '000000 '.


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 '.


* Bank Data
* ** LWA_BANKDETAILS-TASK = 'I '.
* ** LWA_BANKDETAILS-DATA_KEY-BANKL = 'khyh '.
* ** LWA_BANKDETAILS-DATA_KEY-BANKN = '000000 '.
***
* ** APPEND LWA_BANKDETAILS TO LT_BANKDETAILS.
* ** LWA_VEND-CENTRAL_DATA-BANKDETAIL-BANKDETAILS = LT_BANKDETAILS.


* Company code data
* LWA_VEND-COMPANY_DATA-CURRENT_STATE = 'x '.
LWA_COMPANY-TASK = 'I '.
LWA_COMPANY-DATA_KEY-BUKRS = '000000 '.

LWA_COMPANY-DATA-AKONT = '000000 '.
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 turn positive )'.
LWA_COMPANY-DATA-INTAD = '2017. 2009 temporary turn official '.
LWA_COMPANY-DATA-KVERM = 'original '.


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.
A LWA_VEND-COMPANY_DATA-COMPANY = LT_COMPANY.


* Purchase data
LWA_PURCHASING-TASK = 'I '.
LWA_PURCHASING-DATA_KEY-EKORG = '000000'. "purchasing organization


LWA_PURCHASING-DATA-WAERS = 'usd '.
LWA_PURCHASING-DATA-ZTERM = 'z008 '.
* ** LWA_PURCHASING-DATA-INCO1 = ''.
LWA_PURCHASING-DATA-KALSK = 'z1 '.
LWA_PURCHASING-DATA-VERKF = 'penalty gang '.
LWA_PURCHASING-DATA-TELF1 = '000000 '.
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.
A 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.
When sap abap uses pai_ei_api => maintain_bapi to create a Customer Master in the background

I have never used it, but I remember a sample code in my favorites about it.

But now I don't have my own notebook. I'll show it to you later.
 
Which of the following is the bapi that calls SAP to create customer master data in java?

You can use the following four methods to create, modify, delete, and display tags respectively.

BAPI_CUSTOMER_CREATE
BAPI_CUSTOMER_DELETE
BAPI_CUSTOMER_DISPLAY
BAPI_CUSTOMER_EDIT

The BAPI search method is actually very simple: first, you can search for BAPI through the transaction code BAPI; instead, you can search by BAPI * through SE37, because BAPI functions start with BAPI.

Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

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.