关于对物料计量单位的维护-编程知识

关于对物料计量单位的维护

1、业务背景

一般情况下，在设计产品时，明确了物料的计量单位，并在维护物料主数据时，维护完整单位数据。

但也有例外情况，例如当设计产品时，不明确未来的打包方式，不明确要维护哪些种计量单位，只有当生产完成之后，再确定通过包还是箱等方式包装产品，并将新的计量单位同步给外围系统方便运输。因此就需要在生产完成之后，再修改对应的物料主数据的计量单位。

前台操作，事务代码MM02，维护物料的量纲和附加数据里面的计量单位

附加数据

2、代码参考

调用BAPI：BAPI_MATERIAL_SAVEDATA，增删改计量单位

"--------------------@斌将军--------------------
DATA:ls_head   TYPE bapimathead,ls_mara   TYPE bapi_mara,ls_marax  TYPE bapi_marax,lt_marm   TYPE TABLE OF bapi_marm,ls_marm   TYPE bapi_marm,lt_marmx  TYPE TABLE OF bapi_marmx,ls_marmx  TYPE bapi_marmx,ls_return TYPE bapiret2.ls_head-material = '000000000002000076'.  "SAP物料编码"修改量纲
ls_mara-net_weight = 1."净重
ls_marax-net_weight = 'X'."净重CLEAR:ls_marm.
ls_marm-alt_unit = 'M'."基本单位
ls_marm-gross_wt = 3."毛重
ls_marm-unit_of_wt = 'KG'."重量单位
ls_marm-volume = 1."业务量
ls_marm-volumeunit = 'M3'."体积单位
APPEND ls_marm TO lt_marm.
CLEAR:ls_marmx.ls_marmx-alt_unit = 'M'."基本单位
ls_marmx-gross_wt = 'X'."毛重
ls_marmx-unit_of_wt = 'X'."重量单位
ls_marmx-volume = 'X'."业务量
ls_marmx-volumeunit = 'X'."体积单位
APPEND ls_marmx TO lt_marmx."删除附加数据计量单位
CLEAR:ls_marm.
ls_marm-alt_unit = 'EA'."基本单位
ls_marm-del_flag = 'X'."删除
APPEND ls_marm TO lt_marm."维护多个单位
CLEAR:ls_marm.
ls_marm-alt_unit = 'EA'."基本单位
ls_marm-numerator = 23."分子
ls_marm-denominatr = 10."分母
APPEND ls_marm TO lt_marm.CLEAR:ls_marmx.
ls_marmx-alt_unit = 'EA'."基本单位
ls_marmx-numerator = 'X'."分子
ls_marmx-denominatr = 'X'."分母
APPEND ls_marmx TO lt_marmx.CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'EXPORTINGheaddata        = ls_headclientdata      = ls_maraclientdatax     = ls_maraxIMPORTINGreturn          = ls_returnTABLESunitsofmeasure  = lt_marmunitsofmeasurex = lt_marmx.IF ls_return-type = 'E'.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.MESSAGE ls_return-message TYPE 'S' DISPLAY LIKE 'E'.
ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.MESSAGE '成功' TYPE 'S'.
ENDIF.
"--------------------@斌将军--------------------

定期更文，欢迎关注