使用'SAPGUI_SET_PROPERTY'函数是GUI屏幕可见和不可见

REPORT  ZTEST_INVISIBLE_TRICK         .*************************************************************
START-OF-SELECTION.
*处理前使SAPGUI的屏幕在用户屏幕列表中不可见
CALL FUNCTION 'SAPGUI_SET_PROPERTY'
   DESTINATION 'SAPGUI'
   EXPORTING
     property = 'VISIBLE'
     value = ' '
   EXCEPTIONS
     system_failure = 1
     communication_failure = 2
     OTHERS = 3.
************************************************************************
DO 1000 TIMES.
*doing some work which takes lot of time   
  DO 1000 TIMES.   
  ENDDO.
*Resetting time counter of dialog process so that time-out does not
*happen. Use this fm within your programs at appropriate locations to
*reset time counter.  

 CALL FUNCTION 'TH_REDISPATCH'.

ENDDO.
*处理完成后使SAPGUI屏幕可见
CALL FUNCTION 'SAPGUI_SET_PROPERTY'
     DESTINATION 'SAPGUI'
     EXPORTING
       property = 'VISIBLE'
       value = 'X'
     EXCEPTIONS
       system_failure = 1
       communication_failure = 2
       OTHERS = 3.

  • 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、付费专栏及课程。

余额充值