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

时间：2014-07-18 13:27:04 阅读：1514 评论：0 收藏：0 [点我收藏+]

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利用VMD_EI_API=>MAINTAIN创建供应商主数据,布布扣,bubuko.com

标签：abap vmd_ei_apimaintain 供应商主数据

原文地址：http://blog.csdn.net/champaignwolf/article/details/37914097

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行