<转>不需要建结构在SMARTFORM中传值

以前写SMARTFORMS,传内表数据的时候总要先到SE11建立一个结构,很是麻烦.



下面主要描述一下SMARTFORM是怎么从调用它的程序取相应内表的值.

首先在SMARTFORM 全局定义->类型 这个TAB页下定义个TYPES,结构跟要取的内表的结构一致.

如:types:BEGIN OF MY_TYPE,
lgnum type ltak-lgnum,
TANUM TYPE LTAK-TANUM,
LGTOR TYPE LTAK-LGTOR,
BNAME TYPE LTAK-BNAME,

…

end of my_type.



然后在 全局定义->全局数据 这个TAB页下定义一个内表和工作区,如:

GT_TABLE TYPE TABLE OF MY_TYPE
WA TYPE MY_TYPE

内表的TYPE ASSIGNMENT这一列,手动输入TYPE TABLE OF ,这个很关键.



最后在 全局定义->初始化 这个TAB页下写下面的代码:

DATA: FIELD(50).
FIELD-SYMBOLS: <f> TYPE ANY.
FIELD = ‘(ZXXXXX)OUTPUT[]‘. ”ZXXXXX为程序名,OUTPUT为内表名
ASSIGN (FIELD) TO <f>.
GT_TABLE[] = <f>.



这样,SMARTFORM就取得了ZXXXXX这个程序,OUTPUT这个内表的值，并将之赋给了GT_TABLE.

ZXXXXX程序那边不用传参数了.

DATA:SMARTFORM(30) TYPE C,
FM_NAME TYPE RS38L_FNAM.


SMARTFORM = ‘ZXXXXX’.
CALL FUNCTION ‘SSF_FUNCTION_MODULE_NAME’
EXPORTING
FORMNAME = SMARTFORM
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.

WAIT UP TO 1 SECONDS.
CALL FUNCTION FM_NAME
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.


Trackback: http://scnblogs.techweb.com.cn/songxianl/archives/11.html/trackback