CALL FUNCTION ‘BAPI_MATERIAL_SAVEDATA‘
*&---------------------------------------------------------------------* *& Report ZMMPL001 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZMMPL001. DATA: pr_unit TYPE meins,"基本计量单位 bapi_exe_result(1) TYPE c."bapi执行结果标识 *原材料 DATA: BEGIN OF wa_y_material, marc_plant TYPE werks_d, "工厂 mard_stge_loc TYPE lgort_d,"库存地点 mvke_sales_org TYPE vkorg,"销售组织 mvke_distr_chan TYPE vtweg,"分销渠道 head_material TYPE matnr,"物料号 head_ind_sector TYPE mbrsh,"行业领域 head_matl_type TYPE mtart,"物料类型 t_makt_matl_desc TYPE maktx,"物料描述 mara_base_uom TYPE meins,"基本计量单位 mara_matl_group TYPE matkl,"物料组 mara_extmatlgrp TYPE extwg,"外部物料组 mara_item_cat TYPE mtpos_mara,"普通项目组类别 t_marm_gross_wt TYPE brgew,"毛重 t_marm_unit_of_wt TYPE gewei,"重量单位 mara_net_weight TYPE ntgew,"净重 t_marm_volume TYPE volum,"标准箱 t_marm_volumeunit TYPE voleh,"体积单位 mvke_sales_unit TYPE vrkme,"销售单位 t_mlan_taxclass1 TYPE taxkm, "税分类1 t_mlan_taxclass2 TYPE taxkm, "税分类2 mvke_matl_stats TYPE stgma,"物料统计组 mvke_acct_assgt TYPE ktgrm,"科目设置组 mvke_item_cat TYPE mtpos,"来自物料主文件的项目主类别 marc_availcheck TYPE mtvfp,"可用性检查 mara_trans_grp TYPE tragr,"运输组 marc_loadinggrp TYPE ladgr,"装载组 marc_pur_group TYPE ekgrp,"采购组 marc_batch_mgmt TYPE xchpf,"批次管理标示 marc_auto_p_ord TYPE kautb,"自动采购订单 marc_ind_post_to_insp_stock TYPE insmk_mat,"过账到检验库存 marc_quotausage TYPE usequ,"配额安排 marc_sourcelist TYPE kordb,"源清单 marc_mrp_group TYPE disgr,"MRP组 marc_mrp_type TYPE dismm,""MRP类型 marc_mrp_ctrler TYPE dispo,"MRP控制者 marc_lotsizekey TYPE disls,"批量 marc_minlotsize TYPE bstmi,"最小批量 marc_maxlotsize TYPE bstma,"最大批量 marc_round_val TYPE bstrf,"舍入值 marc_proc_type TYPE beskz,"采购类型 marc_backflush TYPE rgekm,"反冲 marc_plnd_delry TYPE plifz,"计划交货时间 marc_gr_pr_time TYPE webaz,"收货处理时间 marc_safety_stk TYPE eisbe,"安全库存 marc_sm_key TYPE fhori," 计划边际码 marc_plan_strgp TYPE strgp,"策略组 marc_alt_bom_id TYPE altsl,"选择方法 stge_loc TYPE lgort_d,"库存地点,占位，不用取出赋值，同上边库存地点 mbew_val_class TYPE bklas,"评估类 mbew_price_ctrl TYPE vprsv,"价格控制 mbew_price_unit TYPE peinh,"价格单位 mbew_moving_pr TYPE verpr_bapi,"移动平均价 mbew_std_price TYPE stprs_bapi,"标准价格 mbew_qty_struct TYPE ck_ekalrel,"用QS的成本估算 mbew_orig_mat TYPE hkmat,"物料来源 END OF wa_y_material. DATA: it_y_material LIKE TABLE OF wa_y_material. DATA: BEGIN OF wa_message, material TYPE matnr, description TYPE maktx, message(97) TYPE c, END OF wa_message. DATA: it_message LIKE TABLE OF wa_message. *输入参数 DATA: headdata TYPE bapimathead, "表头数据 clientdata TYPE bapi_mara, "基本数据 clientdatax TYPE bapi_marax, plantdata TYPE bapi_marc, "工厂级别数据 plantdatax TYPE bapi_marcx, forecastparameters TYPE bapi_mpop, "预测 forecastparametersx TYPE bapi_mpopx, planningdata TYPE bapi_mpgd, "计划 planningdatax TYPE bapi_mpgdx, storagelocationdata TYPE bapi_mard, "存储位置 storagelocationdatax TYPE bapi_mardx, valuationdata TYPE bapi_mbew, "评估数据 valuationdatax TYPE bapi_mbewx, warehousenumberdata TYPE bapi_mlgn, "仓库数据 warehousenumberdatax TYPE bapi_mlgnx, salesdata TYPE bapi_mvke, "销售数据 salesdatax TYPE bapi_mvkex, storagetypedata TYPE bapi_mlgt, "存储类型数据 storagetypedatax TYPE bapi_mlgtx. *Table参数 DATA: materialdescription TYPE TABLE OF bapi_makt WITH HEADER LINE,"描述 unitsofmeasure TYPE TABLE OF bapi_marm WITH HEADER LINE,"单位 unitsofmeasurex TYPE TABLE OF bapi_marmx WITH HEADER LINE, taxclassifications TYPE TABLE OF bapi_mlan WITH HEADER LINE."税分类 *Return DATA return TYPE bapiret2. *以上都是准备的参数，it_y_material 存放的就是物料信息内表，具体数据怎么来的省略（一般就是上传文本） *往往调用一个bapi的时候不知道哪里赋值，怎么赋值，赋什么值，下边是参数赋值、调用示例 FORM create_y_matnr_data. DATA: total TYPE i, num type i. num = 0. DESCRIBE TABLE it_y_material LINES total. CLEAR it_message. LOOP AT it_y_material INTO wa_y_material. num = num + 1. CLEAR headdata. headdata-material = wa_y_material-head_material. headdata-matl_type = wa_y_material-head_matl_type. headdata-ind_sector = wa_y_material-head_ind_sector. headdata-basic_view = ‘X‘. headdata-sales_view = ‘X‘. headdata-purchase_view = ‘X‘. headdata-mrp_view = ‘X‘. * headdata-forecast_view = ‘X‘. headdata-warehouse_view = ‘X‘. headdata-account_view = ‘X‘. headdata-cost_view = ‘X‘. "基本数据 CLEAR clientdata. clientdata-matl_group = wa_y_material-mara_matl_group. PERFORM get_pr_unit USING wa_y_material-mara_base_uom CHANGING pr_unit. clientdata-base_uom = pr_unit. clientdata-extmatlgrp = wa_y_material-mara_extmatlgrp. clientdata-item_cat = wa_y_material-mara_item_cat. clientdata-net_weight = wa_y_material-mara_net_weight. clientdata-trans_grp = wa_y_material-mara_trans_grp. CLEAR clientdatax. clientdatax-matl_group = ‘X‘. clientdatax-base_uom = ‘X‘. clientdatax-extmatlgrp = ‘X‘. clientdatax-item_cat = ‘X‘. clientdatax-net_weight = ‘X‘. clientdatax-trans_grp = ‘X‘. "工厂级别数据 CLEAR plantdata. plantdata-plant = wa_y_material-marc_plant. plantdata-availcheck = wa_y_material-marc_availcheck. plantdata-loadinggrp = wa_y_material-marc_loadinggrp. plantdata-pur_group = wa_y_material-marc_pur_group. plantdata-batch_mgmt = wa_y_material-marc_batch_mgmt. plantdata-auto_p_ord = wa_y_material-marc_auto_p_ord. plantdata-ind_post_to_insp_stock = wa_y_material-marc_ind_post_to_insp_stock. plantdata-quotausage = wa_y_material-marc_quotausage. plantdata-sourcelist = wa_y_material-marc_sourcelist. plantdata-mrp_group = wa_y_material-marc_mrp_group. plantdata-mrp_type = wa_y_material-marc_mrp_type. plantdata-mrp_ctrler = wa_y_material-marc_mrp_ctrler. plantdata-lotsizekey = wa_y_material-marc_lotsizekey. plantdata-minlotsize = wa_y_material-marc_minlotsize. plantdata-maxlotsize = wa_y_material-marc_maxlotsize. plantdata-round_val = wa_y_material-marc_round_val. plantdata-proc_type = wa_y_material-marc_proc_type. plantdata-backflush = wa_y_material-marc_backflush. plantdata-plnd_delry = wa_y_material-marc_plnd_delry. plantdata-gr_pr_time = wa_y_material-marc_gr_pr_time. plantdata-safety_stk = wa_y_material-marc_safety_stk. plantdata-sm_key = wa_y_material-marc_sm_key. plantdata-plan_strgp = wa_y_material-marc_plan_strgp. plantdata-alt_bom_id = wa_y_material-marc_alt_bom_id. CLEAR plantdatax. plantdatax-plant = wa_y_material-marc_plant. plantdatax-availcheck = ‘X‘. plantdatax-loadinggrp = ‘X‘. plantdatax-pur_group = ‘X‘. plantdatax-batch_mgmt = ‘X‘. plantdatax-auto_p_ord = ‘X‘. plantdatax-ind_post_to_insp_stock = ‘X‘. plantdatax-quotausage = ‘X‘. plantdatax-sourcelist = ‘X‘. plantdatax-mrp_group = ‘X‘. plantdatax-mrp_type = ‘X‘. plantdatax-mrp_ctrler = ‘X‘. plantdatax-lotsizekey = ‘X‘. plantdatax-minlotsize = ‘X‘. plantdatax-maxlotsize = ‘X‘. plantdatax-round_val = ‘X‘. plantdatax-proc_type = ‘X‘. plantdatax-backflush = ‘X‘. plantdatax-plnd_delry = ‘X‘. plantdatax-gr_pr_time = ‘X‘. plantdatax-safety_stk = ‘X‘. plantdatax-sm_key = ‘X‘. plantdatax-plan_strgp = ‘X‘. plantdatax-alt_bom_id = ‘X‘. "仓库存储数据 CLEAR storagelocationdata. storagelocationdata-plant = wa_y_material-marc_plant. storagelocationdata-stge_loc = wa_y_material-mard_stge_loc. CLEAR storagelocationdatax. storagelocationdatax-plant = wa_y_material-marc_plant. storagelocationdatax-stge_loc = wa_y_material-mard_stge_loc. "销售数据 CLEAR salesdata. salesdata-sales_org = wa_y_material-mvke_sales_org. salesdata-distr_chan = wa_y_material-mvke_distr_chan. salesdata-sales_unit = wa_y_material-mvke_sales_unit. salesdata-matl_stats = wa_y_material-mvke_matl_stats. salesdata-acct_assgt = wa_y_material-mvke_acct_assgt. salesdata-item_cat = wa_y_material-mvke_item_cat. CLEAR salesdatax. salesdatax-sales_org = wa_y_material-mvke_sales_org. salesdatax-distr_chan = wa_y_material-mvke_distr_chan. salesdatax-sales_unit = ‘X‘. salesdatax-matl_stats = ‘X‘. salesdatax-acct_assgt = ‘X‘. salesdatax-item_cat = ‘X‘. "会计、成本 CLEAR valuationdata. valuationdata-val_area = wa_y_material-marc_plant. valuationdata-val_class = wa_y_material-mbew_val_class. valuationdata-price_ctrl = wa_y_material-mbew_price_ctrl. valuationdata-price_unit = wa_y_material-mbew_price_unit. valuationdata-moving_pr = wa_y_material-mbew_moving_pr. valuationdata-std_price = wa_y_material-mbew_std_price. valuationdata-qty_struct = wa_y_material-mbew_qty_struct. valuationdata-orig_mat = wa_y_material-mbew_orig_mat. CLEAR valuationdatax. valuationdatax-val_area = wa_y_material-marc_plant. valuationdatax-val_class = ‘X‘. valuationdatax-price_ctrl = ‘X‘. valuationdatax-price_unit = ‘X‘. valuationdatax-moving_pr = ‘X‘. valuationdatax-std_price = ‘X‘. valuationdatax-qty_struct = ‘X‘. valuationdatax-orig_mat = ‘X‘. "物料描述 CLEAR materialdescription[]. materialdescription-langu_iso = ‘ZH‘. materialdescription-matl_desc = wa_y_material-t_makt_matl_desc. APPEND materialdescription. "单位 CLEAR unitsofmeasure[]. unitsofmeasure-alt_unit = pr_unit. unitsofmeasure-gross_wt = wa_y_material-t_marm_gross_wt. unitsofmeasure-unit_of_wt = wa_y_material-t_marm_unit_of_wt. unitsofmeasure-volume = wa_y_material-t_marm_volume. unitsofmeasure-volumeunit = wa_y_material-t_marm_volumeunit. APPEND unitsofmeasure. CLEAR unitsofmeasurex[]. unitsofmeasurex-alt_unit = pr_unit. unitsofmeasurex-gross_wt = ‘X‘. unitsofmeasurex-unit_of_wt = ‘X‘. unitsofmeasurex-volume = ‘X‘. unitsofmeasurex-volumeunit = ‘X‘. APPEND unitsofmeasurex. "税分类 CLEAR taxclassifications[]. taxclassifications-depcountry = ‘CN‘. taxclassifications-tax_type_1 = ‘MWST‘. taxclassifications-taxclass_1 = wa_y_material-t_mlan_taxclass1. taxclassifications-taxclass_2 = wa_y_material-t_mlan_taxclass2. APPEND taxclassifications. PERFORM savedata USING num total. CLEAR wa_message. wa_message-material = wa_y_material-head_material. wa_message-description = wa_y_material-t_makt_matl_desc. wa_message-message = return-message. APPEND wa_message TO it_message. ENDLOOP. ENDFORM. "fill_matnr_data *保存数据，调用BAPI_MATERIAL_SAVEDATA FORM savedata USING num total. CALL FUNCTION ‘BAPI_MATERIAL_SAVEDATA‘ EXPORTING headdata = headdata clientdata = clientdata clientdatax = clientdatax plantdata = plantdata plantdatax = plantdatax * forecastparameters = forecastparameters * forecastparametersx = forecastparametersx * planningdata = planningdata * planningdatax = planningdatax storagelocationdata = storagelocationdata storagelocationdatax = storagelocationdatax valuationdata = valuationdata valuationdatax = valuationdatax * warehousenumberdata = warehousenumberdata * warehousenumberdatax = warehousenumberdatax salesdata = salesdata salesdatax = salesdatax * storagetypedata = storagetypedata * storagetypedatax = storagetypedatax * flag_online = ‘ ‘ * flag_cad_call = ‘ ‘ * no_dequeue = ‘ ‘ IMPORTING return = return TABLES materialdescription = materialdescription[] unitsofmeasure = unitsofmeasure[] unitsofmeasurex = unitsofmeasurex * INTERNATIONALARTNOS = * MATERIALLONGTEXT = taxclassifications = taxclassifications[] * RETURNMESSAGES = * PRTDATA = * PRTDATAX = * EXTENSIONIN = * EXTENSIONINX = . IF sy-subrc = 0. CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘ EXPORTING wait = ‘X‘ * IMPORTING * RETURN = . bapi_exe_result = ‘X‘. ELSE. bapi_exe_result = ‘‘. ENDIF. WAIT UP TO 1 SECONDS. DATA: per TYPE f, txt TYPE string. per = ( num / total ) * 100. DATA: str1 TYPE string, str2 TYPE string. str1 = num. str2 = total. CONCATENATE ‘正在批量创建物料...已完成：（‘ str1 ‘/‘ str2 ‘)‘ INTO txt. CALL FUNCTION ‘SAPGUI_PROGRESS_INDICATOR‘ EXPORTING percentage = per text = txt. ENDFORM. "SAVEDATA *获取基本计量单位内码 FORM get_pr_unit USING unit1 CHANGING unit2. SELECT SINGLE msehi INTO unit2 FROM t006a WHERE spras = 1 AND mseh3 = unit1. IF sy-subrc <> 0. unit2 = unit1. ENDIF. ENDFORM.
时间： 2024-10-11 04:31:02