Code:
data: l_doc type BAPI_DOC_DRAW2,
l_docx type BAPI_DOC_DRAWX2,
t_obj type BAPI_DOC_DRAD occurs 0 with header line,
l_ret type bapiret2.
clear: l_doc, l_docx, t_obj, t_obj[], l_ret.
t_obj-OBJECTTYPE = 'EQUI'. "Тип связанного объекта
t_obj-OBJECTKEY = '000000000010000013'. "Номер связанного объекта
append t_obj.
t_obj-OBJECTTYPE = 'EQUI'. "Тип связанного объекта
t_obj-OBJECTKEY = '000000000010000017'. "Номер связанного объекта
append t_obj.
t_obj-OBJECTTYPE = 'EQUI'. "Тип связанного объекта
t_obj-OBJECTKEY = '000000000010000024'. "Номер связанного объекта
append t_obj.
CALL FUNCTION 'BAPI_DOCUMENT_CHANGE2'
EXPORTING
documenttype = 'KAS' "Тип DMS документа
documentnumber = '0000000000000010000000003'
"Номер DMS документа
documentpart = '000' "Поддокумент
documentversion = '00' "Версия документа
documentdata = l_doc
documentdatax = l_docx
IMPORTING
RETURN = l_ret
TABLES
OBJECTLINKS = t_obj[].
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'. "Обязательно!