Today we learn CMOD enhancement for bapi BAPI_OBJCL_CREATE.
Enhancement project is CLFM0002, user exit function module EXIT_SAPLCLFM_002.
Purpose:
split AUSP-ATWRT to lines.
在使用自定义函数ZDQ_MDM_MATNR_CREATE批导物料主数据到SAP系统中的时候,某些特性值由于字符串过长,
需要将字符串分割以后显示。根据客户的需求,需要将分割后的字符串按照计数器有序显示。
因此,可以在调用BAPI:BAPI_OBJCL_CREATE批导物料主数据的过程中,
利用二代增强去根据计数器有序地显示某些特性值。
运行导入物料主数据的程序后,可以在数据表中看到相关特性值的排序显示
Sample code:调用BAP I: BAPI_OBJCL_CREATE时触发
T-code: CMOD
项目:ZDQ_CHAR
增强:CLFM0002
Function:EXIT_SAPLCLFM_002
功能出口“EXIT_SAPLCLFM_002”中的包含文件“ZXCLFU02”,实施代码如下:
DATA: VALUESCHAR TYPE STANDARD TABLE OF BAPI1003_ALLOC_VALUES_CHAR WITH HEADER LINE.
IMPORT VALUESCHAR FROM MEMORY ID ‘ZDQ_MDM_MATNR_CREATE’.
FREE MEMORY ID ‘ZDQ_MDM_MATNR_CREATE’.
IF VALUESCHAR[] IS NOT INITIAL.
LOOP AT T_ALLAUSP.
READ TABLE VALUESCHAR WITH KEY VALUE_CHAR = T_ALLAUSP-ATWRT .
IF SY-SUBRC = 0.
T_ALLAUSP-ATZHL = VALUESCHAR-INSTANCE.
MODIFY T_ALLAUSP TRANSPORTING ATZHL.
ENDIF.
ENDLOOP.
E_ACTIVE = ‘X’.
ENDIF.
========================
其中,‘ZDQ_MDM_MATNR_CREATE’是一个存储关于计数器和特性值的结构。
在批导物料主数据的过程中将抛出该结构到内存。代码如下所示:
EXPORT VALUESCHAR TO MEMORY ID ‘ZDQ_MDM_MATNR_CREATE’.
CALL FUNCTION ‘BAPI_OBJCL_CREATE’
EXPORTING
OBJECTKEYNEW = MAT2
OBJECTTABLENEW = ‘MARA’
CLASSNUMNEW = CLASSNUMNEW“‘T_CLASS’ http://www.hot583.com
CLASSTYPENEW = ‘001’“CLASSTYPENEW
* STATUS = ‘1’
STANDARDCLASS = ‘X’ “此处务必赋值‘X’,是为了bapi执行成功之后,MM03查看物料可以看到分类视图
TABLES
ALLOCVALUESNUM = ALLOCVALUESNUM
ALLOCVALUESCHAR = VALUESCHAR
ALLOCVALUESCURR = ALLOCVALUESCURR
RETURN = RETURN_CLASS.
我的微信公众号【 hot583 】 或者在这个链接联系我
本文链接 :http://www.hot583.com/2022/06/24/clfm0002/
本文为作者原创,如果这篇文章对您有用,欢迎转载,
转载请务必注明来源《今日热点在看》http://www.hot583.com/
微信原文《全文完》