Smartform as PDF On Button Click

Question

Hello Everyone,
I need to display a smartform as PDF on click of a button.
I have done the conversion using CONVERT_OTF. And then,
CREATE OBJECT cached_response
EXPORTING add_c_msg = 1.
*Start display PDF
      cached_response->set_header_field( name  = 'content-type'
                                  value = 'application/pdf' ).
some Browsers have caching problems when loading PDF format
      cached_response->set_header_field(
                         name  = 'cache-control'
                         value = 'max-age=0' ).
start PDF viewer either in the Browser or as a separate window
       cached_response->set_header_field(
                           name  = 'content-disposition'
                           value = 'attachment; filename=form.pdf' ).
finally display PDF format in Browser
      l_pdf_len = xstrlen( l_pdf_xstring ).
     cached_response->set_data( data   = l_pdf_xstring
                          length = l_pdf_len ).
DATA: OBJ1 TYPE REF TO CL_BSP_NAVIGATION,
            lr_runtime type ref to cl_bsp_runtime.
CREATE OBJECT OBJ1
  EXPORTING
    RUNTIME = lr_runtime.
call method OBJ1->RESPONSE_COMPLETE .
Is this correct, did I miss anything?
I get a blank screen when I click on the button.
I know this was asked many times , checked those posts but no help.
Looking forward to your input.
Regards,
Mohit Joshi

Answer 1

Mohit,
did you check the smartform itself?
is it complete executed?
can you test it via the FM?
most of the times when the url shows an empty page is that or the SMARTFORM is not executed correctly or the pdf is not opened automatically.
KR,
Micha
have a look at my coding:
     CALL FUNCTION 'SCMS_FTEXT_TO_BINARY'
       EXPORTING
         input_length    = ls_len
         append_to_table = 'X'
       IMPORTING
         output_length   = ls_len
       TABLES
         ftext_tab       = lt_objcont
         binary_tab      = lt_contents
       EXCEPTIONS
         failed          = 1
         OTHERS          = 2.
     lv_file_size = ls_len.
     lv_contenttype = 'text/plain'.                         "#EC NOTEXT
   ELSE.
     lv_file_size = xwa_len.
     lv_contenttype = 'application/pdf'.                    "#EC NOTEXT
     CONCATENATE ls_guid_str '.pdf' INTO lv_filename.
     lv_file_name = lv_filename.
     server->response->append_data(
                         data   = xwa
                         length = xwa_len ).
     CLEAR lt_contents. REFRESH lt_contents.
   ENDIF.
   CONCATENATE 'inline; filename=' lv_filename
     INTO lv_contentdisposition.
   CALL METHOD server->response->set_header_field
     EXPORTING
       name  = 'content-disposition'
       value = lv_contentdisposition.
   CALL METHOD server->response->set_header_field
     EXPORTING
       name  = 'content-type'
       value = lv_contenttype.
   CALL METHOD server->response->set_header_field
     EXPORTING
       name  = 'content-filename'
       value = lv_filename.
  Content Tabelle (Byte Arrays) rausschreiben
   lv_chunksize = 1022.
   LOOP AT lt_contents INTO ls_contents.
     MOVE ls_contents-line TO xwa.
     xwa_len = lv_file_size - ( lv_chunksize * ( sy-tabix - 1 ) ).
     IF xwa_len >= lv_chunksize.
       xwa_len = lv_chunksize.
     ENDIF.
     server->response->append_data( data   = xwa
                         length = xwa_len ).
   ENDLOOP.
  Response beenden
   server->response->delete_header_field(
             name = 'Cache-Control' ).                      "#EC NOTEXT
   server->response->delete_header_field(
             name = 'Expires' ).                            "#EC NOTEXT
Edited by: Micha Van Nijen on May 3, 2011 12:39 PM