Attachment in Travel Request

Question

Hi experts,
PFA.  How can I include the browsed atachment into the work item.
Please suggest a way. Right now I am using Using Workflow Programming Exit for Travel Expense Approval Workflow: Copy attachments of travel expense attachments to workitem
But this attachment is not coming into the approver's worklist.
Thanks,
Saquib

Answer 1

Hi Ibrahim,
In an activity step the below code; I think is responsible for sending mail because other than this no mail trigrring activity is used. I am not sure because when the FM 'SO_NEW_DOCUMENT_ATT_SEND_API1' is commented then also mail is trigerring.
Pl. refer code and guide me:
begin_method zswxgetpersrespcc changing container.
DATA:
pernr TYPE bapiempl-pernr,
trip TYPE bapitrip-tripno,
zauto_appr TYPE ztrv_autoapp-auto_appr,
actortab LIKE swhactor OCCURS 0,
accontainer LIKE swcont OCCURS 0,
tripactivitytype TYPE ftpt_req_head-activity_type,
appr_status TYPE antrg,
result_tab LIKE swhactor OCCURS 0 WITH HEADER LINE,
selftravel TYPE ptrv_head-hrgio,
app_lvl    TYPE ptrv_head-st_trg_typ,
selfbudgetholder TYPE  bapitrip-reportflag,
costcenter TYPE bapitrvcot-costcenter,
wbs TYPE bapitrvcot-wbs_elemt,
exit_flag TYPE char1.
swc_get_element container 'Pernr' pernr.
swc_get_element container 'Trip' trip.
swc_get_table container 'ActorTab' actortab.
swc_get_table container 'AcContainer' accontainer.
swc_get_element container 'APP_LVL' app_lvl.
swc_get_element container 'WBS' wbs.
swc_get_element container 'CostCenter' costcenter.
*** Code for Checking of Self Approval - KZTKT
****       TRIPACTIVITYTYPE TYPE FTPT_REQ_HEAD-ACTIVITY_TYPE,
SELECT SINGLE activity_type FROM ftpt_req_head INTO tripactivitytype
WHERE pernr = pernr
AND   reinr = trip.
CHECK sy-subrc = 0.
swc_set_element container 'TripActivityType' tripactivitytype.
* Business Travel-International / Training Travel-International
* / Team Building Travel
IF tripactivitytype NE 'B'
AND tripactivitytype NE 'K'
AND tripactivitytype NE 'I'.
* Single level approver
app_lvl = 3. "Final approver
ENDIF.
*SELECT SINGLE kostl FROM ftpt_req_account INTO costcenter
*  WHERE pernr = pernr
*  AND   reinr = trip.
*CHECK sy-subrc = 0.
*swc_set_element container 'CostCenter' costcenter.
SELECT SINGLE hrgio FROM ptrv_head INTO selftravel
WHERE pernr = pernr
AND   reinr = trip.
CHECK sy-subrc = 0.
swc_set_element container 'SelfTravel' selftravel.
SELECT SINGLE auto_appr FROM ztrv_autoapp INTO  zauto_appr
WHERE pernr = pernr  AND
plan_activity_ty =  tripactivitytype .
IF selftravel = ' ' AND  zauto_appr = 'X'.
* Single level approver
app_lvl = 3. "Final approver
selfbudgetholder = 'X'.
exit_flag = 'X'.
CALL FUNCTION 'BAPI_TRIP_APPROVE'
EXPORTING
employeenumber = pernr
tripnumber     = trip
periodnumber   = '000'
IMPORTING
*     RETURN         =
status_new     = appr_status.
DATA:   reimbtyp TYPE zhrcr_approver-reimb_typ,
apprvllvl TYPE zhrcr_approver-apprvl_lvl,
return LIKE bapiret2,
agent LIKE zess_agent OCCURS 0.
swc_get_element container 'Pernr' pernr.
swc_get_element container 'ReimbTyp' reimbtyp.
swc_get_element container 'ApprvlLvl' apprvllvl.
IF sy-subrc <> 0.
MOVE 1 TO apprvllvl.
ENDIF.
MOVE 'TVDS' TO reimbtyp.
swc_get_table container 'Agent' agent.
CALL FUNCTION 'ZESS_GET_APPROVER'
EXPORTING
pernr      = pernr
reimb_typ  = reimbtyp
apprvl_lvl = apprvllvl
IMPORTING
return     = return
TABLES
agent      = agent
EXCEPTIONS
OTHERS     = 01.
CASE sy-subrc.
WHEN 0.            " OK
WHEN OTHERS.       " to be implemented
ENDCASE.
DATA: iemployeenumber   TYPE bapiempl-pernr,
itripnumber       TYPE bapitrip-tripno,
iperiodnumber     TYPE bapitrvxxx-period,
is_request        TYPE ftpt_request-plan_request,
*      AGENT            TYPE TABLE OF ZESS_AGENT ,
wa_agent   LIKE LINE OF agent,
sent_to_all       TYPE sonv-flag,
et_return         TYPE bapirettab,
mailtext          TYPE solisti1-line OCCURS 0 WITH HEADER LINE.
*---TEMP DATA DEC
DATA: objpack LIKE sopcklsti1 OCCURS  2 WITH HEADER LINE,
objhead LIKE solisti1   OCCURS  1 WITH HEADER LINE,
objbin  LIKE solisti1   OCCURS 10 WITH HEADER LINE,
objtxt  LIKE solisti1   OCCURS 10 WITH HEADER LINE,
e_pdf_form TYPE fpcontent,
text       TYPE solisti1-line,
zusrid     TYPE pa0105-usrid,
zagent(14) TYPE c,
somlreci1  TYPE STANDARD TABLE OF somlreci1 WITH HEADER LINE,
lines      LIKE sy-tabix,
document_data    LIKE sodocchgi1,
travelername     TYPE pa0001-ename.
swc_get_element container 'IEmployeenumber' iemployeenumber.
swc_get_element container 'ITripnumber'     itripnumber.
swc_get_element container 'IPeriodnumber'   iperiodnumber.
swc_get_element container 'is_request'      is_request.
swc_get_table   container 'Mailtext'        mailtext.
MOVE '000' TO iperiodnumber.
MOVE 'R' TO is_request.
CALL FUNCTION 'PTRM_WEB_FORM_PDF_GET'
EXPORTING
i_employeenumber   = pernr
i_tripnumber       = trip
i_periodnumber     = iperiodnumber
i_trip_component   = is_request
i_trip_data_source = 'DB'
i_display_form     = space
i_language         = sy-langu
IMPORTING
e_pdf_form         = e_pdf_form
TABLES
et_return          = et_return
EXCEPTIONS
OTHERS             = 01.
IF sy-subrc <>  0.
swc_set_element container 'ET_RETURN' et_return.
ELSE.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer          = e_pdf_form
append_to_table = ' '
TABLES
binary_tab      = objbin.
CALL FUNCTION 'CATS_PERNR_NAME'
EXPORTING
beg  = sy-datum
pnr  = pernr
IMPORTING
name = travelername.
IF is_request = 'R'.
CONCATENATE 'Travel request ' trip 'of' travelername
INTO text SEPARATED BY ' ' .
ELSE.
CONCATENATE 'Travel expense ' trip 'of' travelername
INTO text SEPARATED BY ' '.
ENDIF.
SELECT  SINGLE usrid FROM pa0105 INTO zusrid WHERE usrty = '0001' AND
pernr = pernr.
CONCATENATE 'US' zusrid INTO zagent.
wa_agent-agent = zagent.
APPEND wa_agent TO agent.
*Read agents
LOOP AT agent INTO wa_agent.
somlreci1-receiver = wa_agent-agent.
somlreci1-rec_type = 'G'.
APPEND somlreci1.
ENDLOOP.
LOOP AT mailtext.
objtxt = mailtext.
APPEND objtxt.
ENDLOOP.
CLEAR: objtxt.
APPEND objtxt.
objtxt = 'This is an SAP generated message.Please do not reply'.
APPEND objtxt.
DESCRIBE TABLE objtxt LINES lines.
document_data-obj_name = 'Travel'.
document_data-obj_descr = text.
document_data-obj_langu = sy-langu.
document_data-doc_size = ( lines ).
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = lines.
objpack-doc_type   = 'RAW'.
APPEND objpack.
CLEAR lines.
DESCRIBE TABLE objbin LINES lines.
CONCATENATE text '.pdf' INTO objhead . APPEND objhead.
*   Creating the entry for the compres
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 1.
objpack-body_start = 1.
objpack-body_num   = lines.
objpack-doc_type   = 'pdf'.
objpack-obj_name   = 'ATTACHMENT'.
objpack-obj_descr = text.
objpack-doc_size   = lines * 255.
APPEND objpack.
CHECK somlreci1[] IS NOT INITIAL.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data              = document_data
put_in_outbox              = ' '
commit_work                = 'X'
IMPORTING
sent_to_all                = sent_to_all
*       NEW_OBJECT_ID              =
TABLES
packing_list               = objpack
object_header              = objhead
contents_bin               = objbin
contents_txt               = objtxt
*       CONTENTS_HEX               =
*       OBJECT_PARA                =
*       OBJECT_PARB                =
receivers                  = somlreci1
EXCEPTIONS
too_many_receivers         = 1
document_not_sent          = 2
document_type_not_exist    = 3
operation_no_authorization = 4
parameter_error            = 5
x_error                    = 6
enqueue_error              = 7
OTHERS                     = 8.
swc_set_element container 'SENT_TO_ALL' sent_to_all.
ENDIF.
* END OF PGM FOR AUTO APPROVAL & SENDING MAILS TO TRAVEL DESK.
ELSE.
CALL FUNCTION 'ZTR_GET_PERS_RESP_CC'   "'ZSWX_GET_PERS_RESP_CC'
EXPORTING
pernr            = pernr
trip             = trip
*    IMPORTING
*      selfbudgetholder = selfbudgetholder
TABLES
actor_tab        = actortab
ac_container     = accontainer
EXCEPTIONS
nobody_found     = 9001"Amit_Error_exception never get raised 10.02.09
OTHERS           = 01.
CASE sy-subrc.
WHEN 0.            " OK
WHEN 9001.         " NOBODY_FOUND
exit_return 9001 sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
WHEN OTHERS.       " to be implemented
ENDCASE.
ENDIF.
*---AMIT>10.02.09 ERROR HANDELING WHEN COST OBJ USER RESP NOT FOUND
*IF ACTORTAB[] IS INITIAL.
* EXIT_RETURN 9001 'No ' 'agent ' 'found' '!!!'.
*ENDIF.
*---AMIT<10.02.09 ERROR HANDELING WHEN COST OBJ USER RESP NOT FOUND
swc_set_table container 'ActorTab' actortab.
swc_set_table container 'AcContainer' accontainer.
swc_set_element container 'SELFBUDGETHOLDER' selfbudgetholder.
swc_set_element container 'APP_LVL' app_lvl.
swc_set_element container 'WBS' wbs.
swc_set_element container 'CostCenter' costcenter.
swc_set_element container 'EXIT_FLAG' exit_flag.
end_method.