Abap调用Smart form 并通过interface 内表数据

 Abap调用Smart form 并通过interface 内表数据

一、目的:

   有时候通过ABAP查询并整理数据，通过内表将数据传递到Smart form。因此需要在samrt form中设置接口接受数据，并将期按规定格式显示。

二、处理流程:

1.    在sap命令行输入smartforms,并以ZCUSTOMERS为名字建立smart form

2.    在global settings->form interface->tables中建立itab like ZCUSTOMERS如下图：

 

 

3.    在global settings->global definations->global data中定义：wa type ZCUSTOMERS

4.    在main window下create table ,名字为默认%TABLE1,并增加%LTYPE1,在data页面中设置itab into wa.

 

5.    在main area下增加table line,并分配line type 为%LTYPE1.

   

 

6.    以上图方式增加4个cell名字默认也可自己设置，同时在每个cell下见一个text,其输出字段分别为：&wa-client&, &wa-client&,&wa-id&,&wa-name&

7.    保存并激活smart form就可以了。在这个form中没有读取数据，因此运行时会出错误。

8.    在abap editor中新建程序zzz_jaytest3 .具体代码如下：

   *&---------------------------------------------------------------------* *& Report  ZZZ_JAYTEST3 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zzz_jaytest3 . * Variable Declaration data itab1  TYPE STANDARD TABLE OF ZCUSTOMERS. data itab2 TYPE   ZCUSTOMERS. SELECT-OPTIONS so_name for itab2-name. START-OF-SELECTION. select * from ZCUSTOMERS into table itab1 where name in so_name. data : v_form_name TYPE rs38l_fnam. call function 'SSF_FUNCTION_MODULE_NAME' exporting formname = 'ZBSUNTEST' importing fm_name = v_form_name exceptions no_form = 1 no_function_module = 2 others = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CALL FUNCTION v_form_name TABLES itab = itab1 EXCEPTIONS FORMATTING_ERROR = 1 INTERNAL_ERROR = 2 SEND_ERROR = 3 USER_CANCELED = 4 OTHERS = 5. IF sy-subrc <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

9.保存并激活后，运行结果如下。