grabar smartforms en pdf

[zebalia]

Hola, tengo creado un smartform y me piden que en vez de salir los parámetros de impresión, se genere directamente un pdf.

Como puedo hacerlo?

Tengo entendido que tengo que poner en FORM ATTRIBUTES, la opción de Output Format: XSF Output, pero no tengo ni idea.

Alguien me puede echar una mano?

Gracias

[ppchico]

Creo que puedes generar un documento PDF con el SMARTFORMS... hay unas funciones especificas para ello, y generas una tabla con formato XSTRING, que puedes descargar al PC. Busca *PDF* en la transacción SE37, y busca el módulo de función que te interese. Suerte!

[Neo_25]

A ver si te sirve. Yo es lo q uso.

************************************************************* S M A R T F O R M
**********************************************************
***---------------------------------------------------------
*** Configuración y creación del smartform
***---------------------------------------------------------
**-------------------
** variables para sacar los datos del smartform
**-------------------
*DATA:
* lfm_name TYPE rs38l_fnam,
* lw_ctrlop TYPE ssfctrlop,
* lw_compop TYPE ssfcompop,
* lw_return TYPE ssfcrescl,
* li_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
* lv_len_in TYPE i,
* li_tline TYPE TABLE OF tline WITH HEADER LINE.
*
*
******
** OBTENEMOS LOS DATOS DEL SMARTFORM
******
** llamo a mi smartform ZSGCF0001
*CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
* EXPORTING
* formname = 'ZSGCF0001' "nombre del smartform
* IMPORTING
* fm_name = lfm_name
* 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.
*
** para no verlo y que se marquen solos algunos botones
** para que se mande imprimir directamente
*lw_ctrlop-getotf = 'X'. "Retorno tab.OTF. Sin imprimir, visualizar
*lw_ctrlop-no_dialog = 'X'.
*lw_compop-tddest = 'LOCA'. "impresora local
*
** variables de entrada y salida para el smartform
*CALL FUNCTION lfm_name
* EXPORTING
* control_parameters = lw_ctrlop
* output_options = lw_compop
* user_settings = ' ' "tiene q estar con el espacio para q no salga la ventanita de impresión
* e_task = pi_e_task
* e_object = pi_e_object
* i_estimation = pi_i_estimation
* i_text_detail = pi_i_text_detail
* IMPORTING
* job_output_info = lw_return
* EXCEPTIONS
* formatting_error = 1
* internal_error = 2
* send_error = 3
* user_canceled = 4
* OTHERS = 5.
*IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.
*
*li_otf[] = lw_return-otfdata[].
*
*
******
** Obtengo el PDF en una tabla interna
******
*CALL FUNCTION 'CONVERT_OTF'
* EXPORTING
* format = 'PDF'
* max_linewidth = 132
* IMPORTING
* bin_filesize = lv_len_in
* TABLES
* otf = li_otf[]
* lines = li_tline
* EXCEPTIONS
* err_max_linewidth = 1
* err_format = 2
* err_conv_not_possible = 3
* err_bad_otf = 4
* OTHERS = 5.
*IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*ENDIF.

[zebalia]

Y donde me genera el fichero?

Gracias muy util!

[ppchico]

En este caso, tienes la tabla con el fichero, solo tendrías que descargarlo al PC, con el módulo de funciones GUI_DOWNLOAD. Puedes mirar el REPORT ESTÁNDAR RSTXPDFT que pasa los textos estándar a PDF y los descargas.

[Neo_25]

Bueno, ya completo.
Lo bajarías así:

*****
* LO BAJAMOS AL PC --> C:\TEMP\
*****
** convierto la tabla interna del PDF a PDF en el disco duro "C:\TEMP\PDFEMAIL.PDF"
* CALL FUNCTION 'GUI_DOWNLOAD'
* EXPORTING
* bin_filesize = lv_len_in
* filename = lv_ruta_fich
* filetype = 'BIN'
* TABLES
* data_tab = li_tline
* EXCEPTIONS
* file_write_error = 1
* no_batch = 2
* gui_refuse_filetransfer = 3
* invalid_type = 4
* no_authority = 5
* unknown_error = 6
* header_not_allowed = 7
* separator_not_allowed = 8
* filesize_not_allowed = 9
* header_too_long = 10
* dp_error_create = 11
* dp_error_send = 12
* dp_error_write = 13
* unknown_dp_error = 14
* access_denied = 15
* dp_out_of_memory = 16
* disk_full = 17
* dp_timeout = 18
* file_not_found = 19
* dataprovider_exception = 20
* control_flush_error = 21
* OTHERS = 22.
*
* IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* ENDIF.

[leonel.vedo]

Yo tengo un smartform y hay un reporte el cual lo utiliza. Lo que yo debo hacer es agregarle la opcion de guardarlo en un .PDF.
Lo hace pero el pdf que me genera posee letras muy pegadas, casi superpuestas y dibuja lineas donde no deberia.
Agradeceria cualquier sugerencia.
Gracias

[Juan Pablo Andujar]

Hay varias maneras de generar PDF's desde SAP, sobrtodo desde Smartforms. Fijate si te sirve este link EN CASTELLANO, que explica en las opciones en general



o si no este que es más detallado




Suerte!