Skip to Content
Author's profile photo Rizvi Saleheen

Employee photo display in adobe forms.

Hi,

I want to show the process to display employee picture in an adobe form report which upload from t-code OAAD.


Step 1: Call FM ‘BAPI_EMPLOYEE_GETDATA’ to get Archive Link ID and Archive Link Document ID.


CALL FUNCTION ‘BAPI_EMPLOYEE_GETDATA’
EXPORTING
employee_id            = p_pernr

   date                  = sy-datum
*   EXTENSION              =
*   READDB                 = FALSE
*   ORGTXT_LG              =
*   JOBTXT_LG              =
*   POSTXT_LG              =
*   AUTHORITY_CHECK        = ‘X’
* IMPORTING
*   RETURN                 =
TABLES
org_assignment         = org_assignment
personal_data          = personal_data
internal_control       = internal_control
communication          = communication
archivelink            = archivelink.

Step 2: User can upload more than one picture so I took the latest one.


SORT archivelink BY ar_date DESCENDING.
READ TABLE archivelink INTO wa_archivelink INDEX 1

Step 3: Call FM ‘SCMS_R3DB_IMPORT’ and pass Archive Link ID and Archive Link Document ID to get binary document contents.

CALL FUNCTION ‘SCMS_R3DB_IMPORT’
EXPORTING
mandt        = sy-mandt
crep_id      = wa_archivelink-archiv_id
doc_id       = wa_archivelink-arc_doc_id
TABLES
content_info = lt_content_info
content_txt  = lt_content_txt
content_bin  = lt_content_bin
EXCEPTIONS
error_import =
1
error_config =
2
OTHERS      = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

 

Step 4: Now call FM ‘SCMS_BINARY_TO_XSTRING’ the XSTRING value.

READ TABLE lt_content_info INTO lw_file_info INDEX 1.

IF sy-subrc IS INITIAL.
l_fl = lw_file_info-first_line.
l_ll = lw_file_info-last_line.
l_fs = lw_file_info-comp_size.

CALL FUNCTION ‘SCMS_BINARY_TO_XSTRING’
EXPORTING
input_length = l_fs
first_line   = l_fl
last_line    = l_ll
IMPORTING
buffer      = l_url
TABLES
binary_tab   = lt_content_bin
EXCEPTIONS
failed       =
1
OTHERS      = 2.

ENDIF.

Step 5: Append your value to the internal table.

Now go to your Adobe forms.

  • Add Graphic in the table.
  • Change the property Graphic Type as Graphic Content.
  • In Field use your XSTRING field.
  • Set MIME Type as ‘JPG/BMP’.

Enjoy,

Rizvi

Assigned tags

      10 Comments
      You must be Logged on to comment or reply to a post.
      Author's profile photo Former Member
      Former Member

      Impressive Findings, it helped me lot to finish my report.

      Thanks

      RAIM

      Author's profile photo Al Ameen
      Al Ameen

      dear

      Not working for me.. photo not displaying in adobeform, please help me

       

      Author's profile photo Shirazul Islam
      Shirazul Islam

      Nice Post..Carry on

      Thanks

      Shirazul

      Author's profile photo Al Ameen
      Al Ameen

      dear

      Not working for me.. photo not displaying in adobe form, please help me

       

      Author's profile photo Former Member
      Former Member

      Hi, does this work for applicants photos?

      Thanks,

      Eva

      Author's profile photo Rizvi Saleheen
      Rizvi Saleheen
      Blog Post Author

      Yes. I create this for applicants photo.

      Author's profile photo Former Member
      Former Member

      This is not working for me..Kindly help me

      What are the variable to be declare?

      Author's profile photo Rizvi Saleheen
      Rizvi Saleheen
      Blog Post Author

      For archivelink

      archivelink TYPE STANDARD TABLE OF  bapitoav0

      Author's profile photo Al Ameen
      Al Ameen

      HI,

      I declare same as what you display,.,.

       

      archivelink TYPE STANDARD TABLE OF  bapitoav0

       

      even though photo not display.. please check below my code..

      -----------------------------------------------


      SPAN {
      font-family: "Courier New";
      font-size: 10pt;
      color: #000000;
      background: #FFFFFF;
      }
      .L0S31 {
      font-style: italic;
      color: #808080;
      }
      .L0S32 {
      color: #3399FF;
      }
      .L0S33 {
      color: #4DA619;
      }
      .L0S52 {
      color: #0000FF;
      }
      .L0S55 {
      color: #800080;
      }
      .L0S70 {
      color: #808080;
      }
      REPORT  yal_bring_img_frm_pa30_adobefm.

      *TYPES: BEGIN OF ty_emp,
      *        pernr   TYPE persno,
      *        name    TYPE emnam,
      *       END OF ty_emp.

      DATAit_emp            TYPE                    yal_image1,
      wa_emp            TYPE                    yal_image.

      DATAorg_assignment    TYPE STANDARD TABLE OF  bapip0001b,
      personal_data     TYPE STANDARD TABLE OF  bapip0002b,
      internal_control  TYPE STANDARD TABLE OF  bapip0032b,
      communication     TYPE STANDARD TABLE OF  bapip0105b,
      archivelink       TYPE STANDARD TABLE OF  bapitoav0,
      wa_archivelink    TYPE                    bapitoav0,
      wa_org_assign     TYPE                    bapip0001b.

      DATAlt_content_info   TYPE STANDARD TABLE OF  scms_acinf,
      lt_content_txt    TYPE STANDARD TABLE OF  sdokcntasc,
      lt_content_bin    TYPE STANDARD TABLE OF  sdokcntbin,
      lw_file_info      TYPE                    scms_acinf.

      DATAl_fl              TYPE i,
      l_ll              TYPE i,
      l_fs              TYPE i,
      l_url             TYPE XSTRING.
      *      l_url1             TYPE zXSTRING     .

      *Adobe paramters
      DATAfp_docparams      TYPE sfpdocparams,
      fp_outputparams   TYPE sfpoutputparams,
      error_string      TYPE string,
      lv_form_name      TYPE fpname,
      fm_name           TYPE rs38l_fnam.

      SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
      PARAMETERSp_pernr TYPE persno.
      SELECTION-SCREEN END OF BLOCK b1.

      AT SELECTION-SCREEN.
      PERFORM f_get_data.
      PERFORM f_call_form.
      *&---------------------------------------------------------------------*
      *&      Form  F_GET_DATA
      *&---------------------------------------------------------------------*
      *       text
      *----------------------------------------------------------------------*
      *  -->  p1        text
      *  <--  p2        text
      *----------------------------------------------------------------------*
      FORM f_get_data .
      CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
      EXPORTING
      employee_id            p_pernr

      date                   sy-datum
      *   EXTENSION              =
      *   READDB                 = FALSE
      *   ORGTXT_LG              =
      *   JOBTXT_LG              =
      *   POSTXT_LG              =
      *   AUTHORITY_CHECK        = 'X'
      * IMPORTING
      *   RETURN                 =
      TABLES
      org_assignment         org_assignment
      personal_data          personal_data
      internal_control       internal_control
      communication          communication
      archivelink            archivelink.

      *step 2: user can upload more than one picture so i took the latest one.

      SORT archivelink BY ar_date DESCENDING.
      READ TABLE archivelink INTO wa_archivelink INDEX 1.

      *Step 3: Call FM 'SCMS_R3DB_IMPORT' and pass Archive Link ID and Archive Link Document ID to get binary document contents.

      CALL FUNCTION 'SCMS_R3DB_IMPORT'
      EXPORTING
      mandt        sy-mandt
      crep_id      wa_archivelink-archiv_id
      doc_id       wa_archivelink-arc_doc_id
      TABLES
      content_info lt_content_info
      content_txt  lt_content_txt
      content_bin  lt_content_bin
      EXCEPTIONS
      error_import 1
      error_config 2
      OTHERS       3.
      IF sy-subrc <> 0.
      *    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      *            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

      *Step 4: Now call FM 'SCMS_BINARY_TO_XSTRING' the XSTRING value.

      READ TABLE lt_content_info INTO lw_file_info INDEX 1.

      IF sy-subrc IS INITIAL.
      l_fl lw_file_info-first_line.
      l_ll lw_file_info-last_line.
      l_fs lw_file_info-comp_size.

      CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
      EXPORTING
      input_length l_fs
      first_line   l_fl
      last_line    l_fl
      IMPORTING
      buffer       l_url
      TABLES
      binary_tab   lt_content_bin
      EXCEPTIONS
      failed       1
      OTHERS       2.

      ENDIF.

      READ TABLE org_assignment INTO wa_org_assign
      WITH KEY perno p_pernr.
      IF sy-subrc 0.
      wa_emp-pernr p_pernr.
      wa_emp-name  wa_org_assign-name.
      APPEND wa_emp TO it_emp.
      ENDIF.
      ENDFORM.                    " F_GET_DATA
      *&---------------------------------------------------------------------*
      *&      Form  F_CALL_FORM
      *&---------------------------------------------------------------------*
      *       text
      *----------------------------------------------------------------------*
      *  -->  p1        text
      *  <--  p2        text
      *----------------------------------------------------------------------*
      FORM f_call_form .
      CALL FUNCTION 'FP_JOB_OPEN'
      CHANGING
      ie_outputparams fp_outputparams
      EXCEPTIONS
      cancel          1
      usage_error     2
      system_error    3
      internal_error  4
      OTHERS          5.
      IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

      lv_form_name 'YAL_IMAGE'.

      CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
      EXPORTING
      i_name     lv_form_name
      IMPORTING
      e_funcname fm_name.
      *   E_INTERFACE_TYPE           =
      *   EV_FUNCNAME_INBOUND        =

      * Set output parameters and open spool job
      fp_outputparams-preview    'X'.    " launch print preview
      fp_docparams-langu   'E'.
      fp_docparams-country 'US'.
      *fp_docparams-fillable = 'X'.

      * Generated function module
      CALL FUNCTION fm_name
      EXPORTING
      /1bcdwb/docparams        fp_docparams
      lv_emp_photo             l_url
      it_emp                   it_emp
      *   IMPORTING
      *     /1BCDWB/FORMOUTPUT       =
      EXCEPTIONS
      usage_error              1
      system_error             2
      internal_error           3
      OTHERS                   4
      .
      IF sy-subrc <> 0.
      * Implement suitable error handling here
      ENDIF.

      * Close spool job
      *call function 'FP_JOB_CLOSE'.
      CALL FUNCTION 'FP_JOB_CLOSE'
      EXCEPTIONS
      usage_error    1
      system_error   2
      internal_error 3
      OTHERS         4.
      IF sy-subrc <> 0.
      * Implement suitable error handling here
      ENDIF.

      ENDFORM.                    " F_CALL_FORM

      ------------------------------------------------

      Author's profile photo Al Ameen
      Al Ameen

      Dear All,

       

      Please help me to solve the issue, i did same what mentioned up, but still photo not displaying in adobe form.. please check below my code...


      REPORT  yal_bring_img_frm_pa30_adobefm.

      *TYPES: BEGIN OF ty_emp,
      *        pernr   TYPE persno,
      *        name    TYPE emnam,
      *       END OF ty_emp.

      DATAit_emp            TYPE                    yal_image1,
      wa_emp            TYPE                    yal_image.

      DATAorg_assignment    TYPE STANDARD TABLE OF  bapip0001b,
      personal_data     TYPE STANDARD TABLE OF  bapip0002b,
      internal_control  TYPE STANDARD TABLE OF  bapip0032b,
      communication     TYPE STANDARD TABLE OF  bapip0105b,
      archivelink       TYPE STANDARD TABLE OF  bapitoav0,
      wa_archivelink    TYPE                    bapitoav0,
      wa_org_assign     TYPE                    bapip0001b.

      DATAlt_content_info   TYPE STANDARD TABLE OF  scms_acinf,
      lt_content_txt    TYPE STANDARD TABLE OF  sdokcntasc,
      lt_content_bin    TYPE STANDARD TABLE OF  sdokcntbin,
      lw_file_info      TYPE                    scms_acinf.

      DATAl_fl              TYPE i,
      l_ll              TYPE i,
      l_fs              TYPE i,
      l_url             TYPE XSTRING.
      *      l_url1             TYPE zXSTRING     .

      *Adobe paramters
      DATAfp_docparams      TYPE sfpdocparams,
      fp_outputparams   TYPE sfpoutputparams,
      error_string      TYPE string,
      lv_form_name      TYPE fpname,
      fm_name           TYPE rs38l_fnam.

      SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
      PARAMETERSp_pernr TYPE persno.
      SELECTION-SCREEN END OF BLOCK b1.

      AT SELECTION-SCREEN.
      PERFORM f_get_data.
      PERFORM f_call_form.
      *&---------------------------------------------------------------------*
      *&      Form  F_GET_DATA
      *&---------------------------------------------------------------------*
      *       text
      *----------------------------------------------------------------------*
      *  -->  p1        text
      *  <--  p2        text
      *----------------------------------------------------------------------*
      FORM f_get_data .
      CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
      EXPORTING
      employee_id            p_pernr

      date                   sy-datum
      *   EXTENSION              =
      *   READDB                 = FALSE
      *   ORGTXT_LG              =
      *   JOBTXT_LG              =
      *   POSTXT_LG              =
      *   AUTHORITY_CHECK        = 'X'
      * IMPORTING
      *   RETURN                 =
      TABLES
      org_assignment         org_assignment
      personal_data          personal_data
      internal_control       internal_control
      communication          communication
      archivelink            archivelink.

      *step 2: user can upload more than one picture so i took the latest one.

      SORT archivelink BY ar_date DESCENDING.
      READ TABLE archivelink INTO wa_archivelink INDEX 1.

      *Step 3: Call FM 'SCMS_R3DB_IMPORT' and pass Archive Link ID and Archive Link Document ID to get binary document contents.

      CALL FUNCTION 'SCMS_R3DB_IMPORT'
      EXPORTING
      mandt        sy-mandt
      crep_id      wa_archivelink-archiv_id
      doc_id       wa_archivelink-arc_doc_id
      TABLES
      content_info lt_content_info
      content_txt  lt_content_txt
      content_bin  lt_content_bin
      EXCEPTIONS
      error_import 1
      error_config 2
      OTHERS       3.
      IF sy-subrc <> 0.
      *    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      *            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

      *Step 4: Now call FM 'SCMS_BINARY_TO_XSTRING' the XSTRING value.

      READ TABLE lt_content_info INTO lw_file_info INDEX 1.

      IF sy-subrc IS INITIAL.
      l_fl lw_file_info-first_line.
      l_ll lw_file_info-last_line.
      l_fs lw_file_info-comp_size.

      CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
      EXPORTING
      input_length l_fs
      first_line   l_fl
      last_line    l_fl
      IMPORTING
      buffer       l_url
      TABLES
      binary_tab   lt_content_bin
      EXCEPTIONS
      failed       1
      OTHERS       2.

      ENDIF.

      READ TABLE org_assignment INTO wa_org_assign
      WITH KEY perno p_pernr.
      IF sy-subrc 0.
      wa_emp-pernr p_pernr.
      wa_emp-name  wa_org_assign-name.
      APPEND wa_emp TO it_emp.
      ENDIF.
      ENDFORM.                    " F_GET_DATA
      *&---------------------------------------------------------------------*
      *&      Form  F_CALL_FORM
      *&---------------------------------------------------------------------*
      *       text
      *----------------------------------------------------------------------*
      *  -->  p1        text
      *  <--  p2        text
      *----------------------------------------------------------------------*
      FORM f_call_form .
      CALL FUNCTION 'FP_JOB_OPEN'
      CHANGING
      ie_outputparams fp_outputparams
      EXCEPTIONS
      cancel          1
      usage_error     2
      system_error    3
      internal_error  4
      OTHERS          5.
      IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

      lv_form_name 'YAL_IMAGE'.

      CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
      EXPORTING
      i_name     lv_form_name
      IMPORTING
      e_funcname fm_name.
      *   E_INTERFACE_TYPE           =
      *   EV_FUNCNAME_INBOUND        =

      * Set output parameters and open spool job
      fp_outputparams-preview    'X'.    " launch print preview
      fp_docparams-langu   'E'.
      fp_docparams-country 'US'.
      *fp_docparams-fillable = 'X'.

      * Generated function module
      CALL FUNCTION fm_name
      EXPORTING
      /1bcdwb/docparams        fp_docparams
      lv_emp_photo             l_url
      it_emp                   it_emp
      *   IMPORTING
      *     /1BCDWB/FORMOUTPUT       =
      EXCEPTIONS
      usage_error              1
      system_error             2
      internal_error           3
      OTHERS                   4
      .
      IF sy-subrc <> 0.
      * Implement suitable error handling here
      ENDIF.

      * Close spool job
      *call function 'FP_JOB_CLOSE'.
      CALL FUNCTION 'FP_JOB_CLOSE'
      EXCEPTIONS
      usage_error    1
      system_error   2
      internal_error 3
      OTHERS         4.
      IF sy-subrc <> 0.
      * Implement suitable error handling here
      ENDIF.

      ENDFORM.                    " F_CALL_FORM