Smartforms and webdynpro ABAP

Question

Hi
I want to download a smartform to PDF file.
Can anyone post the code please from calling the FM of smartforms to the call of 
cl_wd_runtime_services=>attach_file_to_response
Best regards

Answer 1

I'm sharing my code to call smartforms and pass value through internal table. Enjoy guys.
  DATA lt_c_et_result TYPE STANDARD TABLE OF WD_THIS->Element_et_result .
  DATA wa_et_result LIKE LINE OF lt_c_et_result .
  DATA lo_nd_et_result TYPE REF TO if_wd_context_node.
  DATA lo_el_et_result TYPE REF TO if_wd_context_element.
  DATA ls_et_result TYPE wd_this->element_et_result.
*   navigate from <CONTEXT> to <ET_RESULT> via lead selection
  lo_nd_et_result = wd_context->get_child_node( name = wd_this->wdctx_et_result ).
*   @TODO handle not set lead selection
  IF lo_nd_et_result IS INITIAL.
  ENDIF.
  lo_nd_et_result->get_static_attributes_table(
    IMPORTING
      table = lt_c_et_result ).
  DATA it_sfaktviti TYPE TABLE OF ZPM_AKTIVITI_STRUC.
  DATA wa_sfaktviti  LIKE LINE OF it_sfaktviti.
  LOOP AT lt_c_et_result INTO  wa_et_result.
    MOVE-CORRESPONDING wa_et_result TO wa_sfaktviti .
*      MODIFy it_sf_et_result FROM wa .
*      APPEND wa_sf_result TO it_sf_et_result.
    APPEND wa_sfaktviti  TO it_sfaktviti.
  ENDLOOP.
  DATA: l_pdfstring TYPE xstring.
  DATA: lv_buffer TYPE xstring.
  DATA: lv_string TYPE string.
  DATA: lv_fnam  TYPE rs38l-NAME.
  DATA: lv_bytecount TYPE i.
  DATA: l_xline TYPE xstring.
  DATA: lt_lines TYPE TABLE OF tline,
        ls_line TYPE tline.
  DATA: ls_ssfctrlop TYPE ssfctrlop,
        ls_output_options TYPE ssfcompop,
        ls_job_output_info TYPE ssfcrescl,
        ls_job_output_options TYPE ssfcresop.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME                 = 'ZPM_KERJA'
*   VARIANT                  = ' '
*   DIRECT_CALL              = ' '
   IMPORTING
     FM_NAME                  = lv_fnam
* EXCEPTIONS
*   NO_FORM                  = 1
*   NO_FUNCTION_MODULE       = 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.
  ls_ssfctrlop-no_dialog = 'X'.
  ls_ssfctrlop-getotf = 'X'.
  ls_ssfctrlop-preview = 'X'.
  " Call smartforms
  call function lv_fnam
    EXPORTING
      control_parameters = ls_ssfctrlop
      output_options     = ls_output_options
    IMPORTING
      job_output_info    = ls_job_output_info
      job_output_options = ls_job_output_options
    TABLES
      IT_Aktiviti        = lt_c_et_result
    EXCEPTIONS
      formatting_error   = 1
      internal_error     = 2
      send_error         = 3
      user_canceled      = 4
      others             = 5.
  " Convert to PDF
  call function 'CONVERT_OTF'
    EXPORTING
      format                = 'PDF'
    IMPORTING
      bin_filesize          = lv_bytecount
    TABLES
      otf                   = ls_job_output_info-otfdata
      lines                 = lt_lines
    EXCEPTIONS
      err_conv_not_possible = 1
      err_bad_otf           = 2.
  loop at lt_lines into ls_line. "into l_line.
    lv_string = ls_line.
    export my_data = lv_string to data buffer lv_buffer.
    import my_data to l_xline from data buffer lv_buffer in char-to-hex mode.
    concatenate l_pdfstring l_xline into l_pdfstring in byte mode.
  endloop.
*  p_pdf = l_pdfstring.
  " Call print
  cl_wd_runtime_services=>attach_file_to_response(
  i_filename = 'AktivitiKerja.pdf'
  i_content = l_pdfstring
  i_mime_type = 'application/pdf'
  i_in_new_window = abap_false
  i_inplace = abap_false ).