Smartform 操作事例.docxVIP

Smartform 操作事例 创建smartform程序，输入tcode：smartforms。 输入要创建的smartform程序的名称（这个名称要和report程序调用的名称一致）。然后点击“创建按钮”。 双击“表格接口”，输入一个内表的名称（这个名称要和report程序调用时的变量名必须一致，表的类型也必须一致）。 然后点击“全局定义”。 输入一个工作区的名称和类型，类型必须和内表的类型一致。然后点击“页和窗口?main window”然后输入一个名称（FIRST） 然后在 “FIRST”上右键创建一个table，创建table后会自动生成“表头”，“主要区域”和“脚标”。 点“细节”按钮，设置4列，每列的宽度为4厘米 然后点击“数据”。 输入刚才在“表格接口”中输入的内表名称和在“全局定义”中输入的工作区名称。 然后在“主要区域”上右键创建一个table line（表行）。输入一个名称，选择刚才你设置的显示格式（LINE1）,选择后会自动生成你刚才设置列数（刚才设置了4列） 然后在每一列下面创建一个文本 最后修改每一列及其他文本的 在“一般属性”中输入 TAB_REC_TEST-CARRID 变量(方法：编辑器-转到-修改编辑器-TAB_REC_TEST-CARRID) 以同样的方法设置其他的列. 表头的设置和上面的操作基本相似。就是在给相应的列赋值时更简单些 设置表格显示样式 选择表格样式 保存并激活。 输入tcode：/nse38 然后点击“创建”按钮。 输入相应的描述，选择类型为可执行程序，状态为测试程序。然后点击“保存”按钮。 点击“本地保存按钮”。然后开始编写代码。 代码如下： ** * Report ZTEST_22_RSF0001 * ** * * ** REPORT ZTEST_22_RSF0001 NO STANDARD PAGE HEADING LINE-SIZE 150 MESSAGE-ID ZBSUN. DATA: G_TAB_TEST LIKE STANDARD TABLE OF SFLIGHT, G_REC_TEST TYPE SFLIGHT. DATA: FM_NAME TYPE RS38L_FNAM. SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME. SELECT-OPTIONS S_LINE FOR G_REC_TEST-CARRID NO INTERVALS. SELECT-OPTIONS S_DATE FOR G_REC_TEST-FLDATE. SELECTION-SCREEN END OF BLOCK BLOCK1. INITIALIZATION. REFRESH G_TAB_TEST. CLEAR: G_REC_TEST, FM_NAME. START-OF-SELECTION. SELECT * INTO TABLE G_TAB_TEST FROM SFLIGHT WHERE CARRID IN S_LINE AND FLDATE IN S_DATE. IF SY-SUBRC 0. MESSAGE E001 WITH NO DATA. * No data selected. ENDIF. END-OF-SELECTION. CALL FUNCTION SSF_FUNCTION_MODULE_NAME EXPORTING FORMNAME = ZTEST_22_SF0001 * VARIANT = * DIRECT_CALL = IMPORTING FM_NAME = FM_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. CALL FUNCTION fm_name * EXPORTIN