主要输入客户代码，销售组织和分销渠道即可，比较简单，有时系统集成时需要使用代码来实现创建和修改，可以创建接口调用函数来实现，代码如下：types:begin of ty_data,vkorg type vkorg,vtweg type vtweg,kunnr type kunnr_v,matnr type matnr,kdmat type matnr_ku,postx type kdptx,end of ty_data.data:gt_xknmt type standard table of vknmt,gy_xknmt type standard table of vknmt,gt_tcatalog type standard table of tcatalog,gt_board type standard table of ty_data,gs_board type ty_data,gs_xknmt type vknmt.START-OF-SELECTION.PERFORM frm_fill_table_xknmt.PERFORM frm_inser_data.form frm_fill_table_xknmt.data:p_kdmat like knmt-kdmat.loop at gt_board into gs_board.gs_xknmt-vkorg = gs_board-vkorg.gs_xknmt-vtweg = gs_board-vtweg.gs_xknmt-kunnr = gs_board-kunnr.gs_xknmt-matnr = gs_board-matnr.gs_xknmt-kdmat = gs_board-kdmat.gs_xknmt-postx = gs_board-postx.gs_xknmt-ERNAM = sy-uname.gs_xknmt-ERDAT = sy-datum. 判断是否有客户物料信息select single kdmat into p_kdmat from knmtwhere vkorg = gs_board-vkorg and vtweg = gs_board-vtweg and kunnr = gs_board-kunnrand matnr = gs_board-matnr.if sy-subrc eq 0.gs_xknmt-updkz = 'U'. "Updateelse.gs_xknmt-updkz = 'I'. "Insertendif.append gs_xknmt to gt_xknmt. gw_xknmt-updkz = 'D'. "如果是需要删除数据，要设置成Dgs_xknmt-updkz = ' '. "如果是Update或者是Insert数据，需要设置为空。append gs_xknmt to gy_xknmt.clear gs_xknmt.endloop.endform.form frm_inser_data .call function 'RV_CUSTOMER_MATERIAL_UPDATE'tablesxknmt_tab = gt_xknmt "这个是需要Insert的物料表yknmt_tab = gy_xknmt "这个是需要删除的物料tcatalog_tab = gt_tcatalog. "文本信息commit work.endform.
