SF实例

最新推荐文章于 2024-01-10 12:25:09 发布

saptopia

最新推荐文章于 2024-01-10 12:25:09 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 应用文章标签： function parameters module header processing output

本文链接：https://blog.youkuaiyun.com/saptopia/article/details/1758455

ABAP 应用专栏收录该内容

39 篇文章

订阅专栏

DATA it_itab TYPE STANDARD TABLE OF ledlv_delnote WITH HEADER LINE.
DATA wa LIKE LINE OF it_itab.

DATA it_line TYPE STANDARD TABLE OF ledlv_hd_adr WITH HEADER LINE.

START-OF-SELECTION.
PERFORM getdata.
PERFORM fixdata.
PERFORM printdata.

*&---------------------------------------------------------------------*
*& Form getdata
*&---------------------------------------------------------------------*
FORM getdata .
it_itab-hd_gen-deliv_numb = '1000001'.
it_line-addr_no = '001'.
APPEND it_line.
it_line-addr_no = '002'.
APPEND it_line.
LOOP AT it_line.
APPEND it_line TO it_itab-hd_adr.
ENDLOOP.
APPEND it_itab.

CLEAR it_itab.
CLEAR it_line.
REFRESH it_line.
it_itab-hd_gen-deliv_numb = '1000002'.
it_line-addr_no = '003'.
APPEND it_line.
it_line-addr_no = '004'.
APPEND it_line.
LOOP AT it_line.
APPEND it_line TO it_itab-hd_adr.
ENDLOOP.
APPEND it_itab.

CLEAR it_itab.
CLEAR it_line.
REFRESH it_line.
it_itab-hd_gen-deliv_numb = '1000003'.
it_line-addr_no = '005'.
APPEND it_line.
it_line-addr_no = '006'.
APPEND it_line.
it_line-addr_no = '007'.
APPEND it_line.
LOOP AT it_line.
APPEND it_line TO it_itab-hd_adr.
ENDLOOP.
APPEND it_itab.
ENDFORM. " getdata

*&--------------------------------------------------------------------*
*& Form fixdata
*&--------------------------------------------------------------------*
FORM fixdata .

ENDFORM. " getdata

*&--------------------------------------------------------------------*
*&      Form printdata
*&--------------------------------------------------------------------*
FORM printdata.
DATA: lf_fm_name            TYPE rs38l_fnam.
DATA: ls_control_param      TYPE ssfctrlop.
DATA: ls_composer_param     TYPE ssfcompop.
DATA: ls_sender             TYPE swotobjid.
DATA: lf_formname           TYPE tdsfname.

* ls_control_param-no_dialog   = 'X'. "必须维护用户参数文件里面的“假脱机控制”
ls_control_param-preview     = 'X'.
ls_control_param-langu       = sy-langu.

ls_control_param-no_open = 'X'.
ls_control_param-no_close = 'X'.

lf_formname = 'Z_TEST_SF'.

CALL FUNCTION 'SSF_OPEN'
    EXPORTING
      control_parameters = ls_control_param
      output_options     = ls_composer_param
    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.
    EXIT.
ENDIF.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = lf_formname
    IMPORTING
      fm_name            = lf_fm_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
IF sy-subrc <> 0.
    MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
ENDIF.

LOOP AT it_itab INTO wa.
    CALL FUNCTION lf_fm_name
      EXPORTING
        control_parameters = ls_control_param
        output_options     = ls_composer_param
        user_settings      = ' '
        is_dlv_delnote     = wa
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
      MESSAGE 'Call SmartForms Error' TYPE 'E'.
    ENDIF.
ENDLOOP.

CALL FUNCTION 'SSF_CLOSE'
    EXCEPTIONS
      formatting_error = 1
      internal_error   = 2
      send_error       = 3
      OTHERS           = 4.
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. "PROCESSING