如果一个人能一直写代码，并且只是关注于写代码，那么他是幸福的，也是可悲的。
微信群里看到一些惨状和上海东方卫视节目晚会被暂停。深刻体会到时代的尘埃和大山。
那可是魔都上海啊，令人神往的地方，怎么会搞成这个样子？
今天我们来温习一下前台事务代码TCODE:CL01对应的BAPI函数BAPI_OBJCL_CREATE的使用方法，
作用是建立或更改分类视图。
万变不离其宗~
导入参数说明：
| 参数名称 | 关联类型 | 缺省值 | 可选的 | 值传递 | 说明 |
| OBJECTKEYNEW | BAPI1003_KEY-OBJECT | 可选 | 是 | 物料码 | |
| OBJECTTABLENEW | BAPI1003_KEY-OBJECTTABLE | 必选 | 是 | 物料主表 | |
| CLASSNUMNEW | BAPI1003_KEY-CLASSNUM | 必选 | 是 | 分类号 | |
| CLASSTYPENEW | BAPI1003_KEY-CLASSTYPE | 必选 | 是 | 分类类型 | |
| KEYDATE | BAPI1003_KEY-KEYDATE | SY-DATUM | 可选 | 是 | 日期 |
| STANDARDCLASS | BAPI1003_KEY-STDCLASS | 可选 | 是 | MM03查看物料可以看到分类视图 |
注意事项如下：
- STANDARDCLASS：设值为X，在执行完BAPI之后，MM03可查看分类试图
- OBJECTKEYNEW：对应物料码，类型为mara-matnr
- OBJECTTABLENEW：创建视图的主表
- CLASSNUMNEW：分类号，类型为rmclf-class
- CLASSTYPENEW：分类类型，类型为rmclf-klart
表参数：
| 参数名称 | 关联类型 | 可选的 | 说明 |
| ALLOCVALUESNUM | BAPI1003_ALLOC_VALUES_NUM | 可选 | 数值型特性值 |
| ALLOCVALUESCHAR | BAPI1003_ALLOC_VALUES_CHAR | 可选 | 字符串型特性值 |
| RETURN | BAPIRET2 | 必选 | 返回信息 |
| ALLOCVALUESCURR | BAPI1003_ALLOC_VALUES_CURR | 可选 | 货币型特性值 |
作者HOT583.com曾经也是SAP ABAP beginners ，开始学习会有些难度，到处去找Tutorial for Constant。
需要自学很久，没人给咱免费培训。写个测试代码DEMO举例子。下面是代码。希望您喜欢~
*创建分类试图
TYPES: BEGIN OF typ_excel,
matnr TYPE mara-matnr, “物料编码
bismt TYPE mara-bismt, “旧物料编码
mtart TYPE mara-mtart, “物料类型
maktx TYPE makt-maktx, “物料描述
meins TYPE mara-meins, “基本计量单位
spart TYPE mara-spart, “产品组
matkl TYPE mara-matkl, “物料组
*——-以上为物料基本视图1，2数据———————————————————-*
xchpf TYPE marc-xchpf, “批次管理
klart TYPE rmclf-klart, “类别种类
class TYPE rmclf-class, “类号
END OF typ_excel.
*——-以上为分类视图数据———————————————————-*
DATA:RETURN_OBJ LIKE TABLE OF BAPIRET2,
IT_ALLOCVALUESCHAR LIKE TABLE OF BAPI1003_ALLOC_VALUES_CHAR WITH HEADER LINE.
DATA:OBJECTKEYNEW LIKE BAPI1003_KEY-OBJECT,
CLASSNUMNEW LIKE BAPI1003_KEY-CLASSNUM,
CLASSTYPENEW LIKE BAPI1003_KEY-CLASSTYPE.
CLEAR:RETURN_OBJ[], IT_ALLOCVALUESCHAR[].
* it_allocvalueschar-charact = ‘Z_PLANT_CODE’.
* APPEND it_allocvalueschar.
* it_allocvalueschar-charact = ‘Z_INIT_MWEIGHT’.
* APPEND it_allocvalueschar.
CLASSNUMNEW = LWA_EXCEL_EXPAND-CLASS.
CLASSTYPENEW = LWA_EXCEL_EXPAND-KLART.
MOVE LWA_EXCEL_EXPAND-MATNR TO OBJECTKEYNEW.
CALL FUNCTION ‘BAPI_OBJCL_CREATE’
EXPORTING
OBJECTKEYNEW = OBJECTKEYNEW “物料码
OBJECTTABLENEW = ‘MARA’ “物料表
CLASSNUMNEW = CLASSNUMNEW ”分类号
CLASSTYPENEW = CLASSTYPENEW “分类类型
* STATUS = ‘1’
* STANDARDCLASS =
* CHANGENUMBER =
* KEYDATE = SY-DATUM
* NO_DEFAULT_VALUES = ‘ ‘
* IMPORTING
* CLASSIF_STATUS =
TABLES
* allocvaluesnum =
ALLOCVALUESCHAR = IT_ALLOCVALUESCHAR[]
* ALLOCVALUESCURR =
RETURN = RETURN_OBJ[].
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
EXPORTING
WAIT = ‘X’.
注：上面只是模拟了正常的情况哦~
本文链接 ：http://www.hot583.com/2022/04/13/bapi_objcl_create/
本文为作者原创，如果这篇文章对您有用，欢迎转载，
转载请务必注明来源《今日热点在看》http://www.hot583.com/
我的微信公众号【 hot583 】 或者在这个链接联系我
微信原文《全文完》
