调用BAPI_MATERIAL_SAVEDATA批量创建/修改物料

report  ytest_savemat.
data: headdata                type bapimathead,     "表头数据
      clientdata              type bapi_mara,       "基本数据
      clientdatax             type bapi_marax.
data: materialdescription type table of bapi_makt with header line."描述
data: unitsofmeasure type table of bapi_marm with header line."
data: unitsofmeasurex type table of bapi_marmx with header line."
  data pr_unit type meins."基本单位
  data pr_unit2 type meins."重量单位
  data return type bapiret2.
data: begin of msg occurs 0,
material type matnr,
description type maktx,
message(97) type c,
end of msg.
data:begin of itab occurs 0,
  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,"物料组
  t_old_mat_no type bismt,"型号
  mara_division type spart,"产品组
  t_dsn_office type labor,"实验室/办公室
  mara_item_cat type mtpos_mara,"普通项目组类别
  t_marm_gross_wt type brgew,"毛重
  mara_unit_of_wt type gewei,"重量单位
  mara_net_weight type ntgew,"净重
  mara_size_dim type groes,"大小/量纲
end of itab.
data itab1 type itab occurs 0 with header line.
perform putdata.
perform run.
form run.
loop at itab.
  clear headdata.
  headdata-material       = itab-head_material.
  headdata-matl_type      = itab-head_matl_type.
  headdata-ind_sector     = itab-head_ind_sector.
  headdata-basic_view     = 'X'.  "基本数据视图
  clear pr_unit.
  clear pr_unit2.
  perform frm_unit using itab-mara_base_uom changing pr_unit."基本单位
  perform frm_unit using itab-mara_unit_of_wt changing pr_unit2."重量单位
  clear clientdata.
  clientdata-base_uom = pr_unit."基本计量单位
  clientdata-matl_group = itab-mara_matl_group."物料组
  clientdata-old_mat_no = itab-t_old_mat_no."型号
  clientdata-division = itab-mara_division."产品组
  clientdata-dsn_office = itab-t_dsn_office."实验室/办公室
  clientdata-item_cat = itab-mara_item_cat."普通项目组类别
  clientdata-unit_of_wt = pr_unit2."重量单位
  clientdata-net_weight = itab-mara_net_weight."净重
  clientdata-size_dim = itab-mara_size_dim."大小/量纲
  "bapi_mara 的复选框结构
  clear clientdatax.
  clientdatax-base_uom = 'X'."基本计量单位
  clientdatax-matl_group = 'X'."物料组
  clientdatax-old_mat_no = 'X'."型号
  clientdatax-division = 'X'."产品组
  clientdatax-dsn_office = 'X'."实验室/办公室
  clientdatax-item_cat = 'X'."普通项目组类别
  clientdatax-unit_of_wt = 'X'."重量单位
  clientdatax-net_weight = 'X'."净重
  clientdatax-size_dim = 'X'."大小/量纲
  "计量单位
  unitsofmeasure-alt_unit = pr_unit.    "替换单位(必须为基本计量单位,否则会报错,说没有转换因子什么的)
  unitsofmeasure-numerator = 1.    "分子
  unitsofmeasure-denominatr = 1.    "分母
  unitsofmeasure-gross_wt = itab-t_marm_gross_wt."毛重
  unitsofmeasure-unit_of_wt = pr_unit2."需要填充毛重的话,注意此处需要添加重量单位,否则会一直提示你没有指定单位
  append unitsofmeasure.
  clear unitsofmeasure.
  unitsofmeasurex-alt_unit = pr_unit."注意此处不是填充'X'
  unitsofmeasurex-numerator = 'X'.
  unitsofmeasurex-denominatr = 'X'.
  unitsofmeasurex-gross_wt = 'X'.
  unitsofmeasurex-unit_of_wt = 'X'."此处填充'X'
  if unitsofmeasurex-alt_unit is not initial and unitsofmeasurex-numerator is not initial and unitsofmeasurex-denominatr is not initial.
    append unitsofmeasurex.
  endif.
  clear unitsofmeasurex.
  "物料描述
  clear materialdescription[].
  materialdescription-langu_iso = 'ZH'.
  materialdescription-matl_desc = itab-t_makt_matl_desc.
  append materialdescription.
  clear return.
    call function 'BAPI_MATERIAL_SAVEDATA'
      exporting
        headdata            = headdata
        clientdata          = clientdata
        clientdatax         = clientdatax
      importing
        return              = return
      tables
        materialdescription = materialdescription[]
        unitsofmeasure = unitsofmeasure[]
        unitsofmeasurex = unitsofmeasurex[].
    if return-type ne 'E'.
      call function 'BAPI_TRANSACTION_COMMIT'
      exporting
        wait          = 'X' .
    else.
      call function 'bapi_transaction_rollback'.
    endif.
endloop.
write : return-type,return-message.
endform.
form putdata.
  itab-head_material = '10101010105'.
  itab-head_ind_sector = 'M'.
  itab-head_matl_type = 'zroh'.
  itab-mara_base_uom = '个'."基本计量单位
  itab-mara_matl_group = '10235'."物料组
  itab-t_old_mat_no = 'testbapi05'."型号
  itab-mara_division = '00'."产品组
  itab-t_dsn_office = '001'."实验室/办公室
  itab-mara_item_cat = 'NORM'."普通项目组类别
  itab-mara_net_weight = 2."净重
*  itab-mara_normt = ''."行业标准描述
  itab-mara_size_dim = '2*3'."大小/量纲
  itab-t_marm_gross_wt = 22 / 10."毛重
  itab-mara_unit_of_wt = 'KG'."重量单位
  itab-t_makt_matl_desc = 'test mat 0005'.
    call function 'CONVERSION_EXIT_ALPHA_INPUT'"
      exporting
        input  = itab-head_material
      importing
        output = itab-head_material.
  append itab.
endform.
*获取基本计量单位内码
form frm_unit using unit1 changing unit2.
  call function 'CONVERSION_EXIT_CUNIT_INPUT'
    exporting      input          = unit1
                   language       = sy-langu
    importing      output         = unit2
    exceptions      unit_not_found = 1
    others         = 2.
  if sy-subrc <> 0.
*   message id sy-msgid type sy-msgty number sy-msgno
*           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    "frm_unit

调用BAPI_MATERIAL_SAVEDATA批量创建/修改物料相关推荐

bapi sap 创建物料_创建/修改物料主数据的BAPI
DATA: pr_unit TYPE meins,"基本计量单位 bapi_exe_result(1) TYPE c."bapi执行结果标识 *原材料 DATA: BEGIN OF ...
ElasticSearch.net NEST批量创建修改删除索引完整示例
本示例采用Elasticsearch+Nest 网上查了很多资料,发现用C#调用Elasticsearch搜索引擎的功能代码很分散,功能不完整,多半是非常简单的操作,没有成型的应用示例.比如新增或修改 ...
django bulk_update_or_create 批量创建更新
文章目录前言一.代码实现二.使用前言当前django并没有提供能够批量创建或更新的方法,只有bulk_update 和bulk_create以及create_or_update,在实际业务中 ...
Shell脚本实战之文件批量创建和修改
Shell脚本实战之文件批量创建和修改一.脚本要求二.脚本内容三.脚本运行结果一.脚本要求 1.所有操作在/python下 2.批量创建12个以py后缀结尾的文件,文件名中必须包含_hcip, ...
python 批量创建变量_Python批量生成和调用变量
这几天写代码中遇到的一个常见问题,在Python 中如何批量的生成一些变量,如生成变量X1, X2, X3 ,并在后续的方法中调用,完成赋值.取值等操作.这个问题也算是常见的吧,之前遇到过,也不了了之 ...
Linux中批量创建空白文件,在Linux中批量创建和修改文件或目录
1. 用一条命令直接创建 [fred@Royalmile Auto_Ops]$ touch `seq 10` [fred@Royalmile Auto_Ops]$ ls 1 10 2 3 4 ...
域服务器批量修改用户密码,Windows域控制器批量创建用户
Windows域控制器批量创建用户猫先生 • 2019 年 06 月 05 日之前做过VDI的项目,一百多个桌面,需要一百多个用户,我刚开始手动创建了5个,觉得这不是IT人干的事,要高效.网上找了 ...
使用CSVDE批量创建和修改域用户
使用CSVDE批量创建和修改域用户如果需要创建大量的域用户帐户,使用CSVDE批量导入是不错的选择,由于用户信息文件中不能包括用户的密码,而域的安全策略要求用户密码必须满足长度要求和复杂性要求,因此 ...
SAP批量修改物料标准成本
SAP批量修改物料标准成本 2018年11月16日 15:18:17 有点想鲁下阅读数 186 分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jian ...

调用BAPI_MATERIAL_SAVEDATA批量创建/修改物料

调用BAPI_MATERIAL_SAVEDATA批量创建/修改物料相关推荐

最新文章

热门文章