hola tonijua muchas gracias..
lo hice con el siguiente codigo
DATA: lv_folderid TYPE sofdk,
ls_object TYPE borident,
l_url_id TYPE so_url,
ls_objcont TYPE soli,
lt_objcont TYPE STANDARD TABLE OF soli,
l_obj_data TYPE sood1,
lv_document_title TYPE sood-objdes,
l_obj_id TYPE soodk,
lt_objhead TYPE STANDARD TABLE OF soli,
ls_document_id TYPE sofmk,
ls_rel_doc TYPE borident,
ls_ep_url TYPE borident-objkey,
lv_ip type syhost,
lv_id type string.
CONCATENATE p_soc
p_doc
p_eje
INTO ls_object-objkey.
ls_object-objtype = 'BKPF'.
CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
EXPORTING
* OWNER = ' '
region = 'B'
IMPORTING
folder_id = lv_folderid
EXCEPTIONS
OTHERS = 1.
.
IF sy-subrc <> 0.
CLEAR: lv_folderid.
ENDIF.
WHILE NOT l_url_id IS INITIAL.
CONCATENATE '&KEY&' l_url_id(250) INTO ls_objcont.
APPEND ls_objcont TO lt_objcont.
SHIFT l_url_id LEFT BY 250 PLACES.
ENDWHILE.
l_obj_data-objsns = 'O'.
l_obj_data-objla = sy-langu.
l_obj_data-objdes = lv_document_title.
CALL FUNCTION 'SO_OBJECT_INSERT'
EXPORTING
folder_id = lv_folderid
object_type = 'URL'
object_hd_change = l_obj_data
IMPORTING
object_id = l_obj_id
TABLES
objhead = lt_objhead
objcont = lt_objcont
EXCEPTIONS
active_user_not_exist = 35
folder_not_exist = 6
object_type_not_exist = 17
owner_not_exist = 22
parameter_error = 23
OTHERS = 1000.
|