VMD_EI_API=>MAINTAIN_BAPI 去创建供应商主数据

转自 http://blog.sina.com.cn/s/blog_9ae2f2940102uxyp.html

VMD_EI_API=>MAINTAIN_BAPI 去创建供应商主数据的部分数据代码。

*&---------------------------------------------------------------------* *& Report ZVENDOR *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZVENDOR. *&---------------------------------------------------------------------* *& Form FRM_CREATE_VENDOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> text *----------------------------------------------------------------------* " FRM_CREATE_VENDOR *&---------------------------------------------------------------------* *& Form FRM_CREATE_VENDOR *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> text *----------------------------------------------------------------------* DATA: LS_RETURN TYPE BAPIRET2. DATA: LS_MASTER_DATA TYPE VMDS_EI_MAIN. DATA: LS_MASTER_DATA_CORRECT TYPE VMDS_EI_MAIN, LS_MESSAGE_CORRECT TYPE CVIS_MESSAGE, LS_MASTER_DATA_DEFECTIVE TYPE VMDS_EI_MAIN, LS_MESSAGE_DEFECTIVE TYPE CVIS_MESSAGE. DATA: LS_VMDS_EI_EXTERN TYPE VMDS_EI_EXTERN. DATA: LS_CORRECT_EXTERN TYPE VMDS_EI_EXTERN. DATA: LS_REMARKS TYPE CVIS_EI_REM. DATA: LS_BANK TYPE CVIS_EI_CVI_BANKDETAIL. DATA: LS_COMMUNICATION_PHONE TYPE CVIS_EI_PHONE_STR, LS_COMMUNICATION_FAX TYPE CVIS_EI_FAX_STR, LS_COMMUNICATION_SMTP TYPE CVIS_EI_SMTP_STR. DATA: LV_STRING TYPE STRING . DATA: LV_APPROVED_DATE TYPE STRING, LV_APPROVED_DATE1 TYPE STRING. DATA: LV_ADRNR TYPE ADRNR, LS_KNVK TYPE KNVK, * LS_ZMMR1010 TYPE ZMMR1010, LV_RETCODE TYPE NRRETURN, LV_PERSON_NUMBER TYPE AD_PERSNUM. DATA: LS_CVI_BANKDETAIL TYPE CVIS_EI_CVI_BANKDETAIL, LS_BANKDETAIL_KEY TYPE CVIS_EI_BANKDETAIL_KEY, LS_BANKDETAIL_DATA TYPE CVIS_EI_BANKDETAIL_DATA, LS_BANKDETAIL_DATAX TYPE CVIS_EI_BANKDETAIL_DATAX. DATA: LV_MAX_LIFNR TYPE LIFNR. DATA: LS_VMDS_CMP TYPE VMDS_EI_COMPANY, LS_VMDS_PUR TYPE VMDS_EI_PURCHASING, LS_VMDS_FUN TYPE VMDS_EI_FUNCTIONS. DATA: ZLFBK TYPE LFBK. DATA:IV_FLAG TYPE C . CLEAR:LS_RETURN , LS_MASTER_DATA , LS_MASTER_DATA_CORRECT , LS_MESSAGE_CORRECT , LS_MASTER_DATA_DEFECTIVE , LS_MESSAGE_DEFECTIVE , LS_VMDS_EI_EXTERN , LS_CORRECT_EXTERN , LS_REMARKS , LS_BANK , LS_COMMUNICATION_PHONE , LS_COMMUNICATION_FAX , LS_COMMUNICATION_SMTP , LV_STRING , LV_APPROVED_DATE , LV_APPROVED_DATE1 , LV_ADRNR , LS_KNVK , LV_RETCODE , LV_PERSON_NUMBER , LS_CVI_BANKDETAIL , LS_BANKDETAIL_KEY , LS_BANKDETAIL_DATA , LS_BANKDETAIL_DATAX , LV_MAX_LIFNR , LS_VMDS_CMP , LS_VMDS_PUR , LS_VMDS_FUN , ZLFBK , IV_FLAG . CLEAR LS_VMDS_EI_EXTERN. * 维护标识：插入、更新 IV_FLAG = 'I' . LS_VMDS_EI_EXTERN-HEADER-OBJECT_TASK = IV_FLAG. * LS_VMDS_EI_EXTERN-HEADER-OBJECT_INSTANCE-LIFNR = IT_LIFNR-LIFNR. "供应商 * 公司代码默认:JNPC ??? CLEAR LS_VMDS_CMP. LS_VMDS_CMP-TASK = IV_FLAG. LS_VMDS_CMP-DATA_KEY-BUKRS = '2000' . "取采购组织下的 LS_VMDS_CMP-DATA-AKONT = '0000062130'. "总帐中的统驭科目 其他应付款-往来 LS_VMDS_CMP-DATA-FDGRV = 'A5'. * LS_VMDS_CMP-DATA-XVERR = 'X'. " 结算客户  LS_VMDS_CMP-DATAX-AKONT = 'X'. "总帐中的统驭科目 其他应付款-往来 LS_VMDS_CMP-DATAX-FDGRV = 'X'. * LS_VMDS_CMP-DATAX-XVERR = 'X'. "结算客户 APPEND LS_VMDS_CMP TO LS_VMDS_EI_EXTERN-COMPANY_DATA-COMPANY. * 采购组织默认:1000 * CLEAR LS_VMDS_PUR. * LS_VMDS_PUR-TASK = IV_FLAG. * LS_VMDS_PUR-DATA_KEY-EKORG = IS_VENDOR_DATA-EKORG. * LS_VMDS_PUR-DATA-WAERS = IS_VENDOR_DATA-WAERS."'RMB'. * 合同伙伴 * LS_VMDS_FUN-TASK = IV_FLAG. * LS_VMDS_FUN-DATA_KEY-PARVW = 'LF'. "供应商 * LS_VMDS_FUN-DATA-PARTNER = . * LS_VMDS_FUN-DATAX-PARTNER = 'X'. * APPEND LS_VMDS_FUN TO LS_VMDS_PUR-FUNCTIONS-FUNCTIONS. * CLEAR LS_VMDS_FUN. * LS_VMDS_FUN-TASK = IV_FLAG. * LS_VMDS_FUN-DATA_KEY-PARVW = 'RS'. "发票提供者 * LS_VMDS_FUN-DATA-PARTNER = LV_LIFNR. * LS_VMDS_FUN-DATAX-PARTNER = 'X'. * APPEND LS_VMDS_FUN TO LS_VMDS_PUR-FUNCTIONS-FUNCTIONS. * CLEAR LS_VMDS_FUN. * LS_VMDS_FUN-TASK = IV_FLAG. * LS_VMDS_FUN-DATA_KEY-PARVW = 'BA'. "订货地址在表TPAR里查 原厂商 VN 供应商 * LS_VMDS_FUN-DATA-PARTNER = LV_LIFNR. * LS_VMDS_FUN-DATAX-PARTNER = 'X'. * APPEND LS_VMDS_FUN TO LS_VMDS_PUR-FUNCTIONS-FUNCTIONS. * APPEND LS_VMDS_PUR TO LS_VMDS_EI_EXTERN-PURCHASING_DATA-PURCHASING. * 外部接口：组织地址 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-TASK = IV_FLAG. LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-TITLE = '0003'. "公司 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME = '我擦'."描述 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'CN' . "国家 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU = SY-LANGU. "语言 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = '搜索条件. * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-CITY = IS_VENDOR_DATA-ORT01. "城市 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-POSTL_COD1 = IS_VENDOR_DATA-PSTLZ. "邮编 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-SORT1 = IS_VENDOR_DATA-ZGFJC. "简称 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COMM_TYPE = 'INT'. "???邮件 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATA-EXTENS_1 = LV_APPROVED_DATE. "资质有效期 LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-TITLE = 'X'. LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME = 'X'. LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY = 'X'. LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-LANGU = 'X'. LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT1 = 'X' . * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-CITY = 'X'. "城市 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-DISTRICT = 'X'. "??? * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-POSTL_COD1 = 'X' . “邮编 * ls_vmds_ei_extern-central_data-address-postal-datax-postl_cod2 = 'X'. * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-PO_BOX = 'X'. "邮政信箱??? * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-STREET = 'X'. "街道 * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-SORT1 = 'X'. * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-REGION = 'X'."地区（省/自治区/直辖市、市、县） * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COMM_TYPE = 'X'. * LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-EXTENS_1 = 'X'. "资质有效期 * * CLEAR:LV_STRING, LS_VMDS_FUN. * CONCATENATE 'L_' IT_LIFNR-LIFNR INTO LV_STRING . * IF IT_LIFNR-LIFNR = 'Y001'. * LV_STRING = 'Y_SH01' . "特殊情况 * ENDIF. * CONDENSE LV_STRING NO-GAPS . LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATA-KUNNR = '0000000484' . "客户 LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATA-VBUND = '002000' . "贸易伙伴 LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATA-KTOKK = 'Z001'. "帐户组 LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATAX-KUNNR = 'X' . "客户 LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATAX-VBUND = 'X' . "贸易伙伴 LS_VMDS_EI_EXTERN-CENTRAL_DATA-CENTRAL-DATAX-KTOKK = 'X' . * IF IS_VENDOR_DATA-BANKN IS NOT INITIAL AND IS_VENDOR_DATA-BANKL IS NOT INITIAL. * LS_bank-TASK = IV_FLAG. * LS_bank-DATA_KEY-BANKS = IS_VENDOR_DATA-LAND1. "银行国家代码 = IV_FLAG. * LS_bank-DATA_KEY-BANKL = IS_VENDOR_DATA-BANKL. "银行帐户号码 * LS_bank-DATA_KEY-BANKN = IS_VENDOR_DATA-BANKN."银行编号 * LS_bank-DATA-BKREF = IS_VENDOR_DATA-BANKN2."银行编号参考 * IF IV_FLAG = 'U'. * SELECT SINGLE * INTO ZLFBK FROM LFBK WHERE LIFNR = LV_LIFNR. * IF SY-SUBRC = 0. * LS_BANK-TASK = 'D'. * LS_BANK-DATA_KEY-BANKS = ZLFBK-BANKS. "银行国家代码 = IV_FLAG. * LS_BANK-DATA_KEY-BANKL = ZLFBK-BANKL. "银行帐户号码 * LS_BANK-DATA_KEY-BANKN = ZLFBK-BANKN."银行编号 * LS_bank-DATA-BKREF = IS_VENDOR_DATA-BANKN2."银行编号参考 * LS_bank-DATAX-BKREF = 'X'."银行编号参考 * APPEND LS_BANK TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-BANKDETAIL-BANKDETAILS. * ENDIF. * ENDIF. * LS_BANK-TASK = 'I'. * LS_BANK-DATA_KEY-BANKS = IS_VENDOR_DATA-LAND1. "银行国家代码 = IV_FLAG. * LS_BANK-DATA_KEY-BANKL = IS_VENDOR_DATA-BANKL. "银行帐户号码 * LS_BANK-DATA_KEY-BANKN = IS_VENDOR_DATA-BANKN."银行编号 * LS_BANK-DATA-BKREF = IS_VENDOR_DATA-BANKN2."银行编号参考 * APPEND LS_BANK TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-BANKDETAIL-BANKDETAILS. * if IV_FLAG = 'U'. * LS_VMDS_EI_EXTERN-CENTRAL_DATA-BANKDETAIL-CURRENT_STATE = IV_FLAG. * endif. * ENDIF. * 外部接口：地址注释 * LS_REMARKS-TASK = IV_FLAG. * * LS_REMARKS-DATA-LANGU = SY-LANGU. * LS_REMARKS-DATAX-LANGU = 'X'. * LS_REMARKS-DATAX-ADR_NOTES = 'X'. * APPEND LS_REMARKS TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-REMARK-REMARKS. * ** 外部接口：电话号码 * LS_COMMUNICATION_PHONE-CONTACT-TASK = IV_FLAG. * LS_COMMUNICATION_PHONE-CONTACT-DATA-TELEPHONE = IS_VENDOR_DATA-TELF1. * LS_COMMUNICATION_PHONE-CONTACT-DATA-COUNTRY = IS_VENDOR_DATA-LAND1. "'CN'.IS_VENDOR_DATA-COUNTRY. * * LS_COMMUNICATION_PHONE-CONTACT-DATAX-TELEPHONE = 'X'. * LS_COMMUNICATION_PHONE-CONTACT-DATAX-COUNTRY = 'X'. * APPEND LS_COMMUNICATION_PHONE TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-COMMUNICATION-PHONE-PHONE. ** 外部接口：传真 * LS_COMMUNICATION_FAX-CONTACT-TASK = IV_FLAG. * LS_COMMUNICATION_FAX-CONTACT-DATA-FAX = IS_VENDOR_DATA-TELFX. * LS_COMMUNICATION_FAX-CONTACT-DATA-COUNTRY = IS_VENDOR_DATA-LAND1. "'CN'.IS_VENDOR_DATA-COUNTRY. * * LS_COMMUNICATION_FAX-CONTACT-DATAX-FAX = 'X'. * LS_COMMUNICATION_FAX-CONTACT-DATAX-COUNTRY = 'X'. * APPEND LS_COMMUNICATION_FAX TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-COMMUNICATION-FAX-FAX. * * ** 扩展接口：电子邮件号 * LS_COMMUNICATION_SMTP-CONTACT-TASK = IV_FLAG. * LS_COMMUNICATION_SMTP-CONTACT-DATA-E_MAIL = IS_VENDOR_DATA-SMTP_ADDR. * LS_COMMUNICATION_SMTP-CONTACT-DATAX-E_MAIL = 'X'. * APPEND LS_COMMUNICATION_SMTP TO LS_VMDS_EI_EXTERN-CENTRAL_DATA-ADDRESS-COMMUNICATION-SMTP-SMTP. * 复杂外部接口的供应商 APPEND LS_VMDS_EI_EXTERN TO LS_MASTER_DATA-VENDORS. SET UPDATE TASK LOCAL. * 调用api维护供应商 CALL METHOD VMD_EI_API=>MAINTAIN_BAPI EXPORTING IV_COLLECT_MESSAGES = 'X' IS_MASTER_DATA = LS_MASTER_DATA IMPORTING ES_MASTER_DATA_CORRECT = LS_MASTER_DATA_CORRECT ES_MESSAGE_CORRECT = LS_MESSAGE_CORRECT ES_MASTER_DATA_DEFECTIVE = LS_MASTER_DATA_DEFECTIVE ES_MESSAGE_DEFECTIVE = LS_MESSAGE_DEFECTIVE. * 返回结果处理 LOOP AT LS_MESSAGE_DEFECTIVE-MESSAGES TRANSPORTING NO FIELDS WHERE TYPE CA 'EA'. EXIT. ENDLOOP. IF SY-SUBRC = 0. "失败 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. * IT_LIFNR-FLAG = 'N' . ELSE."成功 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. * IT_LIFNR-FLAG = 'Y' . ENDIF. " FRM_CREATE_VENDOR