ABAP 报表加自定义按钮

原创已于 2022-12-29 13:48:23 修改 · 1.5k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP 报表加自定义按钮

于 2021-08-25 16:43:37 首次发布

SAP ABAP 专栏收录该内容

71 篇文章

订阅专栏

这篇博客介绍了如何在SAP报表中添加自定义功能，包括数据模版下载和日志查看按钮。通过ABAP编程，实现了用户点击按钮后触发下载模板和跳转至日志查看的逻辑。在初始化阶段设置函数文本，并在选择屏幕事件中处理用户输入，以实现特定功能。

很多报表，我们要给它加几个自定义按钮，比如加数据模版下载按钮，转到日志查看按钮等等。

相关联的文章：ABAP上传excel文件模板到SAP服务器



DATA: functxt TYPE smp_dyntxt.
TABLES: sscrfields.
SELECTION-SCREEN: FUNCTION KEY 1,FUNCTION KEY 2."download template.


initialization.


  functxt-icon_id       = icon_xxl.
  functxt-icon_text     = text-002.
  sscrfields-functxt_01 = functxt.

  functxt-icon_id       = ICON_SPOOL_REQUEST.
  functxt-icon_text     = text-003.
  sscrfields-functxt_02 = functxt.


  AT SELECTION-SCREEN.

  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_template_down.
    WHEN 'FC02'.
      SUBMIT ZSDR0026 VIA SELECTION-SCREEN.


  ENDCASE.




FORM frm_template_down .
  DATA: lv_filename    TYPE string,
         lv_path        TYPE string,
         lv_fullpath    TYPE string,
         lv_user_action TYPE i,
         lv_destination TYPE rlgrap-filename,
         ls_objdata     TYPE wwwdatatab,
         lv_objid       TYPE wwwdatatab-objid,
         lv_rc          TYPE sy-subrc.

  lv_filename = 'Template Download'.

  CONCATENATE sy-datum '-' sy-uzeit '-' lv_filename INTO lv_filename.

  IF lv_user_action <> 9.
    SELECT SINGLE relid objid
      FROM wwwdata
      INTO CORRESPONDING FIELDS OF  ls_objdata
      WHERE srtf2 = 0
      AND   objid = 'ZSDE0006'
      AND   relid = 'MI'.
    IF sy-subrc = 0.
      CLEAR lv_rc.
      CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
        EXPORTING
          key               = ls_objdata
          destination       = lv_destination
        IMPORTING
          rc                = lv_rc
*    CHANGING
*      TEMP              =
                .
      IF lv_rc EQ 0 .
        MESSAGE  'Template download sucessful.' TYPE 'S'.
      ELSE.
        MESSAGE  'The template is not exit.' TYPE 'S' DISPLAY LIKE 'E'.
      ENDIF.
    ELSE.
      MESSAGE  'The template is not exit.' TYPE 'S' DISPLAY LIKE 'E'.
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_TEMPLATE_DOWN.