sap利用VMD_EI_API=>MAINTAIN创建供应商主数据

23ee

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.