mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
Fix detection of SAP GUI for Windows (#5913)
This commit is contained in:
parent
54168655b5
commit
20e7c5f910
|
@ -324,32 +324,9 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD zif_abapgit_frontend_services~is_sapgui_for_windows.
|
METHOD zif_abapgit_frontend_services~is_sapgui_for_windows.
|
||||||
|
|
||||||
DATA: lv_platform TYPE i.
|
CALL FUNCTION 'GUI_HAS_ACTIVEX'
|
||||||
|
IMPORTING
|
||||||
cl_gui_frontend_services=>get_platform(
|
return = rv_result.
|
||||||
RECEIVING
|
|
||||||
platform = lv_platform
|
|
||||||
EXCEPTIONS
|
|
||||||
error_no_gui = 1
|
|
||||||
cntl_error = 2
|
|
||||||
not_supported_by_gui = 3
|
|
||||||
OTHERS = 4 ).
|
|
||||||
IF sy-subrc <> 0.
|
|
||||||
rv_result = abap_false.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
CASE lv_platform.
|
|
||||||
WHEN cl_gui_frontend_services=>platform_nt351 OR
|
|
||||||
cl_gui_frontend_services=>platform_nt40 OR
|
|
||||||
cl_gui_frontend_services=>platform_nt50 OR
|
|
||||||
cl_gui_frontend_services=>platform_windows95 OR
|
|
||||||
cl_gui_frontend_services=>platform_windows98 OR
|
|
||||||
cl_gui_frontend_services=>platform_windowsxp.
|
|
||||||
" Everything after Windows XP is reported as Windows XP
|
|
||||||
rv_result = abap_true.
|
|
||||||
WHEN OTHERS.
|
|
||||||
rv_result = abap_false.
|
|
||||||
ENDCASE.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user