SmartForm调用自定义内表的第三种方法:在SmartForm中定义一个指针指向程序中的内表。
PS:个人觉得这个方法是最简洁的,使用这种方法SmartForm中并不需要传入参数就可以调用到内表中的值。
1、和第二种方法一样,需要在全局定义中定义两个结构类型和内表ITAB与工作区WA
2、“全局设置”-〉“全局定义”-〉“初始化”
定义一个指针:
这样就可以把程序里的内表的值取出来了,并赋给了smartforms里的内表ITAB,然后就当ITAB就是你通过参数传进来的一样用就行了。
程序代码:
*&---------------------------------------------------------------------*
*& Report ZTEST_SMARTFORM2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_SMARTFORM2.
DATA: BEGIN OF it_itab OCCURS 0,
col1 TYPE i,
col2 TYPE i,
col3 TYPE i,
col4 TYPE i,
END OF it_itab.
START-OF-SELECTION.
PERFORM frm_get_data.
PERFORM frm_print_data.
*&---------------------------------------------------------------------*
*& Form frm_get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_get_data.
DO 20 TIMES.
it_itab-col1 = it_itab-col1 + 1.
it_itab-col2 = it_itab-col2 + 2.
it_itab-col3 = it_itab-col3 + 3.
it_itab-col4 = it_itab-col4 + 4.
APPEND it_itab.
ENDDO.
ENDFORM. "frm_get_data
*&---------------------------------------------------------------------*
*& Form frm_print_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_print_data.
DATA: m_fm TYPE rs38l_fnam.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZTEST_CYH4'
IMPORTING
fm_name = m_fm
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 m_fm
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.
ENDFORM.
注:由于SmartForm中使用了指针指向程序,程序必须激活才能运行,否则会报错。