ABAP 报表选择屏幕加自定义字段
很多报表,我们要给它加几个自定义按钮,比如加数据模版下载按钮,转到日志查看按钮等等。
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.
post SAP-Garson
原文链接:https://blog.csdn.net/ot512csdn/article/details/119914594文章来自于网络,如果侵犯了您的权益,请联系站长删除!