SMART FORMS转换生成PDF文件

1、SMARTForms绘制一个smart form
这里我们以Smart Forms循环中控制control-break状态为例

2、se38新建程序

1. * Variable declarations
   
2. DATA:
   
3.   w_form_name    TYPE tdsfname VALUE 'YLEON_007',"smartforms 新建的smartform名称
   
4.   w_fmodule      TYPE rs38l_fnam,
   
5.   w_cparam       TYPE ssfctrlop,
   
6.   w_outoptions   TYPE ssfcompop,
   
7.   w_bin_filesize TYPE i, " Binary File Size
   
8.   w_file_name    TYPE string,
   
9.   w_file_path    TYPE string,
   
10.   w_full_path    TYPE string.
    
11. 
    
12. * Internal tables declaration
    
13. 
    
14. * Internal table to hold the OTF data
    
15. DATA:
    
16.   t_otf         TYPE itcoo OCCURS 0 WITH HEADER LINE,
    
17. 
    
18. * Internal table to hold OTF data recd from the SMARTFORM
    
19.   t_otf_from_fm TYPE ssfcrescl,
    
20. 
    
21. * Internal table to hold the data from the FM CONVERT_OTF
    
22.   t_pdf_tab     LIKE tline OCCURS 0 WITH HEADER LINE.
    
23. 
    
24. 
    
25. * This function module call is used to retrieve the name of the Function
    
26. * module generated when the SMARTFORM is activated
    
27. 
    
28. CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    
29.   EXPORTING
    
30.     formname           = w_form_name
    
31. *   VARIANT            = ' '
    
32. *   DIRECT_CALL        = ' '
    
33.   IMPORTING
    
34.     fm_name            = w_fmodule
    
35.   EXCEPTIONS
    
36.     no_form            = 1
    
37.     no_function_module = 2
    
38.     OTHERS             = 3.
    
39. IF sy-subrc <> 0.
    
40.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
41.   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
42. ENDIF.
    
43. 
    
44. * Calling the SMARTFORM using the function module retrieved above
    
45. * GET_OTF parameter in the CONTROL_PARAMETERS is set to get the OTF
    
46. * format of the output
    
47. 
    
48. 
    
49. w_cparam-no_Dialog = 'X'.
    
50. w_cparam-preview = space. " Suppressing the dialog box
    
51. " for print preview
    
52. w_cparam-getotf = 'X'.
    
53. 
    
54. * Printer name to be used is provided in the export parameter
    
55. * OUTPUT_OPTIONS
    
56. w_outoptions-tddest = 'LP01'.
    
57. 
    
58. CALL FUNCTION w_fmodule
    
59.   EXPORTING
    
60. *   archive_index      =
    
61. *   archive_index_tab  =
    
62. *   archive_parameters =
    
63.     control_parameters = w_cparam
    
64. *   mail_appl_obj      =
    
65. *   mail_recipient     =
    
66. *   mail_sender        =
    
67.     output_options     = w_outoptions
    
68. *   user_settings      = 'X'
    
69.   IMPORTING
    
70. *   document_output_info =
    
71.     job_output_info    = t_otf_from_fm
    
72. *   job_output_options =
    
73.   EXCEPTIONS
    
74.     formatting_error   = 1
    
75.     internal_error     = 2
    
76.     send_error         = 3
    
77.     user_canceled      = 4
    
78.     OTHERS             = 5.
    
79. IF sy-subrc <> 0.
    
80.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    
81.   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
82. ENDIF.
    
83. 
    
84. t_otf[] = t_otf_from_fm-otfdata[].
    
85. 
    
86. * Function Module CONVERT_OTF is used to convert the OTF format to PDF
    
87. 
    
88. CALL FUNCTION 'CONVERT_OTF'
    
89.   EXPORTING
    
90.     format                = 'PDF'
    
91.     max_linewidth         = 132
    
92. *   ARCHIVE_INDEX         = ' '
    
93. *   COPYNUMBER            = 0
    
94. *   ASCII_BIDI_VIS2LOG    = ' '
    
95. *   PDF_DELETE_OTFTAB     = ' '
    
96.   IMPORTING
    
97.     bin_filesize          = w_bin_filesize
    
98. *   BIN_FILE              =
    
99.   TABLES
    
100.     otf                   = t_otf
     
101.     lines                 = t_pdf_tab
     
102.   EXCEPTIONS
     
103.     err_max_linewidth     = 1
     
104.     err_format            = 2
     
105.     err_conv_not_possible = 3
     
106.     err_bad_otf           = 4
     
107.     OTHERS                = 5.
     
108. IF sy-subrc <> 0.
     
109.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
110.   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
111. ENDIF.
     
112. 
     
113. * To display File SAVE dialog window
     
114. CALL METHOD cl_gui_frontend_services=>file_save_dialog
     
115. * EXPORTING
     
116. * WINDOW_TITLE =
     
117. * DEFAULT_EXTENSION =
     
118. * DEFAULT_FILE_NAME =
     
119. * FILE_FILTER =
     
120. * INITIAL_DIRECTORY =
     
121. * WITH_ENCODING =
     
122. * PROMPT_ON_OVERWRITE = 'X'
     
123.   CHANGING
     
124.     filename             = w_file_name
     
125.     path                 = w_file_path
     
126.     fullpath             = w_full_path
     
127. *   USER_ACTION          =
     
128. *   FILE_ENCODING        =
     
129.   EXCEPTIONS
     
130.     cntl_error           = 1
     
131.     error_no_gui         = 2
     
132.     not_supported_by_gui = 3
     
133.     OTHERS               = 4.
     
134. IF sy-subrc <> 0.
     
135.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     
136.   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
137. ENDIF.
     
138. 
     
139. 
     
140. * Use the FM GUI_DOWNLOAD to download the generated PDF file onto the
     
141. * presentation server
     
142. 
     
143. CALL FUNCTION 'GUI_DOWNLOAD'
     
144.   EXPORTING
     
145.     bin_filesize = w_bin_filesize
     
146.     filename     = w_full_path
     
147.     filetype     = 'BIN'
     
148. *   APPEND       = ' '
     
149. *   WRITE_FIELD_SEPARATOR = ' '
     
150. *   HEADER       = '00'
     
151. *   TRUNC_TRAILING_BLANKS = ' '
     
152. *   WRITE_LF     = 'X'
     
153. *   COL_SELECT   = ' '
     
154. *   COL_SELECT_MASK = ' '
     
155. *   DAT_MODE     = ' '
     
156. *   CONFIRM_OVERWRITE = ' '
     
157. *   NO_AUTH_CHECK = ' '
     
158. *   CODEPAGE     = ' '
     
159. *   IGNORE_CERR  = ABAP_TRUE
     
160. *   REPLACEMENT  = '#'
     
161. *   WRITE_BOM    = ' '
     
162. *   TRUNC_TRAILING_BLANKS_EOL = 'X'
     
163. *   WK1_N_FORMAT = ' '
     
164. *   WK1_N_SIZE   = ' '
     
165. *   WK1_T_FORMAT = ' '
     
166. *   WK1_T_SIZE   = ' '
     
167. * IMPORTING
     
168. *   FILELENGTH   =
     
169.   TABLES
     
170.     data_tab     = t_pdf_tab
     
171. *   FIELDNAMES   =
     
172. * EXCEPTIONS
     
173. *   FILE_WRITE_ERROR = 1
     
174. *   NO_BATCH     = 2
     
175. *   GUI_REFUSE_FILETRANSFER = 3
     
176. *   INVALID_TYPE = 4
     
177. *   NO_AUTHORITY = 5
     
178. *   UNKNOWN_ERROR = 6
     
179. *   HEADER_NOT_ALLOWED = 7
     
180. *   SEPARATOR_NOT_ALLOWED = 8
     
181. *   FILESIZE_NOT_ALLOWED = 9
     
182. *   HEADER_TOO_LONG = 10
     
183. *   DP_ERROR_CREATE = 11
     
184. *   DP_ERROR_SEND = 12
     
185. *   DP_ERROR_WRITE = 13
     
186. *   UNKNOWN_DP_ERROR = 14
     
187. *   ACCESS_DENIED = 15
     
188. *   DP_OUT_OF_MEMORY = 16
     
189. *   DISK_FULL    = 17
     
190. *   DP_TIMEOUT   = 18
     
191. *   FILE_NOT_FOUND = 19
     
192. *   DATAPROVIDER_EXCEPTION = 20
     
193. *   CONTROL_FLUSH_ERROR = 21
     
194. *   OTHERS       = 22
     
195.   .
     
196. IF sy-subrc <> 0.
     
197. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
     
198. * with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
199. ENDIF.

复制代码

3、程序执行效果

注意输出名称是需要填写扩展名.PDF

学习函数CONVERT_OTF。