SMARTFORM 实例教程-图文详解

SMARTFORM 实例教程

程序名：ZLICHAODITEST 系统HR 105 LICD

1）源代码

REPORT ZLICHAODITEST.

DATA: BEGIN OF ITAB OCCURS 0, “ITAB为要显示数据的内表

MATNR LIKE MARA-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTX,

END OF ITAB.

DATA: FM_NAME TYPE RS38L_FNAM. “SMARTFORM

SELECT-OPTIONS MATNR FOR ITAB-matnr .

SELECT-OPTIONS maktx FOR ITAB-maktx.

SELECT *

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM makt

UP TO 123 ROWS

WHERE MAKTX IN MAKTX

AND MATNR IN MATNR.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZTEST_22_SF0001' “SMARTFORM表格名称* VARIANT = ' '

* DIRECT_CALL = ' '

IMPORTING

FM_NAME = FM_NAME

* EXCEPTIONS

* NO_FORM = 1

* NO_FUNCTION_MODULE = 2

* OTHERS = 3

.

CALL FUNCTION fm_name " '/1BCDWB/SF00000138'"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

ITAB = ITAB “显示数据的内表 EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5 .

2）步骤

1．建内表要参考结构类型ITABJ

TYPES: BEGIN OF ITABJ,

MATNR like MARA-MATNR,

SPRAS LIKE MAKT-SPRAS,

MAKTX LIKE MAKT-MAKTX,

MAKTG LIKE MAKT-MAKTG,

END OF ITABJ.

2.建立工作区W A和输出表ITAB

3.初始化：输出参数ITAB和代码

DATA: FIELD(50).

FIELD-SYMBOLS: TYPE ANY.

FIELD = '(ZLICHAODITEST)ITAB[]'. "ZXXXXX为程序名,ITAB[]是内表ASSIGN (FIELD) TO .

ITAB[] = .

4.选择表样式

点击细节，设置表列参数，图示为4列数据，每一列宽度4cm，行类型为LINE1

5把内表ITAB中的数据写到工作区W A中

6.表头：以此类推，填写报表表头字段文字描述

7.主要区域：工作区—字段名eg：W A-MATNR，以此类推

执行程序

ENDDING