Action - Display smartform in PDF format

Question

Hi All,
I have a requirement whereby on triggering of a print form action in crmd_order, the smartform should be displayed in PDF format and from there, user should be able to choose whether to save or to print the form. How can this be done?
Thanks!
Cady

Answer 1

Hi,
Here's the solutions.
1 .Show the PDF as pop-up upon trigger, very much the same how PDF attachment always pops up in the internet explorer. But this pops up in GUI.
Call the smartform FM with the GETOTF checked,
control_parameters-GETOTF = 'X'.
control_parameter-no_dialog = 'X'.
control_parameter-langu = <ur language>.
output_options-tddest = 'LOCL'.
output_option-tdimmed = 'X'.
output_option-tddelete = 'X'.
i_otf = job_output_info-OTFDATA.
CALL FUNCTION 'SSFCOMP_PDF_PREVIEW'
  EXPORTING
    i_otf                          = i_otf
EXCEPTIONS
   CONVERT_OTF_TO_PDF_ERROR     
   CNTL_ERROR                   
   OTHERS                        
2. Triggering action in ICWC and PDF pops up in new window.
Call function 'SSF_GET_DEVICE_TYPE'
    EXPORTING
      i_language             = sy-langu
    IMPORTING
      e_devtype              = devtype
    EXCEPTIONS
      no_language              
      language_not_installed
      no_devtype_found       
      system_error             
      others                       
control_parameters-langu = sy-langu.
    control_parameters-no_dialog = 'X'.
    control_parameters-getotf       = 'X'.
CALL FUNCTION '<your_form_FM>'
  EXPORTING
   CONTROL_PARAMETERS      = control_parameters
   OUTPUT_OPTIONS                 = output_options
IMPORTING
   JOB_OUTPUT_INFO                = output_data
  TABLES
   orderadm_h       = <your tables>
  EXCEPTIONS
   FORMATTING_ERROR      
   INTERNAL_ERROR            
   SEND_ERROR                  
   USER_CANCELED            
   OTHERS                           
call function 'CONVERT_OTF'
    EXPORTING
      format                = 'PDF'
    IMPORTING
      bin_filesize          = l_pdf_len
      bin_file                = l_pdf_xstring
    TABLES
      OTF                    = OUTPUT_DATA-OTFDATA
      LINES                 = LT_LINES
    EXCEPTIONS
      err_max_linewidth       
      err_format                  
      err_conv_not_possible 
      err_bad_otf                 
      others                        
CREATE OBJECT cached_response TYPE CL_HTTP_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->set_status( code = 200 reason = 'OK' ).
    cached_response->server_cache_expire_rel( expires_rel = 180 ).
    CALL FUNCTION 'GUID_CREATE'
      IMPORTING
        ev_guid_32 = guid.
    CONCATENATE runtime->application_url '/' guid '.pdf' INTO display_url.
    cl_http_server=>server_cache_upload( url      = display_url
                                         response = cached_response ).
                                         url = display_url.
RETURN.
Declare display_url as an attribute in the implementation class as well as page attribute.
Push the display_url value to page attribute using the SET_MODELS method in the implementation class.
Clear display_url in DO_INIT_CONTEXT so that PDF only pops up when action is triggered.
Put this piece of code in the page htm.
I can't seem to be able to put the code here. It's a java script.
  IF display_url IS NOT INITIAL.
* I can't show the script here for i kept getting error when i tried putting the java script here.
  ENDIF.
3. To trigger a print action and send PDF attachment in background, a spool will still be created. 
Call the smartform FM as usual.
  lt_spoolid[] = es_job_output_info-spoolids[].
  READ TABLE lt_spoolid INTO lw_spoolid INDEX 1.
  CHECK lw_spoolid IS NOT INITIAL.
  CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid                = lw_spoolid
      no_dialog                  = 'X'
    IMPORTING
      pdf_bytecount            = lw_bytecount
    TABLES
      pdf                             = lt_lines
    EXCEPTIONS
      err_no_otf_spooljob      
      err_no_spooljob            
      err_no_permission        
      err_conv_not_possible   
      err_bad_dstdevice         
      user_cancelled             
      err_spoolerror               
      err_temseerror              
      err_btcjob_open_failed  
      err_btcjob_submit_failed
      err_btcjob_close_failed  
      OTHERS                      
  IF sy-subrc NE 0.
*/    Set to incorrectly processed.
    CALL METHOD cl_log_ppf=>add_message
      EXPORTING
        ip_problemclass = '2'
        ip_handle       = ip_application_log.
  ENDIF.
  CHECK sy-subrc = 0.
* Convert PDF from 132 to 255, combine everything into a single string.
  LOOP AT lt_lines INTO lw_lines.
* Individually replace the space with a '~'.
    TRANSLATE lw_lines USING ' ~'.
    CONCATENATE lw_buffer lw_lines INTO lw_buffer.
  ENDLOOP.
* Replace '~' by space.
  TRANSLATE lw_buffer USING '~ '.
  DO.
*   Putting in the first 255 chars into the variable.
    lw_record = lw_buffer.
*   Append 255 chars as a record.
    APPEND lw_record TO lt_record.
    SHIFT lw_buffer LEFT BY 255 PLACES.
    IF lw_buffer IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
* Object with PDF.
  lt_objbin = lt_record.
  DESCRIBE TABLE lt_objbin LINES lw_lines_bin.
* Object with main text for the mail.
  lw_objtxt = <your text>
  append lw_objtxt to lt_objtxt.
  DESCRIBE TABLE lt_objtxt LINES lw_lines_txt.
* Document information.
  lw_doc_chng-obj_name    = 'Smartform'.
  lw_doc_chng-expiry_dat  = sy-datum + 20.
  lw_doc_chng-obj_descr   = <your text>.
  lw_doc_chng-sensitivty  = 'F' 
  lw_doc_chng-doc_size    = lw_lines_txt * 255.
* Pack to main body as RAW
* Obj to be transported not in binary form
  CLEAR lw_objpack-transf_bin.
* Start line of object header in transport packet.
  lw_objpack-head_start = 1.
* Number of lines and object header in object packet.
  lw_objpack-head_num = 0.
* Start line of object contents in an object packet.
  lw_objpack-body_start = 1.
* Number of lines of the object contents in an object packet.
  lw_objpack-body_num = lw_lines_txt.
* Code for document class.
  lw_objpack-doc_type = 'RAW'.
  APPEND lw_objpack TO lt_objpack.
* Packing as PDF.
  lw_objpack-transf_bin = lc_x.
  lw_objpack-head_start = 1.
  lw_objpack-head_num   = 0.
  lw_objpack-body_start = 1.
  lw_objpack-body_num   = lw_lines_bin.
  lw_objpack-doc_type   = 'PDF'.
  lw_objpack-obj_name   = <your text>.
  CONCATENATE '<your text>' '.pdf' INTO lw_objpack-obj_descr.
  lw_objpack-doc_size   = lw_lines_bin * 255.
  APPEND lw_objpack TO lt_objpack.
* Document information.
  CLEAR lw_reclist.
* Email receivers.
  lw_reclist-receiver = <email address>
  lw_reclist-express  = 'X'.
  lw_reclist-rec_type = 'U'. "Internet address.
  lw_reclist-com_type ='INT'.
  APPEND lw_reclist TO lt_reclist.
* Send mail.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = lw_doc_chng
    TABLES
      packing_list                 = lt_objpack
      object_header              = lw_objhead
      contents_txt                = lt_objtxt
      contents_bin               = lt_objbin
      receivers                     = lt_reclist
    EXCEPTIONS
      too_many_receivers            
      document_not_sent            
      document_type_not_exist   
      operation_no_authorization 
      parameter_error                 
      x_error                             
      enqueue_error                   
      OTHERS                          
  IF sy-subrc = 0.
    COMMIT WORK.
  ELSE.
*/    Set to incorrectly processed.
    CALL METHOD cl_log_ppf=>add_message
      EXPORTING
        ip_problemclass = lc_2
        ip_handle       = ip_application_log.
  ENDIF.
4. Trigger action and send PDF attacment as mail. No Spool.
control_parameters-GETOTF = 'X'.
control_parameter-no_dialog = 'X'.
control_parameter-langu = <ur language>.
output_options-tddest = 'LOCL'.
output_option-tdimmed = 'X'.
output_option-tddelete = 'X'.
  CALL FUNCTION 'your smartform FM
    EXPORTING
      control_parameters = lw_ctrl_params
      output_options     = lw_output_options
      user_settings      = space              "Has to be set to SPACE so it will get parameters from lw_output_options.
      et_orderadm_h    
      et_orderadm_i     
      et_cancel          
      et_appointment    
      et_partner        
      es_but000         
    IMPORTING
      job_output_info    = lw_output  "OTF format
    EXCEPTIONS
      formatting_error  
      internal_error    
      send_error        
      user_canceled     
      OTHERS            
* Get the OTF data.
  lt_otf = lw_output-otfdata[].
* Convert OTF format to PDF.
  CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      format                = 'PDF'
      max_linewidth         = 132
    IMPORTING
      bin_filesize          = lw_bin_filesize
    TABLES
      otf                     = lt_otf
      lines                  = lt_lines
    EXCEPTIONS
      err_max_linewidth       
      err_format                  
      err_conv_not_possible 
      err_bad_otf                 
      OTHERS                    
The rest will the similiar to no.3, * Convert PDF from 132 to 255, combine everything into a single string. onwards.
Cheers,
ck.