Attachment Overwrites

Question

Hi experts,
I have written the below code for Adobe Form Attachment. Every new attachment is overwritten in all the previous claims.
Please suggest, little urgent.
begin_method create_attachment changing container.
DATA : c_object_describe TYPE swotobjid-describe VALUE '*<OBJECT>*'.
*       c_desc            TYPE sodocchgi1-obj_descr
*                         VALUE 'Non Travel Exp '.
DATA:  lv_flg TYPE c,
        sofm TYPE swc_object,
        workitemid TYPE swr_struct-workitemid,
        wd_url TYPE t706www-urlink,
*      begda TYPE hrp1000-begda,
*      endda TYPE hrp1000-endda,
       attid LIKE swr_att_id,
        requestor_id TYPE zclaimovr-pernr,
        claim_no TYPE zclaimovr-zrequest,
        lv_app_name     TYPE string VALUE 'ZPRINT_WORKFLOW_NON_TRAVEL',
        lv_host         TYPE string,
        lv_port         TYPE string,
        lv_key          TYPE sibfboriid,
        lv_url          TYPE string,
        lv_out_protocol TYPE string,
        l_object        TYPE swotobjid,
        lv_url_1        TYPE string,
        l_objheader     TYPE soxobj,
        lt_parameters   TYPE tihttpnvp,
        objhead         TYPE solisti1 OCCURS 10 WITH HEADER LINE,
        lv_title        TYPE sood-objdes,
        lt_doc_content  TYPE TABLE OF soli,
        lw_doc_content  LIKE LINE OF lt_doc_content,
        lw_parameters   TYPE ihttpnvp,
        l_cont          TYPE TABLE OF swcont,
       lv_name         TYPE sood-objnam ."VALUE 'REG FORM'.
   BREAK-POINT .
*swc_get_element container 'WORKITEMID' workitemid.
swc_get_element container 'REQUESTOR_ID' requestor_id.
swc_get_element container 'Claim_no' claim_no.
CALL METHOD cl_http_server=>if_http_server~get_location
   IMPORTING
     host         = lv_host
     port         = lv_port
     out_protocol = lv_out_protocol.
CLEAR lw_parameters.
lw_parameters-name = 'REQUESTOR_ID'.
lw_parameters-value = object-key-employeenumber.
APPEND lw_parameters TO lt_parameters.
CLEAR lw_parameters.
lw_parameters-name = 'Claim_no'.
lw_parameters-value = object-key-claim_num. "'W'.  "DISPLAY FROM WORKFLOW
APPEND lw_parameters TO lt_parameters.
CLEAR lw_parameters.
lw_parameters-name = 'WORKITEMID'.
lw_parameters-value = workitemid.
APPEND lw_parameters TO lt_parameters.
MOVE object-key TO lv_key.
*CREATE OBJ ATTACHMENT
l_object-describe = c_object_describe.
l_object-objtype = 'ZBUSEXP'.
l_object-objkey = object-key.
MOVE-CORRESPONDING l_object TO l_objheader.
APPEND l_objheader TO objhead.
swc_create_object sofm 'SOFM' space.
swc_set_element l_cont 'NO_DIALOG' 'X'.
swc_set_element l_cont 'DOCUMENTNAME' lv_name.
swc_set_element l_cont 'DOCUMENTTYPE' 'URL'.
swc_set_table   l_cont 'DocumentContent' lt_doc_content.
swc_set_table   l_cont 'DocumentHeader' objhead.
swc_set_element l_cont 'Enjoy' 'X'.
swc_call_method sofm 'Create' l_cont.
swc_get_element l_cont '_Result' sofm.
*swc_set_element container 'Attachments' sofm.
swc_set_element container 'SOFM' sofm.
swc_set_element container 'WD_URL' lv_url.
DATA : lv_document_id_1 TYPE sofmk.
*       SOFM_KEY         TYPE SWOTOBJID-OBJKEY.
DATA : BEGIN OF sofm_key,
        foldertype    TYPE sofm-foltp,
        folderyear    TYPE sofm-folyr,
        foldernumber  TYPE sofm-folno,
        type          TYPE sofm-doctp,
        year          TYPE sofm-docyr,
        number        TYPE sofm-docno,
        forwardername TYPE soub-usrnam,
        END OF sofm_key.
*  Note Creation in WI
DATA: folder_id TYPE sofdk,
       lt_objcont TYPE STANDARD TABLE OF soli,
       ls_objcont TYPE soli,
       l_obj_data TYPE sood1,
       l_obj_id TYPE soodk,
       document_id TYPE sofmk,
       lv_ep_note  TYPE borident-objkey,
       ls_note     TYPE borident,
       lt_objhead TYPE STANDARD TABLE OF soli,
       i_sofd TYPE sofd.
swc_get_object_key sofm sofm_key.
CLEAR : lw_parameters, lt_parameters.
lw_parameters-name = 'Claim_no'.
lw_parameters-value = object-key-claim_num.
APPEND lw_parameters TO lt_parameters.
CLEAR lw_parameters.
lw_parameters-name = 'REQUESTOR_ID'.
lw_parameters-value = requestor_id.
APPEND lw_parameters TO lt_parameters.
CLEAR lw_parameters.
lv_app_name = 'ZPRINT_WORKFLOW_NON_TRAVEL'.
* CREATE URL OF WD APPLICATION
CALL METHOD cl_wd_utilities=>construct_wd_url
   EXPORTING
     application_name = lv_app_name
     in_host          = lv_host
     in_port          = lv_port
     in_protocol      = lv_out_protocol
     in_parameters    = lt_parameters
     namespace        = 'SAP'
   IMPORTING
     out_absolute_url = lv_url.
* ATTACH TO WORKITEM
DATA : lv_folder_id TYPE sofdk,
        ls_claim     TYPE zclaimovr,
        ls_sofd      TYPE sofd,
        ls_obj_data  TYPE sood1,
        lv_obj_id    TYPE soodk,
        lv_document_id TYPE sofmk,
        lw_objcont   LIKE LINE OF lt_objcont.
CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
   EXPORTING
*   OWNER                 = ' '
     region                = 'Q'
   IMPORTING
     folder_id             = lv_folder_id
   EXCEPTIONS
     communication_failure = 1
     owner_not_exist       = 2
     system_failure        = 3
     x_error               = 4.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SELECT SINGLE * FROM sofd
   INTO ls_sofd
  WHERE foltp EQ lv_folder_id-foltp
    AND folyr EQ lv_folder_id-folyr
    AND folno EQ lv_folder_id-folno.
IF sy-subrc EQ 0.
   ls_sofd-partp = 'URL'.
   MODIFY sofd FROM ls_sofd.
   IF sy-subrc = 0.
     COMMIT WORK.
   ELSEIF sy-subrc <> 0.
     ROLLBACK WORK.
   ENDIF.
ENDIF.
CLEAR : lt_objcont, lw_objcont.
CONCATENATE '&KEY&' lv_url INTO lw_objcont.
APPEND lw_objcont TO lt_objcont.
ls_obj_data-objnam = 'FORM'.
*ls_obj_data-objdes = 'Non Travel Expense Form'.  ">>Vishal 14.05.14
CONCATENATE  'Business Expense Claim' claim_no
INTO ls_obj_data-objdes SEPARATED BY space.
*ls_obj_data-objdes =  'Business Expense Claim No:' .   ">>Vishal 14.05.14
CALL FUNCTION 'SO_OBJECT_INSERT'
   EXPORTING
     folder_id        = lv_folder_id
*   OBJECT_FL_CHANGE = ' '
     object_hd_change = ls_obj_data
     object_type      = 'URL'
   IMPORTING
     object_id        = lv_obj_id
   TABLES
     objcont          = lt_objcont
     objhead          = lt_objhead.
IF sy-subrc = 0.
*  document_id-foltp = folder_id-foltp.
*  document_id-folyr = folder_id-folyr.
*  document_id-folno = folder_id-folno.
   lv_document_id-foltp = lv_folder_id-foltp.
   lv_document_id-folyr = lv_folder_id-folyr.
   lv_document_id-folno = lv_folder_id-folno.
   lv_document_id-doctp = lv_obj_id-objtp.
   lv_document_id-docyr = lv_obj_id-objyr.
   lv_document_id-docno = lv_obj_id-objno.
   lv_ep_note        = lv_document_id.
   ls_note-objtype   = 'MESSAGE'.
   ls_note-objkey    = lv_ep_note.
ENDIF.
CALL FUNCTION 'SWL_WI_NOTE_CREATE'
   EXPORTING
     wi_id     = workitemid
     note      = lv_document_id
     do_commit = 'X'.
Thank you!
Saquib Khan

Answer 1

Hi Rick ,
The Problem is we are sending Expense Request with Attachment containing the details for the expense , for Approval .in the manager's Worklist (UWL) .
Now the issue we are facing is that Whenever a new Expense is sent to the manager for approval it overrides the previous all attachments of the previous expenses with the Latest one(current one) .
Kindly help to resolve this issue .
Regards~
Saquib