Upload Attachments

Question

Hi Gurus,
I have a requirement where client is migrating from People Soft to CRM 7.0. There is a data conversion happening and we need to migrate attachments for Cases.
There is a Content Server which is installed at CRM end which will handle new attachments which can be uploaded from the local workstation.
I want to upload the attachments for the previous data which is migrated into CRM from PeopleSoft during Data Conversion process. Is there any FM or class method which I can use to do that?
Thanks in advance
Vishal

Answer 1

Hi Preethi,
You can use Class CL_CRM_DOCUMENTS for uploading attachments to business objects in CRM.
If you are uploading file from Presentation server, call method CREATE_WITH_FILE and if you are uplading attachment from Application Server, use method CREATE_WITH_TABLE.
The following code is an example of how to upload attachment from Presentation Server.
CONSTANTS: c_activity TYPE crmt_subobject_category_db VALUE 'BUS2000123'.
DATA: ls_bor_object  TYPE sibflporb.
DATA: ls_object_id TYPE swotobjid.
DATA: es_error TYPE  skwf_error .
DATA: lt_properties TYPE sdokproptys.
DATA: ls_properties TYPE sdokpropty.
DATA: path TYPE string.
DATA: targetpath TYPE string.
DATA: path1 TYPE sdok_chtrd.
DATA: wa_file_table TYPE file_info.
DATA: it_files TYPE STANDARD TABLE OF file_info.
DATA: x TYPE i.
DATA: l_object_id TYPE crmt_object_id_db.
DATA: l_object_id1 TYPE crmt_object_id_db.
DATA: ext TYPE string.
DATA: l_object_guid TYPE crmt_object_guid.
DATA: lv_filename TYPE sdok_filnm.
DATA: ls_phio TYPE skwf_io.
DATA: rc TYPE i.
data: l_filename TYPE string,
*data: lv_filename(40).
        l_filesize TYPE i,
        l_filecontents TYPE TABLE OF sdokcntbin.
CALL METHOD cl_gui_frontend_services=>directory_list_files
  EXPORTING
    directory                   = path
    filter                      = '*'
    files_only                  = 'X'
   directories_only            =
  CHANGING
    file_table                  = it_files
    count                       = x
  EXCEPTIONS
    cntl_error                  = 1
    directory_list_files_failed = 2
    wrong_parameter             = 3
    error_no_gui                = 4
    not_supported_by_gui        = 5
    OTHERS                      = 6
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
l_object_guid = 'DF2F786D3130ECF1A605002655269F60'.
CHECK x IS NOT INITIAL.
LOOP AT it_files INTO wa_file_table.
  lv_filename = wa_file_table-filename .
  CONCATENATE path lv_filename INTO path1.
  IF sy-subrc = 0.
    ls_object_id-objtype = c_activity.
    ls_object_id-objkey  = l_object_guid.
    CLASS cl_swf_utl_convert_por DEFINITION LOAD.
    ls_bor_object =
           cl_swf_utl_convert_por=>convert_bor_to_ibf( lv_filename ).
    ls_properties-name = 'KW_RELATIVE_URL'.
    ls_properties-value = lv_filename.
    APPEND ls_properties TO lt_properties.
    ls_properties-name = 'DESCRIPTION'.
    ls_properties-value = lv_filename.
    APPEND ls_properties TO lt_properties.
    CALL METHOD cl_crm_documents=>create_with_file
      EXPORTING
        file_name       = lv_filename
        directory       = path1
        properties      = lt_properties
        business_object = ls_bor_object
      IMPORTING
        phio            = ls_phio
        error           = es_error.
  ENDIF.
  CLEAR: wa_file_table,l_object_id,l_object_guid,l_object_id .
endloop.
I hope this helps.
Thanks
Vishal