Programa tem a funcionalidade de visualizar através do Adobe Reader (PDF) um relatório desenvolvido em SmartForms.
************************************************************************ * Programa : Gera um arquivo PDF a partir de um relatório desenvolvido * em Smartforms * Autor : Antonio Mosca Júnior * Data : 07/08/2007 ************************************************************************ REPORT yo_emite_pdf. **************************************************************** * Definições **************************************************************** DATA: fm_name TYPE rs38l_fnam, job_output_info TYPE ssfcrescl, document_output_info TYPE ssfcrespd, job_output_options TYPE ssfcresop, output_options TYPE ssfcompop, control_parameters TYPE ssfctrlop, lt_otfdata TYPE TABLE OF itcoo. **************************************************************** * Inicialização **************************************************************** INITIALIZATION. SELECTION-SCREEN BEGIN OF BLOCK bl01. SELECTION-SCREEN SKIP. PARAMETERS: p_form(30) TYPE c OBLIGATORY. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK bl01. **************************************************************** * Principal **************************************************************** START-OF-SELECTION. control_parameters-device = 'PRINTER'. control_parameters-no_dialog = 'X'. control_parameters-preview = 'X'. control_parameters-getotf = 'X'. output_options-tdnoprint = 'X'. * *** chamado do formulario Smartforms CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME' EXPORTING formname = p_form IMPORTING fm_name = fm_name EXCEPTIONS no_form = 1 no_function_module = 2 OTHERS = 3. CALL FUNCTION fm_name EXPORTING output_options = output_options control_parameters = control_parameters user_settings = 'X' IMPORTING job_output_info = job_output_info EXCEPTIONS formating_error = 1 internal_error = 2 send_error = 3 user_canceled = 4 OTHERS = 5. * *** chamado do relatório em PDF lt_otfdata[] = job_output_info-otfdata[]. CALL FUNCTION 'SSFCOMP_PDF_PREVIEW' EXPORTING i_otf = lt_otfdata EXCEPTIONS convert_otf_to_pdf_error = 1 cntl_error = 2 OTHERS = 3. . DATA: l_dummy TYPE STANDARD TABLE OF tline, pdf_data TYPE xstring, pdf_size TYPE i. CLEAR: pdf_data, pdf_size. * convert otf to pdf CALL FUNCTION 'CONVERT_OTF' EXPORTING format = 'PDF' IMPORTING bin_filesize = pdf_size bin_file = pdf_data TABLES otf = lt_otfdata[] lines = l_dummy EXCEPTIONS err_max_linewidth = 1 err_format = 2 err_conv_not_possible = 3 OTHERS = 4. **** @ all rigths reserved ******************** **** Produced by MOSCA ************************