CALL?FUNCTION?'BAPI_MATERIAL_SAVEDATA'

2.物料信息的獲取bapi : BAPI_MATERIAL_GET_DETAIL

Report??ZMMPL001

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT?ZMMPL001.

DATA:?pr_unit?TYPE?meins,"基本計量單位

bapi_exe_result(1)?TYPE?c."bapi執(zhí)行結果標識

*原材料

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,"行業(yè)領域

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,"物料統(tǒng)計組

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?'正在批量創(chuàng)建物料...已完成：('?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.

總結

以上是生活随笔為你收集整理的bapi sap 创建物料_bapi 物料主数据创建 'BAPI_MATERIAL_SAVEDATA'的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。