SMART范例-让您快速建立SMARTFORM
1.用Smartforms新建一个Smartform,名任取。
2.实用程序->上载表格,选择附件中的ZTANG01.xml。
3.选择覆盖。
4.OK。
至于SMARTFORM上的公司LOG图标,栏位长度,表格接口,全局字段的定义,样式的定义,自己来吧,做个抛砖引玉。
5.ABAP/4程序清单:
REPORTztestsmartform
.
TABLES: mara, makt.
data: fm_name type rs38l_fnam.
DATA: i_mara LIKE zmara OCCURS 0.
data begin of a_parameters.
include structure arc_params.
data end of a_parameters.
data toa_dara like toa_dara.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
toa_dara-function = 'DARA'.
toa_dara-mandant = sy-mandt.
toa_dara-sap_object = 'BUS0815'.
toa_dara-ar_object = 'BUSTESTPDF'.
toa_dara-object_id = sy-uzeit.
toa_dara-notiz = text-001.
a_parameters-sap_object = 'BUS0815'.
a_parameters-ar_object = 'BUSTESTPDF'.
*START-OF-SELECTION.
SELECT r~matnr r~mtart r~meins r~matkl r~bismt t~maktx
INTO TABLE i_mara FROM mara AS r
JOIN makt AS t ON r~matnr = t~matnr
WHERE r~matnr IN s_matnr.
call function 'SSF_FUNCTION_MODULE_NAME'
exportingformname = 'ZTANG01'
*
variant
= ' '
*
direct_call= ' '
importingfm_name
= fm_name
exceptions no_form
= 1
no_function_module = 2
others
= 3.
if sy-subrc0.
* error handling
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
exit.
endif.
call function fm_name
exporting