Enhancement for BAPI_OBJCL_CREATE CLFM0002

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/

微信原文《全文完》

今日热点在看SAP HOT583