How can I call the Class and have a PDF appear in seperate window?.

Question

I would like to call the class/interface ZCL_UIU_PRN_ACCOUNT2, method Collect_data and have a Smartform executed to produce a PDF document in a Seperate window.
Where I have an issue is in opening another window to display the PDF.
I know the Standard PDF Facsheet does exactly this, but that is triggered via the Web browser and calls a Java script, avoiding and events and round-server trip processing. I would have changed the button values so that when pressed it does process the various events and eventually ends up at EH_ONPREVIEW for the BP_HEAD/Overview. I know just need to open a new window and call the process to create the PDF via Smartform.
Any suggestions would be more than welcome. I have spent so much time on this, and have gained no real ground, so far.
Jason

Answer 1

Hi,
in the method
data: zcontrol TYPE SSFCTRLOP.
zcontrol-device = 'PRINTER'.
zcontrol-langu = sy-langu.
zcontrol-no_dialog = 'X'.
zcontrol-getotf = 'X'.
data: job type SSFCRESCL.
data: devtype type RSPOPTYPE.
CALL FUNCTION 'SSF_GET_DEVICE_TYPE'
EXPORTING
i_language = sy-langu
IMPORTING
e_devtype = devtype
EXCEPTIONS
no_language = 1
language_not_installed = 2
no_devtype_found = 3
system_error = 4
OTHERS = 5.
data: output_options type SSFCOMPOP.
output_options-tdprinter = devtype.
call function FM_NAME
EXPORTING
*   ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
   CONTROL_PARAMETERS         = zcontrol
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
   OUTPUT_OPTIONS             = output_options
*   USER_SETTINGS              = 'X'
IMPORTING
*   DOCUMENT_OUTPUT_INFO       =
   JOB_OUTPUT_INFO            = job
*   JOB_OUTPUT_OPTIONS         =
  TABLES
    t_texto                    = t_texto
  EXCEPTIONS
    FORMATTING_ERROR           = 1
    INTERNAL_ERROR             = 2
    SEND_ERROR                 = 3
    USER_CANCELED              = 4
    OTHERS                     = 5.
if sy-subrc <> 0.
endif.
data: DOCTAB_ARCHIVE type TABLE OF DOCS,
LINES type TABLE OF TLINE.
*CALL FUNCTION 'CONVERT_OTF_2_PDF'
** EXPORTING
**   USE_OTF_MC_CMD               = 'X'
**   ARCHIVE_INDEX                =
** IMPORTING
**   BIN_FILESIZE                 =
*  TABLES
*    otf                          = job-otfdata
*    doctab_archive               = doctab_archive
*    lines                        = lines
* EXCEPTIONS
*   ERR_CONV_NOT_POSSIBLE        = 1
*   ERR_OTF_MC_NOENDMARKER       = 2
*   OTHERS                       = 3
data:  l_pdf_len type i,
l_pdf_xstring type XSTRING.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_filesize = l_pdf_len
bin_file = l_pdf_xstring
TABLES
otf = job-otfdata
lines = lines
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
OTHERS = 5.
IF sy-subrc is initial.
DATA: cached_response TYPE REF TO cl_http_response.
CREATE OBJECT cached_response
EXPORTING add_c_msg = 1.
l_pdf_len = XSTRLEN( l_pdf_xstring ).
cached_response->set_data( data = l_pdf_xstring
length = l_pdf_len ).
cached_response->set_header_field(
name = if_http_header_fields=>content_type
value = 'application/pdf' ).
cached_response->if_http_response~set_status( code = 200
reason = 'OK' ).
cached_response->if_http_response~server_cache_expire_rel(
expires_rel = 180 ).
data guid type GUID_32.
CALL FUNCTION 'GUID_CREATE'
IMPORTING
ev_guid_32 = guid.
data display_url type string.
CONCATENATE url '/' guid '.pdf' INTO
display_url.
cl_http_server=>server_cache_upload( url = display_url
response = cached_response ).
*GV_DISPLAY_URL & GV_PRINTON are class attributes
CLEAR: gv_display_url, gv_printon.
MOVE display_url TO gv_display_url.
gv_printon = 'X'.
ENDIF.
Send me you e-mail i cannot post the code that is used in the view.htm.
Best Regards,
Caíque Escaler
Edited by: Caíque Escaler on Nov 26, 2010 5:00 PM