smartform实例图解.doc

SMARTFORM 实例练习 创建report程序。在report程序中取得数据和调用你创建的的smartform。（下面我取得的数据放在G_TAB_TEST的内表中，在调用smartform（ZTEST_22_SF0001）传入）。 创建report程序步骤： 输入tcode：se38. 输入要创建的的report程序名称 然后点击“创建”按钮。 输入相应的描述，选择类型为可执行程序，状态为测试程序。然后点击“保存”按钮。 点击“本地保存按钮”。然后开始编写代码。 Report代码如下：（代码内容不再讲解） ** * 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 * EXPORTING * ARCHIVE_INDEX = * ARCHIVE_PARAMETERS = * CONTROL_PARAMETERS = * MAIL_APPL_OBJ = * MAIL_RECIPIENT = * MAIL_SENDER = * OUTPUT_OPTIONS = * USER_SETTINGS = X * IMPORTING * DOCUMENT_OUTPUT_INFO = * JOB_OUTPUT_INFO = * JOB_OUTPUT_OPTIONS = TABLES G_TAB_TEST = G_TAB_TEST EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5 . IF SY-SUBRC 0. * error handling ENDIF. 创