ABAP SAPGUI_PROGRESS_INDICATOR 显示数据处理进度

ABAP处理的数据量较大时,盯着一动不动的选择屏幕是不是很无聊??

LOOP AT I_TAB.

    DESCRIBE TABLE I_TAB[] LINES L_LIN.

    L_PERC = SY-TABIX / L_LIN * 100.

    L_LIN1 =  L_PERC.

    CONCATENATE L_LIN1 '%' ',' '正在解析文件...'

           INTO L_TXT.

    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

     EXPORTING

       PERCENTAGE = L_PERC

       TEXT       = L_TXT.

   

   

  。

  。

  。

  。

  。

ENDLOOP. 

效果:

转载于:https://www.cnblogs.com/mingdashu/p/5313423.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ABAP 的 `GUI_FILE_LOAD_DIALOG` 函数可以用于从本地文件系统加载文件。下面是一个示例程序,该程序使用 `GUI_FILE_LOAD_DIALOG` 函数加载一个 CSV 文件,并将其内容显示在 ALV 报表中: ```abap REPORT ztest_gui_file_load_dialog. * 定义内表 TYPES: BEGIN OF ty_data, field1 TYPE string, field2 TYPE string, field3 TYPE string, END OF ty_data. DATA: it_data TYPE STANDARD TABLE OF ty_data, wa_data TYPE ty_data. * 定义 ALV 表格相关变量 DATA: it_fieldcat TYPE slis_t_fieldcat_alv, wa_fieldcat TYPE slis_fieldcat_alv. * 定义文件路径变量 DATA: lv_filename TYPE string. * 调用 GUI_FILE_LOAD_DIALOG 函数选择文件 CALL FUNCTION 'GUI_FILE_LOAD_DIALOG' EXPORTING window_title = '请选择一个 CSV 文件' IMPORTING filename = lv_filename EXCEPTIONS canceled_by_user = 1 others = 2. IF sy-subrc <> 0. MESSAGE '选择文件时出现错误。' TYPE 'E'. EXIT. ENDIF. * 使用 GUI_UPLOAD 函数将文件内容读取到内表中 CALL FUNCTION 'GUI_UPLOAD' EXPORTING filename = lv_filename filetype = 'ASC' has_field_separator = 'X' header_length = 0 read_by_line = 'X' dat_mode = 'X' TABLES data_tab = it_data EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 OTHERS = 17. IF sy-subrc <> 0. MESSAGE '读取文件时出现错误。' TYPE 'E'. EXIT. ENDIF. * 设置 ALV 表格字段目录 wa_fieldcat-fieldname = 'FIELD1'. wa_fieldcat-ref_table = 'IT_DATA'. APPEND wa_fieldcat TO it_fieldcat. wa_fieldcat-fieldname = 'FIELD2'. wa_fieldcat-ref_table = 'IT_DATA'. APPEND wa_fieldcat TO it_fieldcat. wa_fieldcat-fieldname = 'FIELD3'. wa_fieldcat-ref_table = 'IT_DATA'. APPEND wa_fieldcat TO it_fieldcat. * 显示 ALV 报表 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid is_layout = VALUE #( grid_title = 'CSV 数据' ) TABLES t_fieldcat = it_fieldcat t_outtab = it_data. ``` 在这个示例程序中,我们首先调用 `GUI_FILE_LOAD_DIALOG` 函数选择一个 CSV 文件,并将其路径保存到 `lv_filename` 变量中。然后,我们使用 `GUI_UPLOAD` 函数将文件内容读取到内表 `it_data` 中。最后,我们使用 `REUSE_ALV_GRID_DISPLAY` 函数显示 ALV 报表,将内表 `it_data` 中的数据显示出来。 请注意,`GUI_FILE_LOAD_DIALOG` 和 `GUI_UPLOAD` 函数只能在 SAP GUI 中使用,不能在 Web 上运行。如果你需要从 Web 页面上传文件,你可以使用 SAP NetWeaver Gateway 或 SAP Cloud Platform ABAP Environment 等技术。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值