<转>不需要建结构在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