凭证的连续打印贴在此处下次参考

最新推荐文章于 2022-05-24 19:17:28 发布

原创最新推荐文章于 2022-05-24 19:17:28 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

日志专栏收录该内容

70 篇文章

订阅专栏

本文介绍了一个ABAP程序中如何使用智能表单(Smart Forms)进行数据处理的方法。主要内容包括定义各种类型变量，调用检查更改数据的方法，通过智能表单功能模块名称获取相关信息，并设置控制参数和输出选项来实现特定功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DATA: func_mod_name TYPE rs38l_fnam,                            " 子程序名
        output_options TYPE ssfcompop,                            " SAP Smart Forms: 智能写作器 (传输) 选项
        it_job_output_info TYPE ssfcrescl,
        control_parameters TYPE ssfctrlop.                        " Smart Forms: 控制结构

  DATA: l_valid       TYPE c.

  DATA: l_tabix       TYPE sy-tabix,
        l_tabix1      TYPE sy-tabix,
        l_num         TYPE sy-tabix.

  CALL METHOD g_grid->check_changed_data
    IMPORTING
      e_valid = l_valid.

  CLEAR: gs_ekko_p, l_tabix.
  LOOP AT gt_ekko_p INTO gs_ekko_p WHERE checkbox = 'X'.
    l_tabix = l_tabix  + 1.
  ENDLOOP.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
        EXPORTING
          formname                 = 'ZMM_FORM_01'
*     VARIANT                  = ' '
*     DIRECT_CALL              = ' '
       IMPORTING
         fm_name                  = func_mod_name
       EXCEPTIONS
         no_form                  = 1
         no_function_module       = 2
         OTHERS                   = 3
              .

  output_options-tdnewid       = 'X'.
  control_parameters-preview   = 'X'.
  control_parameters-no_dialog = 'X'.

  LOOP AT gt_ekko_p INTO gs_ekko_p WHERE checkbox = 'X'.
    l_tabix1 = sy-tabix.

    IF l_tabix1 < l_tabix.
      control_parameters-no_close = 'X'.
    ELSE.
      control_parameters-no_close = space.
    ENDIF.

    CALL FUNCTION func_mod_name
      EXPORTING
        control_parameters = control_parameters
        output_options     = output_options
        i_ebeln            = gs_ekko_p-ebeln
      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.
    ELSE.
      control_parameters-no_open = 'X'.
    ENDIF.
  ENDLOOP.