Господа, подскажите плз ФМ, присваивающий материалу класс

подозреваю, что BAPI_OBJCL_CREATE_KEY и\или BAPI_OBJCL_CHANGE_KEY должны тебе помочь

Скажите, а вы создавали классы при помощи BAPI. Просто мне тоже надо будет присваивать материалы к калссам. Но пока у меня что-то не очень получается даже просто создать класс через BAPI. Если вы делали что-то подобное, не скините свой код? Очень надо.

DATA: l_class_num TYPE BAPI_CLASS_KEY-CLASSNUM,
"Название будущего класса
l_class_type TYPE BAPI_CLASS_KEY-CLASSTYPE,
"Тип будущего класса
ls_class_data TYPE BAPI1003_BASIC, "Доп. данные по классу
lt_class_descript TYPE TABLE OF BAPI1003_CATCH,
ls_class_descript TYPE BAPI1003_CATCH,
lt_return TYPE TABLE OF BAPIRET2,
lt_characteristics TYPE TABLE OF BAPI1003_CHARACT,
ls_characteristics TYPE BAPI1003_CHARACT.
* Характеристики создаваемого класса
l_class_num = 'TEST_CLASS2'. “Назввание (Class)
l_class_type = 'Z01'. “Вид класса(ClassType)
ls_class_descript-LANGU = 'R'.
ls_class_descript-LANGU_ISO = 'RU'.
ls_class_descript-CATCHWORD = 'Созданный через BAPI'. “Наименование
APPEND ls_class_descript TO lt_class_descript.
* Основные параметры создаваемого класса
ls_class_data-STATUS = '1'. “Статус – ‘1’- деблокировано
ls_class_data-VALID_FROM = sy-datum. “Действит. с
ls_class_data-VALID_TO = '99991231'. “ по
“Одинаковая классификация – не проверять
ls_class_data-SAME_VALUE_NO = 'X'.

* Присваиваем сразу признак определённый для вида класса Z01
“Присвоенный признак
ls_characteristics-NAME_CHAR = 'OZM_SALE_EI_DIV'.
APPEND ls_characteristics TO lt_characteristics.
CALL FUNCTION 'BAPI_CLASS_CREATE'
EXPORTING
CLASSNUMNEW = l_class_num
CLASSTYPENEW = l_class_type
CLASSBASICDATA = ls_class_data
TABLES
RETURN = lt_return
CLASSDESCRIPTIONS = lt_class_descript
CLASSCHARACTERISTICS = lt_characteristics.

call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = l_t_return.