0
点赞
收藏
分享

微信扫一扫

Smartform循环打印

西红柿上校 2023-09-18 阅读 19

DATA: ls_control_parameters  TYPE ssfctrlop.
  DATA: ls_output_options      TYPE ssfcompop.
  DATA: l_smf_name             TYPE rs38l_fnam.


  c_form_name = 'ZZZZZ'.          "smartform‘s  name
  ls_output_options-tdimmed       = 'X'.
  ls_output_options-tdcopies      = '1'.
  ls_output_options-tdnoprint     = ''.
  ls_output_options-tddelete      = 'X'.

  ls_control_parameters-no_dialog = ''.
  ls_control_parameters-preview   = 'X'.
  ls_control_parameters-langu     = '1'.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname = c_form_name
    IMPORTING
      fm_name  = l_smf_name.

  LOOP AT 抬头表.
    ls_control_parameters-no_close = 'X'.
    AT LAST.
      ls_control_parameters-no_close = space.
    ENDAT.     
        CALL FUNCTION l_smf_name
      EXPORTING
        control_parameters = ls_control_parameters
        output_options     = ls_output_options
        user_settings      = 'X'
      TABLES
        ??            =   ??
        ??            = ??
      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.
         ls_control_parameters-no_open = 'X'.
    AT LAST.
      ls_control_parameters-no_open = space.
    ENDAT.
  ENDLOOP.

举报

相关推荐

0 条评论