This is regarding appaisal document.

Question

Hi
This question is regarding Appraisal document. On clicking a pushbutton in portal, a new outlook compose email should popup with Subject line and PDF attachment populated in the email fields. Once it gets popup with these things populated then the user can send it to who ever he wants by typing the recepient in the TO section of the email.
We were suggested to implement a BADI to this. The name of the defination is HRHAP00_LINK. There is a method called show_link. Inside this method we have pasted the below code.
  METHOD if_ex_hrhap00_link~show_link.
  DATA : lw_header_appraiser TYPE hap_s_header_appraiser,
         lw_header_appraisee TYPE hap_s_header_appraisee,
         lt_header_appraisee TYPE hap_t_header_appraisee,
         lw_header_others TYPE hap_s_header_others.
  DATA : name TYPE text40.
*Check if appraiser then only mail window gets trigger with icon.
  READ TABLE  t_header_appraiser INTO lw_header_appraiser INDEX 1.
  IF sy-subrc = 0.
*To get appraisee name
    CALL FUNCTION 'HRHAP_DOCUMENT_GET_DETAIL'
     EXPORTING
    ADD_ON_APPLICATION            =
    MODE                          = ' '
    UI_MODE                       = ' '
        plan_version                  = plan_version
        s_appraisal_id                = s_appraisal_id
     IMPORTING
       t_header_appraisee            = lt_header_appraisee
    DATA : s_pdf_document TYPE hap_s_pdf_document,
           pdf_xstring    TYPE fpcontent,
           t_output       TYPE tsfixml,
           output_length  TYPE i,
           pdf_content    TYPE solix_tab,
           lp_pdf_size        TYPE so_obj_len,
           document           TYPE REF TO cl_document_bcs,
           send_request       TYPE REF TO cl_bcs.
          S_RETURN       TYPE BAL_S_MSG.
    s_pdf_document-s_appraisal_id-appraisal_id = s_appraisal_id.
    DATA: test TYPE REF TO cl_im_hrhap00_offline01.
    CREATE OBJECT test.
    CALL METHOD test->if_ex_hrhap00_offline~download
      EXPORTING
        flt_val        = 'STANDARD'
        s_pdf_document = s_pdf_document
      IMPORTING
        t_output       = t_output
        pdf_xstring    = pdf_xstring
        output_length  = output_length
        s_return       = S_RETURN
    IF sy-subrc = 0.
    ENDIF.
   send_request = cl_bcs=>create_persistent( ).
  get PDF xstring and convert it to BCS format
    lp_pdf_size = XSTRLEN( pdf_xstring ).
    pdf_content = cl_document_bcs=>xstring_to_solix(
    ip_xstring = pdf_xstring ).
    document = cl_document_bcs=>create_document(
          i_type    = 'PDF'
          i_hex     = pdf_content
          i_length  = lp_pdf_size
          i_subject = 'test created to send mail' ).
  add document to send request
    send_request->set_document( document ).
LOOP AT lt_header_appraisee INTO lw_header_appraisee.
      name = lw_header_appraisee-name.
Function module to get a new outlook mail window
Attachment cannot be exported without path
      CALL FUNCTION 'ZS_REFLEX_REVIEWER'
        EXPORTING
          appraisee_name = name
          attachment     = 'D:\Documents and Settings\id823291\Desktop\test.txt'.     "c:\temp\test.txt' "c:\temp|test.txt is only for test
    ENDLOOP.
  ENDIF.
COMMIT WORK.
  READ TABLE  t_header_appraisee INTO lw_header_appraisee INDEX 1.
  IF sy-subrc = 0.
    EXIT.
  ENDIF.
  READ TABLE t_header_others INTO lw_header_others INDEX 1.
  IF sy-subrc = 0.
    EXIT.
  ENDIF.
ENDMETHOD.
In the Z FM the code is as follows :
  FUNCTION ZS_REFLEX_REVIEWER.
""Local Interface:
*"  IMPORTING
*"     VALUE(APPRAISEE_NAME) TYPE  TEXT40
*"     VALUE(ATTACHMENT) TYPE  TEXT_72
INCLUDE : OLE2INCL.
DATA: OUT      TYPE  OLE2_OBJECT,
      OUTMAIL  TYPE  OLE2_OBJECT,
      DESTI    TYPE  OLE2_OBJECT,
      ATT      TYPE  OLE2_OBJECT,
      ATTS     TYPE  OLE2_OBJECT.
DATA : Name1 type text40,
      Name2 type text40,
      subject type string.
Name1 = 'Evaluation input requested for'.
Name2 = APPRAISEE_NAME.
Concatenate Name1 Name2 into subject separated by ' '.
CREATE OBJECT OUT 'Outlook.Application'.
CALL METHOD OF OUT 'CREATEITEM' = OUTMAIL  EXPORTING #1 = 0.
SET PROPERTY OF OUTMAIL 'SUBJECT' = subject.
CALL METHOD OF OUTMAIL 'RECIPIENTS' = DESTI.
CALL METHOD OF OUTMAIL 'ATTACHMENTS' = ATTS.
CALL METHOD OF ATTS 'ADD' EXPORTING #1 = ATTACHMENT .
CALL METHOD OF OUTMAIL 'DISPLAY'.
free object out.
CLEAR : Name1,Name2,subject,APPRAISEE_NAME.
ENDFUNCTION.
Earlier we thought that the PDF would be stored in a link but now we are informed that it would be generated at Runtime.
Please let me know how to proceed.
Thanks
sandeep

Answer 1

Hi
This question is regarding Appraisal document. On clicking a pushbutton in portal, a new outlook compose email should popup with Subject line and PDF attachment populated in the email fields. Once it gets popup with these things populated then the user can send it to who ever he wants by typing the recepient in the TO section of the email.
We were suggested to implement a BADI to this. The name of the defination is HRHAP00_LINK. There is a method called show_link. Inside this method we have pasted the below code.
  METHOD if_ex_hrhap00_link~show_link.
  DATA : lw_header_appraiser TYPE hap_s_header_appraiser,
         lw_header_appraisee TYPE hap_s_header_appraisee,
         lt_header_appraisee TYPE hap_t_header_appraisee,
         lw_header_others TYPE hap_s_header_others.
  DATA : name TYPE text40.
*Check if appraiser then only mail window gets trigger with icon.
  READ TABLE  t_header_appraiser INTO lw_header_appraiser INDEX 1.
  IF sy-subrc = 0.
*To get appraisee name
    CALL FUNCTION 'HRHAP_DOCUMENT_GET_DETAIL'
     EXPORTING
    ADD_ON_APPLICATION            =
    MODE                          = ' '
    UI_MODE                       = ' '
        plan_version                  = plan_version
        s_appraisal_id                = s_appraisal_id
     IMPORTING
       t_header_appraisee            = lt_header_appraisee
    DATA : s_pdf_document TYPE hap_s_pdf_document,
           pdf_xstring    TYPE fpcontent,
           t_output       TYPE tsfixml,
           output_length  TYPE i,
           pdf_content    TYPE solix_tab,
           lp_pdf_size        TYPE so_obj_len,
           document           TYPE REF TO cl_document_bcs,
           send_request       TYPE REF TO cl_bcs.
          S_RETURN       TYPE BAL_S_MSG.
    s_pdf_document-s_appraisal_id-appraisal_id = s_appraisal_id.
    DATA: test TYPE REF TO cl_im_hrhap00_offline01.
    CREATE OBJECT test.
    CALL METHOD test->if_ex_hrhap00_offline~download
      EXPORTING
        flt_val        = 'STANDARD'
        s_pdf_document = s_pdf_document
      IMPORTING
        t_output       = t_output
        pdf_xstring    = pdf_xstring
        output_length  = output_length
        s_return       = S_RETURN
    IF sy-subrc = 0.
    ENDIF.
   send_request = cl_bcs=>create_persistent( ).
  get PDF xstring and convert it to BCS format
    lp_pdf_size = XSTRLEN( pdf_xstring ).
    pdf_content = cl_document_bcs=>xstring_to_solix(
    ip_xstring = pdf_xstring ).
    document = cl_document_bcs=>create_document(
          i_type    = 'PDF'
          i_hex     = pdf_content
          i_length  = lp_pdf_size
          i_subject = 'test created to send mail' ).
  add document to send request
    send_request->set_document( document ).
LOOP AT lt_header_appraisee INTO lw_header_appraisee.
      name = lw_header_appraisee-name.
Function module to get a new outlook mail window
Attachment cannot be exported without path
      CALL FUNCTION 'ZS_REFLEX_REVIEWER'
        EXPORTING
          appraisee_name = name
          attachment     = 'D:\Documents and Settings\id823291\Desktop\test.txt'.     "c:\temp\test.txt' "c:\temp|test.txt is only for test
    ENDLOOP.
  ENDIF.
COMMIT WORK.
  READ TABLE  t_header_appraisee INTO lw_header_appraisee INDEX 1.
  IF sy-subrc = 0.
    EXIT.
  ENDIF.
  READ TABLE t_header_others INTO lw_header_others INDEX 1.
  IF sy-subrc = 0.
    EXIT.
  ENDIF.
ENDMETHOD.
In the Z FM the code is as follows :
  FUNCTION ZS_REFLEX_REVIEWER.
""Local Interface:
*"  IMPORTING
*"     VALUE(APPRAISEE_NAME) TYPE  TEXT40
*"     VALUE(ATTACHMENT) TYPE  TEXT_72
INCLUDE : OLE2INCL.
DATA: OUT      TYPE  OLE2_OBJECT,
      OUTMAIL  TYPE  OLE2_OBJECT,
      DESTI    TYPE  OLE2_OBJECT,
      ATT      TYPE  OLE2_OBJECT,
      ATTS     TYPE  OLE2_OBJECT.
DATA : Name1 type text40,
      Name2 type text40,
      subject type string.
Name1 = 'Evaluation input requested for'.
Name2 = APPRAISEE_NAME.
Concatenate Name1 Name2 into subject separated by ' '.
CREATE OBJECT OUT 'Outlook.Application'.
CALL METHOD OF OUT 'CREATEITEM' = OUTMAIL  EXPORTING #1 = 0.
SET PROPERTY OF OUTMAIL 'SUBJECT' = subject.
CALL METHOD OF OUTMAIL 'RECIPIENTS' = DESTI.
CALL METHOD OF OUTMAIL 'ATTACHMENTS' = ATTS.
CALL METHOD OF ATTS 'ADD' EXPORTING #1 = ATTACHMENT .
CALL METHOD OF OUTMAIL 'DISPLAY'.
free object out.
CLEAR : Name1,Name2,subject,APPRAISEE_NAME.
ENDFUNCTION.
Earlier we thought that the PDF would be stored in a link but now we are informed that it would be generated at Runtime.
Please let me know how to proceed.
Thanks
sandeep