技术开发 频道

SmartForm调用内表的三种方法

    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中使用了指针指向程序,程序必须激活才能运行,否则会报错。

0
相关文章