smartform取程序内表数据

以前写SMARTFORMS,传内表数据的时候总要先到SE11建立一个结构,很是麻烦.而且现在用SMARTFORMS出的报表多了,每个SMARTFORM都要建一个或多个结构,对系统的性能来说也不是好事.

 

看了一些资料,通过一个程序实践了一下.下面主要描述一下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.