Workflow email PDF attachment

Question

All,
I'm using the following code in a zprogram/FM that will be called in a method to create an attachment to the workflow and then send the attachment through mail. But this is not working.
1) I trigger the wf thru idoc posting - works fine
2) The image is read successfully in the xstring format
3) When the background step is called that in turn calls this FM and supplies the WID of the wf (not the task), no image gets attached. But if i supply the wid of the wf directly and execute this FM in foreground, it attaches. in the background it gives this error "unable to attach the document"
4) in the next mailing step, I've bound the attachments container element  = mail step's container element. The mail also doesnt come with the attachments.
Please help.
Thanks,
Sam
Edited by: Rock on Jul 21, 2009 1:26 AM

Answer 1

REPORT  ysam_im_test_wf.
INCLUDE <cntn01>.
TYPE-POOLS: swlc.
INCLUDE <symbol>.
DATA :
lv_header TYPE swr_att_header,
lv_objsofm TYPE swotobjid-objtype,
lv_objtkey TYPE swotobjid-objkey.
* ls_fitment TYPE r_fitment_mstr,
DATA : lv_xstring TYPE xstring,
att_id TYPE swr_att_id,
lv_return TYPE sy-subrc.
DATA : bo_sofm TYPE swc_object .
DATA:  l_docwrapper1 TYPE xstring,
       l_existence(1) TYPE c.
DATA: t_message_lines TYPE swr_messag OCCURS 0 WITH HEADER LINE.
PARAMETERS: p_wid TYPE swr_struct-workitemid.
START-OF-SELECTION .
  CALL FUNCTION 'ZGEN_IMAGE_DATA_GET'
    EXPORTING
      i_zuonr              = '100028'
    IMPORTING
      l_docwrapper1        = l_docwrapper1
      existence            = l_existence
    EXCEPTIONS
      service_call_error   = 1
      file_download_error  = 2
      browser_invoke_error = 3
      OTHERS               = 4.
  lv_xstring = l_docwrapper1.
  IF lv_xstring IS NOT INITIAL.
    UPDATE tvarv SET low = 'XSTRING'
    WHERE name = 'ZSAMTEST1'.
    lv_header-file_type = 'B'.
    lv_header-file_name = 'Invoice Attachment'.
    lv_header-file_extension = 'PDF'.
    lv_header-language = 'EN'.
    CALL FUNCTION 'SAP_WAPI_ATTACHMENT_ADD'
      EXPORTING
        workitem_id    = p_wid
        att_header     = lv_header
        att_bin        = lv_xstring
      IMPORTING
        return_code    = lv_return
        att_id         = att_id
      TABLES
        message_lines  = t_message_lines.
    IF lv_return = 0.
      lv_objtkey = att_id-doc_id.
      lv_objsofm = 'SOFM'.
      swc_create_object bo_sofm lv_objsofm lv_objtkey.
    ENDIF. " IF lv_return = 0
  ELSE.
    att_id = 0.
    lv_objtkey = att_id-doc_id.
    swc_create_object bo_sofm lv_objsofm lv_objtkey.
  ENDIF.