Ejemplo para descargar smartforms a pdf
Anteriormente publique como un usuario puede convertir un smartforms a pdf, pero ahora he subido un ejemplo de como generar directamente el pdf sin mostrar la pantalla de impresión utilizando un smartforms.
Solo necesitamos agregar un poco de código y ahora en lugar de mostrar la pantalla de impresión, nos muestra una pantalla para elegir la ruta en donde se guardará el formulario en formato PDF, aquí esta el código:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
REPORT zsmartforms_pdf. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 1(20) tit_file. SELECTION-SCREEN POSITION 21. PARAMETERS p_form TYPE tdsfname DEFAULT 'ZPRUEBA'. SELECTION-SCREEN END OF LINE. DATA: it_otf TYPE STANDARD TABLE OF itcoo, it_docs TYPE STANDARD TABLE OF docs, it_lines TYPE STANDARD TABLE OF tline, st_job_output_info TYPE ssfcrescl, st_document_output_info TYPE ssfcrespd, st_job_output_options TYPE ssfcresop, st_output_options TYPE ssfcompop, st_control_parameters TYPE ssfctrlop, obj_len TYPE so_obj_len, idioma TYPE sflangu VALUE 'S', devtype TYPE rspoptype, bin_filesize TYPE i, nombre_archivo TYPE string, ruta TYPE string, ruta_completa TYPE string, filtro TYPE string, uact TYPE i, guiobj TYPE REF TO cl_gui_frontend_services, filename TYPE string, nombre_formulario TYPE rs38l_fnam. INITIALIZATION. tit_file = 'Nombre Smartforms'. START-OF-SELECTION. CALL FUNCTION 'SSF_GET_DEVICE_TYPE' EXPORTING i_language = idioma i_application = 'SAPDEFAULT' IMPORTING e_devtype = devtype. st_output_options-tdprinter = devtype. st_control_parameters-no_dialog = 'X'. "Ocultar dialogo st_control_parameters-getotf = 'X'. "Obtener el nombre del formulario CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = p_form IMPORTING fm_name = nombre_formulario EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3. "Llamar al formulario " ************************************************************ " No olvidar agregar los parametros que use tu formulario " ************************************************************ CALL FUNCTION nombre_formulario EXPORTING control_parameters = st_control_parameters output_options = st_output_options IMPORTING document_output_info = st_document_output_info job_output_info = st_job_output_info job_output_options = st_job_output_options EXCEPTIONS formatting_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. "Convertir a PDF CALL FUNCTION 'CONVERT_OTF_2_PDF' IMPORTING bin_filesize = bin_filesize TABLES otf = st_job_output_info-otfdata doctab_archive = it_docs lines = it_lines EXCEPTIONS err_conv_not_possible = 1 err_otf_mc_noendmarker = 2 OTHERS = 3. "Conseguir el nombre del archivo pdf CONCATENATE p_form '.pdf' INTO nombre_archivo. CREATE OBJECT guiobj. CALL METHOD guiobj->file_save_dialog EXPORTING default_extension = 'pdf' default_file_name = nombre_archivo file_filter = filtro CHANGING filename = nombre_archivo path = ruta fullpath = ruta_completa user_action = uact. IF uact = guiobj->action_cancel. EXIT. ENDIF. "Descargar a la computadora MOVE ruta_completa TO filename. CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING bin_filesize = bin_filesize filename = filename filetype = 'BIN' TABLES data_tab = it_lines 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. |