ABAP FM Copy Class Assigment from Reference Material to another Material (BAPI_OBJCL_CREATE)

In this blog post, I will share a very useful function module, which will help you copy material class assigment easliy. It takes a reference material and the class, and copies this assignment to the new material.

I used BAPI_OBJCL_GETDETAIL, BAPI_OBJCL_CREATE standard BAPI’s.

Here is the source code:

ZMA_F_ASSIGN_CLASS_WITH_REF

Import Parameters:

P_MATCFG
TYPE
MARA-MATNR
Reference Material

F_MATNR
TYPE
MARA-MATNR
The Material to Assign Class

OBJECTTABLE
TYPE
BAPI1003_KEY-OBJECTTABLE
Name of database table for object

CLASSNUM
TYPE
BAPI1003_KEY-CLASSNUM
Class number

CLASSTYPE
TYPE
BAPI1003_KEY-CLASSTYPE
Class Type

function zma_f_assign_class_with_ref. *“———————————————————————- *”*“Local Interface: *” IMPORTING *“ REFERENCE(P_MATCFG) TYPE MARA-MATNR *” REFERENCE(F_MATNR) TYPE MARA-MATNR *“ REFERENCE(OBJECTTABLE) TYPE BAPI1003_KEY-OBJECTTABLE *” REFERENCE(CLASSNUM) TYPE BAPI1003_KEY-CLASSNUM *“ REFERENCE(CLASSTYPE) TYPE BAPI1003_KEY-CLASSTYPE *”———————————————————————- data: allocvaluesnum like table of bapi1003_alloc_values_num, allocvalueschar like table of bapi1003_alloc_values_char, allocvaluescurr like table of bapi1003_alloc_values_curr, return like table of bapiret2, objectkey like bapi1003_key-object. move p_matcfg to objectkey. call function ‘BAPI_OBJCL_GETDETAIL’ exporting objectkey = objectkey objecttable = objecttable classnum = classnum classtype = classtype tables allocvaluesnum = allocvaluesnum allocvalueschar = allocvalueschar allocvaluescurr = allocvaluescurr return = return. move f_matnr to objectkey. refresh return. call function ‘BAPI_OBJCL_CREATE’ exporting objectkeynew = objectkey objecttablenew = objecttable classnumnew = classnum classtypenew = classtype tables allocvaluesnum = allocvaluesnum allocvalueschar = allocvalueschar allocvaluescurr = allocvaluescurr return = return. data: ls_bapiret2 type bapiret2. call function ‘BAPI_TRANSACTION_COMMIT’ exporting “wait = ‘X’ wait = ‘X’ importing return = ls_bapiret2. endfunction. http://bit.ly/2hFJTdX #SAP #SAPCloud #AI

Subscribe To Newsletter

Sign up for my newsletter and get the latest technology news

2019 © Craig Brown PhD. All rights reserved.