Attachments

pbechani — Mon, 12 May 2008 09:09:38 GMT

I have created an Bussiness Object that I attach a pdf file. Later on in the process I have to read that attachment and attach it to another BO.

I read the attachment from my previous BO using BAPI_REL_GETRELATIONS. The list of attachments is returned in LISTOFRELATIONS structure. I want to attach these to another BO using BAPI_REL_CREATERELATION or BINARY_RELATION_CREATE. I am not able to create an object reference to the attachments.

Below is template of my code

INCLUDE : <cntn01>.

DATA :

P_BOTYPE LIKE BORIDENT-OBJTYPE.

types: BEGIN OF TY_MESSAGE_KEY,

FOLTP TYPE SO_FOL_TP,

FOLYR TYPE SO_FOL_YR,

FOLNO TYPE SO_FOL_NO,

DOCTP TYPE SO_DOC_TP,

DOCYR TYPE SO_DOC_YR,

DOCNO TYPE SO_DOC_NO,

FORTP TYPE SO_FOR_TP,

FORYR TYPE SO_FOR_YR,

FORNO TYPE SO_FOR_NO,

END OF TY_MESSAGE_KEY.

DATA : LV_MESSAGE_KEY type TY_MESSAGE_KEY.

DATA : LO_MESSAGE type SWC_OBJECT,

P_MSGTYP LIKE SOFM-DOCTP,

P_DOCTY LIKE borident-OBJTYPE,

Relationship

P_RELTYP LIKE BRELTYP-RELTYPE.

data: LO_IS_OBJECT_A type BORIDENT.

Create an initial instance of BO 'MESSAGE' - to call the
instance-independent method 'Create'.

Data : RelList type table of BAPIRELLK,

wa_rellist type BAPIRELLK.

CALL FUNCTION 'BAPI_REL_GETRELATIONS'

EXPORTING

objectid = *here i put object ID structure of BO with attachment

ROLE =

RELATION = 'ATTA'

RECURSIONLEVEL = 1
IMPORTING
RETURN =

TABLES

LISTOFRELATIONS = rellist

loop at RelList into wa_rellist.

LV_MESSAGE_KEY = wa_rellist-objkey_b.

swc_create_object LO_MESSAGE 'MESSAGE' LV_MESSAGE_KEY.

Get Key of new object
swc_set_object_key LO_MESSAGE msg_key.

swc_refresh_object LO_MESSAGE.

P_BOTYPE = 'BUS2080'.

P_BO_ID = '000004000285'.

swc_get_object_key LO_MESSAGE LV_MESSAGE_KEY.

P_DOCTY = 'MESSAGE'.

LO_IS_OBJECT_A-OBJKEY = P_BO_ID.

LO_IS_OBJECT_A-OBJTYPE = P_BOTYPE.

Create attachment BO object_b

data: LO_IS_OBJECT_B type BORIDENT.

LO_IS_OBJECT_B-OBJKEY = LV_MESSAGE_KEY.

LO_IS_OBJECT_B-OBJTYPE = P_DOCTY.

call function 'BINARY_RELATION_CREATE'

EXPORTING

obj_rolea = LO_IS_OBJECT_A

obj_roleb = LO_IS_OBJECT_B

relationtype = P_RELTYP

EXCEPTIONS

others = 1.

commit work.

endloop.

Kind Regards

Re: Attachments

athavanraja — Mon, 12 May 2008 09:59:09 GMT

why not copy them from one bo to another using

BDS_BUSINESSDOCUMENT_COPY

Re: Attachments

pbechani — Mon, 12 May 2008 10:09:42 GMT

Hi Durairaj

Can you assit me no how to use BDS_BUSINESSDOCUMENT_COPY. I can't seem to find documentation for it.

Kind Regards

Re: Attachments

pbechani — Tue, 06 Oct 2009 09:18:22 GMT

Solution worked. The parameters to the functions were wrong

topic Attachments in Application Development and Automation Discussions

Attachments

Re: Attachments

Re: Attachments

Re: Attachments