Pre visualización de smartforms en formato PDF

Esta es una práctica solución para que los usuarios puedan guardar los formularios directamente en formato PDF.

Su implementación es simple

form genera_salida.

  data:   r_document_output_info type ssfcrespd,

          r_job_output_info type ssfcrescl,

          r_job_output_options type ssfcresop,

          l_pdf like tline occurs 100 with header line.

  data: is_otf   type  c,

        id_spool like  tsp01-rqident.

  data: pdf_bytecount type i.

  data: begin of it_pdf_output occurs 0.

          include structure tline.

  data: end of it_pdf_output.

  data: filename type string.

*

[1]* Identificacion de SmartForm

    call function 'SSF_FUNCTION_MODULE_NAME'

      exporting

        formname           = 'Z_SMF_01'

      importing

        fm_name            = g_fm_name

      exceptions

        no_form            = 1

        no_function_module = 2

        others             = 3.

* creo el Spool para la impresion

    g_output_options-tdnewid        = 'X'. "pdf (nuevo spool) - Requerido

    g_control_parameters-getotf     = 'X'. "pdf (Retorno tab.OTF.)

    g_control_parameters-preview    = 'X'. "No Mostrar V2

    g_control_parameters-no_dialog  = 'X'. "No Mostrar V2

[2]* Imprimo el Documento

* Ejecucion de Smartform.

    g_docu = g_docu  + 1.

    call function g_fm_name

      exporting

        control_parameters   = g_control_parameters

        output_options       = g_output_options

        user_settings        = 'X'   

        per_ini              = p_begda

        per_fin              = p_endda

      importing

        document_output_info = r_document_output_info

        job_output_info      = r_job_output_info

        job_output_options   = r_job_output_options

      tables

        p01                  = it_p01

        t01                  = it_t01

        total                = it_total

      exceptions

        formacling_error     = 1

        internal_error       = 2

        send_error           = 3

        user_canceled        = 4

        others               = 5.

    if sy-subrc eq 0.

 * Recupero el OTF del Smartform y lo muestro como PDF.

      call function 'SSFCOMP_PDF_PREVIEW'

        exporting

          i_otf                          = r_job_output_info-otfdata

       EXCEPTIONS

         CONVERT_OTF_TO_PDF_ERROR       = 1

         CNTL_ERROR                     = 2

         OTHERS                         = 3 .

    endif.

como siempre les digo, si hay una forma mejor o mas simple me avisan.