Hi i am trying to disply image in adobe forms using ABAP, But i can't abl ?

Question

hi friends,
I am using adobe forms to display the VORNA , NACHN and EMPPHOTO.
for this i created an interface with the 3 import parameters like IM_VORNA, IM_NACHN and IM_PHOTO.
Then i desingned the form with this interface.
I dragged the IM_VORNA, IM_NACHN to ADOBE form layout.
And for employee photo i created the IMAGEFILED in layout.
And i setted the imagefield binding property to $record.IM_PHOTO.
To call this ADOBE form i using the ABAP code.
My code is like this......
*& Report  ZHR_EMP_PHOTO1
REPORT  ZHR_EMP_PHOTO1.
TABLES: PA0001, PERSON.
DATA: ITAB_EMPDATA LIKE TABLE OF PERSON,
      ITAB_DATA LIKE TABLE OF PERSON WITH HEADER LINE.
DATA: P_CONNECT_INFO LIKE TABLE OF TOAV0 WITH HEADER LINE,
      P_DOCUMENT_TYPE LIKE TOAV0-RESERVE,
      URL TYPE char255.
DATA: VORNA TYPE VORNA,   "VALUE 'SHANKAR',
      NACHN TYPE NACHN,   "VALUE 'REDDY',
      PATH  TYPE XSTRING,
      TPATH TYPE STRING.
DATA: FM_NAME TYPE FUNCNAME.
DATA: FP_OUTPUTPARAMS TYPE SFPOUTPUTPARAMS,
      FP_DOCPARAMS TYPE SFPDOCPARAMS,
      FP_FORMOUTPUT TYPE FPFORMOUTPUT.
PARAMETERS: PERNR LIKE PERSON-PERNR.
START-OF-SELECTION.
CALL FUNCTION 'HR_GET_EMPLOYEE_DATA'
  EXPORTING
    PERSON_ID = PERNR
    SELECTION_BEGIN = SY-DATUM
    SELECTION_END = SY-DATUM
  IMPORTING
    PERSONAL_DATA = ITAB_DATA
  EXCEPTIONS
    PERSON_NOT_FOUND = 1
    NO_ACTIVE_INTEGRATION = 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.
MOVE ITAB_DATA-VORNA TO VORNA.
MOVE ITAB_DATA-NACHN TO NACHN.
*Function Module To check Existance of Image
CALL FUNCTION 'HR_IMAGE_EXISTS'
  EXPORTING
    P_PERNR = PERNR
  IMPORTING
    P_CONNECT_INFO = P_CONNECT_INFO
  EXCEPTIONS
    OTHERS = 2.
P_DOCUMENT_TYPE = P_CONNECT_INFO-RESERVE.
*Function Module To Get the URL of Image
CALL FUNCTION 'SCMS_DOC_URL_READ'
  EXPORTING
    STOR_CAT = SPACE
    CREP_ID = P_CONNECT_INFO-ARCHIV_ID
    DOC_ID = P_CONNECT_INFO-ARC_DOC_ID
    COMP_ID = 'DATA'
    DP_URL_ONLY = 'X'
  IMPORTING
    URL = URL
  EXCEPTIONS
    OTHERS = 10.
  IF SY-SUBRC <> 0.
  ENDIF.
MOVE url TO tpath.
CALL FUNCTION 'HR_KR_STRING_TO_XSTRING'
  EXPORTING
*   CODEPAGE_TO            = '8500'
    unicode_string         = tpath
*   OUT_LEN                =
IMPORTING
   XSTRING_STREAM         = path
EXCEPTIONS
   INVALID_CODEPAGE       = 1
   INVALID_STRING         = 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.
CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
  EXPORTING
    I_NAME                    = 'ZHRIN_EMP_PHOTO'
IMPORTING
   E_FUNCNAME                 = FM_NAME
*   E_INTERFACE_TYPE           =
*WRITE: fm_name.
*/1BCDWB/SM00000204
*SAPR3://SAPR3CMS/get/520/Z2/4907DEB34A170115E10080000A8C6728/DATA
*MOVE 'SAPR3://SAPR3CMS/get/520/Z2/4907DEB34A170115E10080000A8C6728/DATA' TO PATH.
FP_OUTPUTPARAMS-NODIALOG = 'X'.
FP_OUTPUTPARAMS-GETPDF = 'X'.
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.
fp_docparams-langu = 'E'.
fp_docparams-country = 'IN'.
fp_docparams-FILLABLE = ' '.
CALL FUNCTION fm_name
EXPORTING
   /1BCDWB/DOCPARAMS        = fp_docparams
   I_VORNA                  = vorna
   I_NACHN                  = nachn
   I_URL                    = path
IMPORTING
   /1BCDWB/FORMOUTPUT       = fp_formoutput
EXCEPTIONS
   USAGE_ERROR              = 1
   SYSTEM_ERROR             = 2
   INTERNAL_ERROR           = 3
   OTHERS                   = 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.
CALL FUNCTION 'FP_JOB_CLOSE'
* IMPORTING
*   E_RESULT             =
EXCEPTIONS
   USAGE_ERROR          = 1
   SYSTEM_ERROR         = 2
   INTERNAL_ERROR       = 3
   OTHERS               = 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.
DATA: lt_att_content_hex TYPE STANDARD TABLE OF solix. "TABLE OF TEXT80.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
  EXPORTING
    BUFFER                = fp_formoutput-PDF
*   APPEND_TO_TABLE       = ' '
* IMPORTING
*   OUTPUT_LENGTH         =
  TABLES
    BINARY_TAB            = lt_att_content_hex
tables rlgrap.
DATA: ld_filename TYPE string,
      ld_path TYPE string,
      ld_fullpath TYPE string,
      ld_result TYPE i,
      gd_file TYPE c.
DATA: flength TYPE i.
*selection-screen begin of block m with frame.
data: p_file TYPE  rlgrap-filename.
*selection-screen end of block m.
flength = xstrlen( fp_formoutput-PDF ).
* At selection screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
* Display save dialog window
      CALL METHOD cl_gui_frontend_services=>file_save_dialog
        EXPORTING
          window_title      = 'Enter File Name to Save'
          default_extension = 'PDF'
          default_file_name = 'accountsdata'
          initial_directory = 'c:\temp\'
        CHANGING
          filename          = ld_filename
          path              = ld_path
          fullpath          = ld_fullpath
          user_action       = ld_result.
          p_file            = ld_fullpath.
call function 'DOWNLOAD'
     exporting
          bin_filesize            = flength
          filename                = p_file
          filetype                = 'BIN'
     importing
          act_filename            = p_file
     tables
          data_tab                = lt_att_content_hex.
with this code I am able to see the  VORNA, NACHN field data in ADOBE Forms. But i am unable to see the employee photo.
Any helps will be appreciated.....
Regards,
Shankar.

Answer 1

Or post a URL.
Shane H
[email protected]
http://www.avenuedesigners.com
=============================================
Proud GAWDS Member
http://www.gawds.org/showmember.php?memberid=1495
Delivering accessible websites to all ...
=============================================
"Alan" <[email protected]> wrote in
message
news:C0E592D7.29A315%[email protected]..
> go back to the dialog box, and re-browse to pick the
image.
> Find the pulldown in the "browse to file" dialog box
that gives a choice
> of
> Relative to site root, or Relative to document.
>
> set to relative to document.
>