技术供应商主数据批导

1、SAP HAND 技术文档2016 年 10 月简体中文供应商主数据批导HAND图标图标含义警告示例注释建议语法外部处理可选业务处理或决定排版惯例字体风格描述Exle text出现在屏幕上的单字或字符。包括字段名、屏幕标题、按钮以及菜单名、路径和选项。到其它文档的交叉。ExEXle textLE TEXT正文文本中强调的字或词组，图形和表格的标题。系统中元素的名称。包括报表名、程序名、事务代码、表名和正文文本中嵌入的编程语言关键字，如 SELECT 和 INCLUDE。屏幕输出。包括文件和目录的名称及其路径、消息、源代码、变量和参数的名称以及安装工具、更新工具和数据库工具的名称。Exle te

2、xtEXLE TEXT键盘上的按键。例如，功能键（如 F2）或 ENTER 键。用户输入原文。完全如文档所示输入这些单字或字符至系统中。Ex可变用户输入。尖括号表示应使用适当的输入替换括号中的单字和字符。目录1、 操作介绍42、 实现方式43、 示例讲解43.1 、前台界面展示43.2 、实现方法71.2.1 3.2.1、 方法简介71.2.2 3.2.2、 备注83.3、 代码示例8供应商主数据1、操作介绍前台创建,修改，查看的 Tcode 分别是 XK01，XK02，XK03.与供应商主数据相关的操作有创建数据，修改数据和扩充视图。2、实现方式目前没找到能修改供应商的BAPI,暂时使用类的

3、方法=MAAIN_BAPI。3、示例讲解1.1 3.1 、前台界面展示VMD_EI_API1.2 3.2 、实现方法1.2.13.2.1、 方法简介1.2.23.2.2、 备注、如果是外部给号，要将供应商号添加前导零，不然会出现在表中存在数据，但是台不能显示的情况。、更新模式task：创建I 更改U 创建/更改M 删除D.（3）、创建联系人时，需要通过 BAPI_PARTNEREMPLOYEE_GETNUM 获得联系人编码。、在LOOP 里进行循环创建时，要将传入的联系人，空，而不仅仅是清空工作区的值。、联系人的修改尚且只能通过BDC 来进行修改。信息等传入的是表数据的值进行清（6）、信息的修

4、改方法是先将之前的信息打上删除标记后，再重新传入数据。（7）、扩充视图的方法是，先查找传入的视图是否存在。如果存在，则进行修改模式，如果不存在，则进行新增模式。1.3 3.3、 代码示例REPORT z_class_vendor.TYPES:BEGIN OF ty_extern_data,zmode lifnr kunnr ktokk bukrs vbund stceg akont zterm zuawa reprf title name1 name2 sort1 streetcountryTYPEchar1,单一字符标识TYPElifnr,供应商或债权人的帐号 客户供应商帐户组公司代码TYP

5、E TYPE TYPE TYPE TYPE TYPE TYPETYPEkunnr, ktokk,bukrs,vbund, stceg, akont, dzterm,dzuawa,公司标识登记号总帐中的统驭科目 付款条件代码根据分配号排序代码TYPEreprf,TYPEad_title,检查双重或信贷凭单的标志地址关键字的表格TYPEad_name1,名称 1TYPEname2,名称 2检索项 1 街道国家键值TYPETYPE TYPEad_sort1,ad_street, land1,t_code1TYPEad_pstcd1,城市city1 region sprasf1f2TYPE TYPE

6、TYPE TYPETYPEad_city1, regio, spras, f1,f2,城市地区（省/ 语言代码/直辖市、市、县）第一个第二个号号fax_numberTYPEad_fxnmbr,传真号: 拨号+ek waerswebreTYPE TYPETYPEek,采购组织采购订单货币标识：基于收货的bstwa,webre ,验证END OF ty_extern_data,BEGIN OF ty_extern_knvk,parnr TYPE parnr,联系人号码lifnr TYPE lifnr,供应商或债权人的帐号name1 TYPE ad_namelas, 姓 f1 TYPE ad_tln

7、mbr1, 第一个END OF ty_extern_knvk,号码：区号 + 号码BEGIN OF ty_extern_b,b bbs TYPE b l TYPE bn TYPE bs,l,n,国家代码帐户号码koinh TYPE koinh_fi,bkref TYPE bkref,帐户持有人帐户的参考规定END OF ty_extern_b.DATA: gt_extern_data TYPE TABLE OF ty_extern_data, gs_extern_data TYPE ty_extern_data,gt_knvk TYPE TABLE OF ty_extern_knvk,gs_k

8、nvk TYPE ty_extern_knvk,gt_extern_bgs_extern_bTYPE TABLE OF ty_extern_b,TYPE ty_extern_b.DATA: gs_master_dataTYPE vmds_ei_main,外部接口，供应商主数据gt_vendors gs_vendors gt_phone gs_phone gt_phone2 gs_phone2 gt_fax gs_fax gt_contact gs_contactpany panygt_purchasinggs_purchasingTYPE vmds_ei_extern_t, TYPE vmds

9、_ei_extern, TYPE cvis_ei_phone_t, TYPE cvis_ei_phone_str, TYPE cvis_ei_phone_t, TYPE cvis_ei_phone_str, TYPE cvis_ei_fax_t, 传真 TYPE cvis_ei_fax_str,TYPE vmds_ei_contacts_t,TYPE vmds_ei_contacts,2地址TYPETYPEpany_t, 公司视图pany,TYPE vmds_ei_purchasing_t, 采购视图TYPE vmds_ei_purchasing,gt_purchasing_function

10、TYPE vmds_ei_functions_t, 合作伙伴gs_purchasing_function TYPE vmds_ei_functions,gt_bgs_bdetailsdetailsTYPE cvis_ei_bdetail_t, 明细TYPE cvis_ei_cvi_bdetail,gs_return1_messageTYPE cvis_message,gt_message gs_message GDT_RETURNr_master_datar_vendors gs_verdorsTYPE bapiret2_t, TYPE bapiret2,TYPE STANDARD TABLE

11、 OF BAPIRETURN,TYPE vmds_ei_main, 返回供应商数据TYPE vmds_ei_extern_t, 返回的供应商 LIKE LINE OF r_vendors,re_lifnrTYPE lifnr VALUE 0. 返回的供应商DATA: gt_extern_b数据 gs_extern_bdetail TYPE STANDARD TABLE OF zsvendor_extern_bdetail, 外部detail1 TYPE zsvendor_extern_bdetail.DATA: gs_extern_bdetail TYPE zsvendor_extern_bd

12、etail.TYPES:BEGIN OF ty_bdetail,数据lifnr TYPE lifnr,供应商b bbs TYPE b l TYPE bn TYPE bs,k,n,国家代码代码账户号码END OF ty_bdetail.DATA: gt_bgs_bdetail TYPE STANDARD TABLE OF ty_bdetail TYPE ty_bdetail.detail,TYPES:BEGIN OF ty_knvk , parnr TYPE knvk-parnr, lifnr TYPE knvk-lifnr,name1 TYPE knvk-name1, f1 TYPE knvk

13、-f1,END OF ty_knvk.DATA: lt_knvk TYPE TABLE OF ty_knvk. DATA: gs_knvk1 TYPE ty_knvk,ls_knvk TYPE ty_knvk.DATA: gs_outknvk TYPE zsvendor_knvk.DATA: gt_tpakl TYPE TABLE OF tpakl, 合作伙伴设置gs_tpakl TYPE tpakl.DATA: gdf_flag TYPE I VALUE 0.成功标记 0 为成功，1 失败.DATA: ldf_mod1 TYPE C, 判断是否供应商创建过公司代码视图。 ldf_mod2 T

14、YPE C. 判断是否供应商创建过采购组织视图。DATA: gdf_parnr TYPE knvk-parnr.DATA: clifnr TYPE lfa1-lifnr.DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE, bdcdata LIKE bdcdataOCCURS 0 WITH HEADER LINE.DATA: ctumIKE ctu_params-dismode VALUE N,cupdaIKE ctu_params-updmode VALUE L.gs_extern_data-zmode = gs_extern_da

15、ta-lifnr = 110400185.gs_extern_data-kunnr gs_extern_data-ktokk gs_extern_data-bukrs gs_extern_data-vbund gs_extern_data-stceg gs_extern_data-akontgs_extern_data-zterm= .= AG01.= 2110 .= .= 123456789 .= 2202000000 .= Z030 .gs_extern_data-zuawa = 001 .gs_extern_data-reprf = X .gs_extern_daitle = 0003

16、.gs_extern_data-name1 = 无锡市必盛水处理剂 gs_extern_data-name2 = 无锡市必盛水处理剂 gs_extern_data-sort1 = WUXISHI110400185 .gs_extern_data-street = 无锡市 110400185 .110400185 .110400185 .gs_extern_d gs_extern_data-gs_extern_dountry = CN.t_code1 = 430624.ity1 = .gs_extern_data-region = 110 .gs_extern_data-spras = ZH .

17、gs_extern_dags_extern_daelf1 = 12345678 .elf2 = 12345678 .gs_extern_data-fax_number = 12345678.gs_extern_data-ek= 2110 .gs_extern_data-waers = CNY .gs_extern_data-webre = X .APPEND gs_extern_daO gt_extern_data.gs_knvk-lifnr = 1104000185. gs_knvk-name1 = NAMESDx.gs_knvk-f1 = 11111111111.APPEND gs_knv

18、k to gt_knvk.gs_extern_b gs_extern_B gs_extern_Bgs_extern_B-b-B-Bs = CN.L = 1001.N = ZSAN.-koinh = 123400000.APPEND gs_extern_bTO gt_extern_b.gs_extern_b gs_extern_B gs_extern_Bgs_extern_B-b-B-Bs = CN.L = 1001.N = ZHANGSANDE.-koinh = 12345600090.APPEND gs_extern_bTO gt_extern_b.SELECTmandtparvw合作伙伴功

19、能 ktokk账务组O TABLE gt_tpaklFROM tpakl .SELECTlifnr bbb供应商sl国家代码代码账户号码O TABLE gt_bnFROM lfbkdetailWHERE lifnr = gs_extern_data-lifnr.供应商LOOP AT gt_extern_dataO gs_extern_data.REFRESH:gt_contact,gt_p_message,r_vendors.pany,gt_purchasing,gt_purchasing_function,gt_bdetails,gtCLEAR:gs_contact,gs_vendors,g

20、s_p age,r_master_data.pany,gs_purchasing,gs_return1_mess*添加前导 0PERFORM frm_format_alpha_input USING gs_extern_data-lifnr.SELECTSINGLE lifnr FROM lfa1O clifnrWHERE lifnr = gs_extern_data-lifnr.IF sy-subrc = 0. gs_extern_data-zmode = M.ELSEIF sy-subrc = 4. gs_extern_data-zmode = I.ENDIF.IF gs_extern_d

21、ata-zmode = I.*先清空内表和工作区域 REFRESH:gt_contact,gt_pCLEAR:gs_contact ER.pany,gt_purchasing_function,gt_bdetails,gt_vendors.pany,gs_phone,gs_fax,gs_purchasing.GDS_EXTERN_PARTN*供应商，标识为创建gs_vendors-HEADER-object_task = gs_extern_data-zmode.gs_vendors-HEADER-object_instance-lifnr = gs_extern_data-lifnr.*外部

22、界面：中心数据供应商gs_vendors-central_dgs_vendors-central_d号entral-DATA-ktokk = gs_extern_data-ktokk.entral-DATA-stceg = gs_extern_data-stceg.帐户组登记*外部接口：组织地址 -外部接口：地址类型 1gs_vendors-central_data-address-TASK = gs_extern_data-zmode.gs_vendors-central_data-address-gs_vendors-central_data-address-tal-DATA-name =

23、 gs_extern_data-name1.tal-DATA-name_2 = gs_extern_data-name2.名称 1名称2gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address-编gs_vendors-central_data-address- gs_vendors-central_data-address-国家gs_vendors-central_data-address- gs_vendors-central_data-address-t

24、al-DATA-sort1 = gs_extern_data-sort1.tal-DATA-street = gs_extern_data-street.搜索项 1 门牌号t_code1. 邮tal-DATA-tl_cod1 = gs_extern_data-tal-Dtal-Dity = gs_extern_dity1.城市OUNTRY.OUNTRY = gs_extern_dtal-DATA-region = gs_extern_data-region.tal-DATA-langu = gs_extern_data-spras.地区语言* 外部接口：组织地址 -扩展接口：地址信息数据-gs

25、_phone-contact-TASK = gs_extern_data-zmode.gs_phone-contact-DAelephone = gs_extern_daelf1.号码: 拨区号 +号码 第一个号APPEND gs_phone TO gt_phone.gs_phone-contact-TASK = gs_extern_data-zmode.gs_phone-contact-DAelephone = gs_extern_daelf2.号码: 拨区号 +号码 第二个号APPEND gs_phone TO gt_phone.gs_vendors-centraMUNICATION-ph

26、one-phone = gt_phone.* 外部接口：组织地址 -扩展接口：地址信息数据-传真 gs_fax-contact-TASK = gs_extern_data-zmode.gs_fax-contact-DATA-fax = gs_extern_data-fax_number.+ 号码APPEND gs_fax TO gt_fax.传真号码: 拨区号gs_vendors-centraMUNICATION-fax-fax = gt_fax.IF gt_knvk IS NOT INITIAL.gs_contact-TASK = gs_extern_data-zmode.LOOP AT g

27、t_knvkO gs_knvk.CALL FUNCTION BAPI_PARTNEREMPLOYEE_GET EXPORTINGty = 1 IMPORTINGcontactid = gdf_parnr.gs_contact-data_key-parnr = gdf_parnr.NUMgs_contact-address_type_3-TASK = gs_extern_data-zmode.* *基本数据gs_contact-address_type_3-CONDENSE gs_knvk-f1.tal-DATA-lastname = gs_knvk-name1.联系人名gs_phone2-co

28、ntact-DAelephone = gs_knvk-f1.APPEND gs_phone2 TO gt_phone2.gs_contact-MUNICATION-phone-phone = gt_phone2.联系人* *控制数据gs_contact-address_type_3-tal-datax-lastname = X.APPEND gs_contact TO gt_contact. CLEAR: gs_phone2.REFRESH :gt_phone2.ENDLOOP.gs_vendors-central_dENDIF.ontact-contacts= gt_contact.* 外部

29、接口：采购数据gs_purchasing-TASK = gs_extern_data-zmode.gs_purchasing-data_key-ek= gs_extern_data-ek.采购组织采购订单货币 付款条件代码 基于收货的gs_purchasing-DATA-waers = gs_extern_data-waers.gs_purchasing-DATA-zterm = gs_extern_data-zterm. gs_purchasing-DATA-webre = gs_extern_data-webre.验证LOOP AT gt_tpaklO gs_tpakl WHERE kto

30、kk = gs_extern_data-ktokk.gs_purchasing_function-TASK = gs_extern_data-zmode. gs_purchasing_function-data_key-parvw = gs_tpakl-parvw. gs_purchasing_function-data_key-parza = 000. gs_purchasing_function-DATA-defpa = . gs_purchasing_function-DATA-partner = gs_extern_data-lifnr. APPEND gs_purchasing_fu

31、nction TO gt_purchasing_function. CLEAR gs_purchasing_function.ENDLOOP.gs_purchasing-functions-functions = gt_purchasing_function. APPEND gs_purchasing TO gt_purchasing.gs_vendors-purchasing_data-purchasing = gt_purchasing.合作伙伴功能 合作伙伴计数器缺省合作伙伴*公司视图pany-TASK = gs_extern_data-zmode.pany-data_key-bukrs

32、 = gs_extern_data-bukrs.公司代码pany-DATA-akont = gs_extern_data-akont. pany-DATA-zuawa = gs_extern_data-zuawa. pany-DATA-zterm = gs_extern_data-zterm.pany-DATA-reprf = gs_extern_data-reprf.排序码付款条件代码 检查双重APPENDpany TOpany.pany =pany.公司视图LOOP AT gt_extern_bO gs_extern_bdetail.gs_b gs_b gs_b gs_bgs_bdetai

33、ls-TASK = gs_extern_data-zmode.details-data_key-b details-data_key-bdetails-data_key-bs = gs_extern_b l = gs_extern_bn = gs_extern_bdetail-b detail-bdetail-bs. 国家l. n. 代码帐户户主details-DATA-koinh = gs_extern_bdetail-koinh.APPEND gs_bdetails TO gt_bdetails.CLEAR gs_bENDLOOP.details.gs_vendors-central_da

34、ta-bdetail-bdetails = gt_bdetails.明细*将整理好的数据添加到供应商主数据中 APPEND gs_vendors TO gt_vendors. CLEAR:gs_master_data.gs_master_data-vendors = gt_vendors.ELSEIF gs_extern_data-zmode = M.REFRESH:pany,gt_purchasing,gt_bdetails,gt_vendors,gt_bdetail,gt_purchasing_function.CLEAR:CLEAR: ldf_mod1.pany,gs_purchasin

35、g,gs_bdetails,gs_bdetail,gs_knvk.检查供应商是否有公司视图SELECT SINGLE COUNT( * ) FROM lfb1 WHERE lifnr = gs_extern_data-lifnr AND bukrs = gs_extern_data-bukrs.IF sy-subrc = 0.ldf_mod1 = X. ENDIF.检查供应商是否有SELECT SINGLE COUNT( * ) FROM lfm1 WHERE lifnr = gs_extern_data-lifnr AND ek=gs_extern_data-ek IF sy-subrc =

36、 0. ldf_mod2 = X.ENDIF.* 正式执行CLEAR:gt_extern_bdetail.APPEND LINES OF gt_extern_bTO gt_extern_bdetail.*供应商，标识为更新gs_vendors-HEADER-object_task = gs_extern_data-zmode.gs_vendors-HEADER-object_instance-lifnr = gs_extern_data-lifnr.供应商*外部界面：中心数据 gs_vendors-central_d gs_vendors-central_d号entral-DATA-ktokk

37、 = gs_extern_data-ktokk.entral-DATA-stceg = gs_extern_data-stceg.帐户组登记gs_vendors-central_dgs_vendors-central_dentral-datax-ktokk = X.entral-datax-stceg = X.帐户组登记号*外部接口：组织地址 -外部接口：地址类型 1gs_vendors-central_data-address-TASK = gs_extern_data-zmode.gs_vendors-central_data-address-gs_vendors-central_data

38、-address-tal-DATA-name = gs_extern_data-name1.tal-DATA-name_2 = gs_extern_data-name2.名称 1名称2gs_vendors-central_data-address-gs_vendors-central_data-address- gs_vendors-central_data-address-编gs_vendors-central_data-address- gs_vendors-central_data-address-国家gs_vendors-central_data-address- gs_vendors

39、-central_data-address-言tal-DATA-sort1 = gs_extern_data-sort1.tal-DATA-street = gs_extern_data-street.搜索项 1 门牌号t_code1. 邮tal-DATA-tl_cod1 = gs_extern_data-tal-Dtal-Dity = gs_extern_dity1.城市OUNTRY.OUNTRY = gs_extern_dtal-DATA-region = gs_extern_data-region.tal-DATA-langu = gs_extern_data-spras.地区语gs_v

40、endors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address- gs_vendors-central_data-address-gs_vendors-central_data-address-tal-datax

41、-name = X.tal-datax-name_2 = X.名称 1名称 2tal-datax-sort1 = X. 搜索项 1tal-datax-street = X .门牌号tal-datax-tl_cod1 = X.tal-datax-city = X.城市tal-datax-COUNTRY = X. tal-datax-region = X.tal-datax-langu = X.国家地区* 外部接口：组织地址 -扩展接口：地址信息数据- gs_phone-contact-TASK = gs_extern_data-zmode.gs_phone-contact-DAelephone

42、= gs_extern_daelf1.号码: 拨区号 +号码 第一个号gs_phone-contact-datax-ephone = X.APPEND gs_phone TO gt_phone.gs_phone-contact-TASK = gs_extern_data-zmode.gs_phone-contact-DAelephone = gs_extern_daelf2.号码: 拨区号 +号码 第二个号gs_phone-contact-datax-ephone = X.APPEND gs_phone TO gt_phone.gs_vendors-centraMUNICATION-phone

43、-phone = gt_phone.* 外部接口：组织地址 -扩展接口：地址信息数据-传真 gs_fax-contact-TASK = gs_extern_data-zmode.gs_fax-contact-DATA-fax = gs_extern_data-fax_number.传真号码: 拨区号 + 号码gs_fax-contact-datax-fax = X. APPEND gs_fax TO gt_fax.gs_vendors-centraMUNICATION-fax-fax = gt_fax.* 外部接口：公司代码数据如果之前已经创建了公司视图的话，就对其进行修改，否则对其进行新建

44、IF ldf_mod1 = X.pany-TASK = M.ELSE.pany-TASK = I.ENDIF.pany-data_key-bukrs = gs_extern_data-bukrs.公司代码*格式化akont 输入，面加够 0.PERFORM frm_format_alpha_input USING gs_extern_data-akont.总帐中的统驭科目 pany-DATA-akont = gs_extern_data-akont.pany-DATA-zuawa = gs_extern_data-zuawa.pany-DATA-zterm = gs_extern_data-z

45、term.pany-DATA-reprf = gs_extern_data-reprf.付款条件代码检查双重pany-datax-akont = X. pany-datax-zuawa = X. pany-datax-zterm = X.pany-datax-reprf = X.付款条件代码APPENDpany TOpany.pany =pany.*外部接口：采购数据IF ldf_mod2 = X. gs_purchasing-TASK = M. ELSE.gs_purchasing-TASK = I.ENDIF.gs_purchasing-data_key-ek= gs_extern_dat

46、a-ek.采购组织 采购订单货币付款条件代码标识：基于收货的gs_purchasing-DATA-waers = gs_extern_data-waers.gs_purchasing-DATA-zterm = gs_extern_data-zterm. gs_purchasing-DATA-webre = gs_extern_data-webre.验证gs_purchasing-datax-waers = X.gs_purchasing-datax-zterm = X.gs_purchasing-datax-webre = X.LOOP AT gt_tpaklO gs_tpakl where

47、ktokk = gs_extern_data-ktokk.gs_purchasing_function-TASK = gs_extern_data-zmode. gs_purchasing_function-data_key-parvw = gs_tpakl-parvw. gs_purchasing_function-data_key-parza = 000. gs_purchasing_function-DATA-defpa = . gs_purchasing_function-DATA-partner = gs_extern_data-lifnr. APPEND gs_purchasing

48、_function TO gt_purchasing_function. CLEAR gs_purchasing_function.ENDLOOP.gs_purchasing-functions-functions = gt_purchasing_function. APPEND gs_purchasing TO gt_purchasing.gs_vendors-purchasing_data-purchasing = gt_purchasing.将传入的除数据和根据供应商查找到的数据进行比对，如果相同，则将查找到的内表数据删LOOP AT gt_bdetailO gs_bdetail whe

49、re lifnr = gs_extern_data-lifnr.READ TABLE gt_extern_bdetailO gs_extern_bdetail WITH KEYbb bs = gs_bl = gs_b n = gs_bdetail-bdetail-b detail-bsln.IF sy-subrc = 0. DELETE gt_b ENDIF.CLEAR:gs_bENDLOOP.detail.detail,gs_extern_bdetail.如果查找出来的内表还存在别的数据，那么就将这些数据在系统中打上删除标记IF gt_bdetail IS NOT INITIAL .LOOP

50、 AT gt_bdetailO gs_bdetail WHERE lifnr = gs_extern_data-lifnr.打上删除标记gs_b gs_b gs_bgs_bdetails-TASK = D. details-data_key-b details-data_key-bdetails-data_key-bs = gs_bl = gs_b n = gs_bdetail-bdetail-b detail-bs.国家l.n.代码帐户APPEND gs_bdetails TO gt_bdetails.CLEAR gs_b ENDLOOP.ENDIF.details.此时再将传入的数据导入系

51、统中进行赋值LOOP AT gt_extern_bO gs_extern_bdetail.gs_b gs_bgs_bdetails-TASK = gs_extern_data-ZMODE.打上s.国家标记 C_MAAINdetails-data_key-bdetails-data_key-bs = gs_extern_bl = gs_extern_bdetail-bdetail-bl.代码gs_bgs_b gs_bdetails-data_key-bn = gs_extern_bdetail-bn.帐户 = 合作类型details-DATA-koinh = gs_extern_bdetails

52、-DATA-bkref = gs_extern_bdetail-koinh.detail-bkref.户主参考凭证gs_bgs_bdetails-datax-koinh = X.details-datax-bkref = X.APPEND gs_bdetails TO gt_bdetails.CLEAR gs_bENDLOOP.details.gs_vendors-central_data-bdetail-bdetails = gt_bdetails.明细* 联系人,先查找修改的供应商是否有联系人，如果没有，就新增。如果有，就修改SELECT parnr lifnr name1 gs_exte

53、rn_data-lifnr.SORT lt_knvk BY parnr. IF lt_knvk IS INITIAL.f1 FROM knvkO TABLE lt_knvk WHERE lifnr =LOOP AT gt_knvkO gs_knvk.PERFORM frm_format_alpha_input USING gs_knvk-lifnr. CONDENSE gs_knvk-f1.PERFORM get_knvk_bdc2 USING gs_knvk-lifnr gs_knvk-name1gs_knvk-f1. CLEAR:gs_knvk. ENDLOOP.ELSE.LOOP AT

54、gt_knvkO gs_knvk.PERFORM frm_format_alpha_input USING gs_knvk-parnr. PERFORM frm_format_alpha_input USING gs_knvk-lifnr.CONDENSE gs_knvk-f1.READ TABLE lt_knvk IF sy-subrc = 0.修改O ls_knvk WITH KEY parnr = gs_knvk-parnr BINARY SEARCH.PERFORM get_knvk_bdc1 USING gs_knvk-parnr gs_knvk-name1gs_knvk-f1. E

55、LSEIF sy-subrc = 4.新增PERFORM get_knvk_bdc2 USING gs_knvk-lifnr gs_knvk-name1gs_knvk-f1.ENDIF.CLEAR:gs_knvk,ls_knvk. ENDLOOP.ENDIF.*将整理好的数据添加到供应商主数据中 APPEND gs_vendors TO gt_vendors. CLEAR:gs_master_data.gs_master_data-vendors = gt_vendors.ENDIF.CALL METHOD vmd_ei_api=maain_bapiEXPORTINGis_master_dat

56、aIMPORTING= gs_master_dataes_message_defective = gs_return1_message 错误消息es_master_data_correct = r_master_data. 创建成功返回供应商数据*COMMIT WORK .提交gt_message = gs_return1_message-messages. r_vendors = r_master_data-vendors.READ TABLE r_vendorsIF sy-subrc = 0 .O gs_verdors INDEX 1.WRITE gs_verdors-HEADER-object_instance TO re_lifnr.ENDIF.供应商IF gt_message IS INITIAL.CALL FUNCTION BA EXPORTINGWAIT = X*IMPORTINGMIT*RETURN=.WRITE: 传输成功 .ELSE.CALL FUNCTION BAPI_TRANIMPORTINGION_ROLLBACK*RETURN=.WRITE: 传输失败 . ENDIF.ENDloop.*&*&FormFRM_FORMAT_ALPH