05-20-2009 9:54 AM
how could i paste a code block in a post ?
i cannot find the place where it is explained...
05-20-2009 10:12 AM
05-20-2009 10:12 AM
05-20-2009 10:48 AM
no, it didn't work...
look what happens:
DATA: invented type string.
CALL FUNCTION...
05-20-2009 10:49 AM
CONCATENATE 'UPC' ordendpago INTO is_object-objkey
SEPARATED BY space.
* Indicamos el tipo de objeto URL
is_object-objtype = 'FMPSO'.
rel_doc-objkey = document_id.
rel_doc-objtype = 'MESSAGE'.
* Creamos la relación entre la op y el objeto enlazado
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
EXPORTING
obj_rolea = is_object
obj_roleb = rel_doc
relationtype = 'URL'
EXCEPTIONS
no_model = 1
internal_error = 2
unknown = 3
OTHERS = 4.
DATA: lo_list TYPE REF TO CL_GOS_ATTACHMENT_LIST,
lt_output TYPE TRL_BRLNK,
ls_output TYPE SRL_BRLNK,
lo_bor_item TYPE REF TO CL_SREL_BOR_ITEM,
lo_bor_browser TYPE REF TO CL_SREL_BROWSER_ITEM,
ls_bor_obj TYPE borident,
ls_folderid TYPE soodk,
ls_objectid TYPE soodk.
CONCATENATE 'UPC' i_ops-lotkz INTO lv_objkey SEPARATED BY space.
ls_object-objkey = lv_objkey.
ls_object-objtype = 'FMPSO'.
create object lo_list
exporting
is_object = ls_object
.
IF sy-subrc <> 0.
ENDIF.
lt_output = lo_list->GO_LIST_VIEWER->gt_output.
* in lt_output i have all the attachments for this document
LOOP AT lt_output INTO ls_output.
lo_bor_browser = ls_output-objref.
lo_bor_item ?= lo_bor_browser.
ls_bor_obj = lo_bor_item->gs_bor_object.
ls_folderid = ls_bor_obj-objkey(17).
ls_objectid = ls_bor_obj-objkey+17(17).
CALL FUNCTION 'SO_OBJECT_DELETE'
EXPORTING
folder_id = ls_folderid
* FORWARDER = ' '
* F_UNREAD_DELETE = ' '
object_id = ls_objectid
* OWNER = ' '
* PUT_IN_WASTEBASKET = 'X'
EXCEPTIONS
COMMUNICATION_FAILURE = 1
FOLDER_NOT_EMPTY = 2
FOLDER_NOT_EXIST = 3
FOLDER_NO_AUTHORIZATION = 4
FORWARDER_NOT_EXIST = 5
OBJECT_NOT_EXIST = 6
OBJECT_NO_AUTHORIZATION = 7
OPERATION_NO_AUTHORIZATION = 8
OWNER_NOT_EXIST = 9
SUBSTITUTE_NOT_ACTIVE = 10
SUBSTITUTE_NOT_DEFINED = 11
SYSTEM_FAILURE = 12
X_ERROR = 13
OTHERS = 14
.
Edited by: Joan Ayala on May 20, 2009 11:49 AM
05-20-2009 10:50 AM
maybe it didn't work this time because i have 2 code blocks...
Isn't that possible ?
05-20-2009 10:55 AM
Multiple code blocks should also work just fine.
Check for the limit of 2500 characters per post. Exceed that.. and everything goes for a toss.
pk
CONCATENATE 'UPC' ordendpago INTO is_object-objkey SEPARATED BY space.
* Indicamos el tipo de objeto URL is_object-objtype = 'FMPSO'.
rel_doc-objkey = document_id.
rel_doc-objtype = 'MESSAGE'.
* Creamos la relación entre la op y el objeto enlazado
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
EXPORTING
obj_rolea = is_object
obj_roleb = rel_doc
relationtype = 'URL'
EXCEPTIONS
no_model = 1
internal_error = 2
unknown = 3
OTHERS = 4.
DATA: lo_list TYPE REF TO CL_GOS_ATTACHMENT_LIST,
lt_output TYPE TRL_BRLNK,
ls_output TYPE SRL_BRLNK,
lo_bor_item TYPE REF TO CL_SREL_BOR_ITEM,
lo_bor_browser TYPE REF TO CL_SREL_BROWSER_ITEM,
ls_bor_obj TYPE borident,
Edited by: kishan P on May 20, 2009 3:25 PM