SAP GoS Attachment through custom program

Former Member — Fri, 22 Jan 2016 10:41:08 GMT

We have one requirement wherein we need to attach document links (URLs) from external server as GoS Link attachment in SAP.

We are trying to develop this functionality for Profit Center (KE53).

in KE53, the GoS button is not present originally, we have added it using enhancements.

Refer the foll code for how we added the GoS button to profit center

ENHANCEMENT 1 ZGOS_PROFIT_CENTER.

DATA: LR_GOS_MANAGER TYPE REF TO CL_GOS_MANAGER,

LS_BORIDENT TYPE BORIDENT.

LS_BORIDENT-OBJTYPE = 'BUS0015'.

LS_BORIDENT-OBJKEY = '12345678902011'.

CREATE OBJECT LR_GOS_MANAGER

EXPORTING

IS_OBJECT = LS_BORIDENT

IP_NO_COMMIT = ' '

EXCEPTIONS

OBJECT_INVALID = 1.

ENDENHANCEMENT.

While doing this enhancement we have used OBJTYPE as BUS0015 which is the business object for profit center and OBJKEY as 12345678902011 which is simply a random string. But GoS button has appeared in KE53 transaction and it is working fine.

But when I try to update GoS using my custom program, using same value for OBJTYPE i.e., BUS0015, and for OBJKEY I have tried various combinations but none of them work.

Can anyone help me with this OBJKEY part.

Re: SAP GoS Attachment through custom program

FredericGirod — Fri, 22 Jan 2016 10:46:36 GMT

Hi,

could you check this document ? http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/0e6b0d95-0a01-0010-4696-ca0a48de5fb3?overridelayout=true

regards

Fred

Re: SAP GoS Attachment through custom program

Former Member — Fri, 22 Jan 2016 10:51:06 GMT

Hi,

Can you show your custom code?

Re: SAP GoS Attachment through custom program

Former Member — Fri, 22 Jan 2016 11:07:32 GMT

FORM attach_url_gos USING p_docno

p_url

p_title

p_version

p_type.

DATA lt_objhead TYPE STANDARD TABLE OF soli.

DATA lt_objcont TYPE STANDARD TABLE OF soli.

DATA ls_objcont TYPE soli.

DATA lt_urltab TYPE STANDARD TABLE OF sood-objdes.

DATA l_tab_size TYPE i.

DATA l_url_id TYPE so_url.

DATA l_obj_id TYPE soodk.

DATA l_obj_data TYPE sood1.

DATA: folder_id TYPE sofdk.

DATA document_title TYPE sood-objdes.

DATA document_id TYPE sofmk.

DATA: is_object TYPE borident.

DATA rel_doc TYPE borident.

DATA: lv_doc_type(2) TYPE c.

* DATA: lv_message(50) TYPE c.

CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'

EXPORTING

region = 'B'

IMPORTING

folder_id = folder_id

EXCEPTIONS

OTHERS = 1.

l_url_id = p_url." FILE URL

* document_title = p_title+0(47) p_version+0(3).

CONCATENATE p_title+0(46) '-' p_version INTO document_title.

CONDENSE document_title.

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.

IF document_title IS INITIAL.

SPLIT p_url AT '/' INTO TABLE lt_urltab.

DESCRIBE TABLE lt_urltab LINES l_tab_size.

READ TABLE lt_urltab INDEX l_tab_size INTO document_title.

ENDIF.

l_obj_data-objdes = document_title.

CALL FUNCTION 'SO_OBJECT_INSERT'

EXPORTING

folder_id = folder_id

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.

WAIT UP TO 3 SECONDS.

IF sy-subrc = 0.

document_id-foltp = folder_id-foltp.

document_id-folyr = folder_id-folyr.

document_id-folno = folder_id-folno.

document_id-doctp = l_obj_id-objtp.

document_id-docyr = l_obj_id-objyr.

document_id-docno = l_obj_id-objno.

ELSE.

ENDIF.

*"""""""""""""""""""""""""""""""""""""""""""""

*Object inserted and document data fetched:

* now create a binary relation to link PO with this URL

is_object-objkey = p_docno. "Controlling area + Profit Center

is_object-objtype = p_type. "'BUS0015'.

IF NOT is_object-objkey IS INITIAL.

IF NOT document_id IS INITIAL.

CLEAR rel_doc.

rel_doc-objkey = document_id.

rel_doc-objtype = 'MESSAGE'.

CALL FUNCTION 'BINARY_RELATION_CREATE'

EXPORTING

obj_rolea = is_object

obj_roleb = rel_doc

relationtype = 'URL'

EXCEPTIONS

OTHERS = 1.

ENDIF.

ELSE.

ENDIF.

ENDFORM. " ATTACH_URL_GOS

topic Re: SAP GoS Attachment through custom program in Application Development and Automation Discussions

SAP GoS Attachment through custom program

Re: SAP GoS Attachment through custom program

Re: SAP GoS Attachment through custom program

Re: SAP GoS Attachment through custom program