[原创]SMART范例-让您快速建立SMARTFORM

[复制链接]
查看11 | 回复9 | 2005-5-21 01:01:38 | 显示全部楼层 |阅读模式
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

archive_index= toa_dara

archive_parameters = a_parameters
*
user_settings= 'X'

F_MARA
= i_mara
*importingdocument_output_info =
*
job_output_info=
*
job_output_options =
exceptions formatting_error = 1

internal_error = 2

send_error = 3

user_canceled= 4

others
= 5.
if sy-subrc0.
* error handling
message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
write text-002.
commit work.
endif.
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
好资料,学习中!
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
感谢上帝,要的就是你。
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
楼上的,我只想说一句:晕
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
支持楼主,测试看看
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
在第二步就卡住了
哪有这个“2.实用程序->上载表格,选择附件中的ZTANG01.xml。”??
不要砸我,我真没找到
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
在楼主的附件里
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
回楼上的朋友,我是说第二步操作...
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
建立完一個新的smartforms後,在公用程式/上傳進行上傳動作.
回复

使用道具 举报

千问 | 2005-5-21 01:01:38 | 显示全部楼层
楼上的,"公用程式/上傳" 在哪里啊,偶怎么找不到?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行