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