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.保存并激活后,运行结果如下。