Hello Gaurav,
Here is a sample program I used for BP attachment. I used to attach an PDF file.
Try this
REPORT ZGLCCC_ATTACHMENTS_TO_BP NO STANDARD PAGE HEADING MESSAGE-ID ZGLMDM.
DATA: ls_bor type sibflporb,
lv_bor TYPE SWO_OBJTYP,
lv_loio TYPE skwf_io,
lv_phio TYPE skwf_io,
lv_error TYPE skwf_error.
DATA: wa_result_tab TYPE string,
result_tab TYPE STANDARD TABLE OF string,
lin TYPE i,
long_nombre TYPE i,
long_total TYPE i,
desplazamiento TYPE i,
filename_aux TYPE skwf_descr.
data : lt_prop type SDOKPROPTYS,
ls_prop type SDOKPROPTY.
MOVE:'BUS1006' TO ls_bor-typeid,
'BO' TO ls_bor-catid,
'4BAE515AB5F35F61E10000000A4F263D' TO ls_bor-instid.
*****************************************
clear ls_prop.
ls_prop-name = 'KW_RELATIVE_URL'.
ls_prop-value = 'BP.PDF'.
append ls_prop to lt_prop.
clear ls_prop.
ls_prop-name = 'DESCRIPTION'.
ls_prop-value = 'Business Partner'.
append ls_prop to lt_prop.
clear ls_prop.
ls_prop-name = 'LANGUAGE'.
ls_prop-value = 'EN'.
append ls_prop to lt_prop.
********************************************
CALL METHOD cl_crm_documents=>create_with_file
EXPORTING
file_name = 'BP.PDF'
*directory = 'C:\Documents and Settings\902805\Desktop\'
directory = 'C:\BP\'
business_object = ls_bor
PROPERTIES = lt_prop
IMPORTING
loio = lv_loio
phio = lv_phio
error = lv_error.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
Thanks,
Ranadev
