SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix abaplint issues

Browse Source
This commit is contained in:
Thomas Ploski 2024-12-04 16:11:05 +00:00
parent 353b14f8a1
commit 8f34cce709
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/objects/zcl_abapgit_object_http.clas.abap
View File

@ -44,9 +44,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
TRY. TRY.
SELECT SINGLE changedby FROM ('uconhttpservhead') INTO rv_user WHERE id = ms_item-obj_name. SELECT SINGLE changedby FROM ('uconhttpservhead') INTO rv_user WHERE id = ms_item-obj_name.
if sy-subrc <> 0. IF sy-subrc <> 0.
rv_user = c_user_unknown. rv_user = c_user_unknown.
endif. ENDIF.
CATCH cx_root. CATCH cx_root.
zcx_abapgit_exception=>raise( 'HTTP not supported' ). zcx_abapgit_exception=>raise( 'HTTP not supported' ).
ENDTRY. ENDTRY.
@ -55,7 +55,7 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA lx TYPE REF TO cx_root. DATA lx TYPE REF TO cx_root.
data lo_name type c length 30. DATA lo_name TYPE c LENGTH 30.
lo_name = ms_item-obj_name. lo_name = ms_item-obj_name.
TRY. TRY.
CALL METHOD ('CL_UCON_API_FACTORY')=>('DELETE_HTTP_SERVICE') CALL METHOD ('CL_UCON_API_FACTORY')=>('DELETE_HTTP_SERVICE')
@ -95,8 +95,8 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
io_xml->read( io_xml->read(
EXPORTING iv_name = 'HTTPHDL' EXPORTING iv_name = 'HTTPHDL'
CHANGING cg_data = lt_handler ). CHANGING cg_data = lt_handler ).
data lo_transport type ref to zcl_abapgit_default_transport. DATA lo_transport TYPE REF TO zcl_abapgit_default_transport.
create object lo_transport. CREATE OBJECT lo_transport.
ls_korr = lo_transport->zif_abapgit_default_transport~get( )-ordernum. ls_korr = lo_transport->zif_abapgit_default_transport~get( )-ordernum.
CATCH zcx_abapgit_exception INTO lx. " Exception CATCH zcx_abapgit_exception INTO lx. " Exception
@ -143,9 +143,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
RECEIVING RECEIVING
rs_object_version = lv_abap_lang. rs_object_version = lv_abap_lang.
if lv_abap_lang-id = 'X'. "language version X not supported, use space instead IF lv_abap_lang-id = 'X'. "language version X not supported, use space instead
lv_abap_lang-id = space. lv_abap_lang-id = space.
endif. ENDIF.
CALL METHOD lo_http->('IF_UCON_API_HTTP_SERVICE~SET_LANGUAGE_VERSION') EXPORTING iv_langu_version = lv_abap_lang-id. CALL METHOD lo_http->('IF_UCON_API_HTTP_SERVICE~SET_LANGUAGE_VERSION') EXPORTING iv_langu_version = lv_abap_lang-id.
CATCH cx_abap_language_version INTO lx. CATCH cx_abap_language_version INTO lx.
@ -216,28 +216,19 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
rs_metadata = get_metadata( ). rs_metadata = get_metadata( ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~is_active. METHOD zif_abapgit_object~is_active.
rv_active = is_active( ). rv_active = is_active( ).
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~jump. METHOD zif_abapgit_object~jump.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
* data for http service from tables
*UCONHTTPSERVHEAD
*UCONHTTPSERVTEXT
*Key Column id uconhttpservid char(30) HTTP Service ID
*Key Column version r3state char(1) ABAP: Program Status (Active, Saved, Transported...)
*Key Column lang sprsl lang(1) Language Key
*Column shorttext ucontext char(255) Unified Connectivity Text (short)
DATA: lv_http_srv_id TYPE c LENGTH 30, DATA: lv_http_srv_id TYPE c LENGTH 30,
lo_serv TYPE REF TO object, "if_ucon_api_http_service lo_serv TYPE REF TO object, "if_ucon_api_http_service
lt_handler TYPE TABLE OF s_uconservhttphandler, lt_handler TYPE TABLE OF s_uconservhttphandler,
@ -282,16 +273,19 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
"ii_log->add_error( iv_msg = lv_text is_item = ms_item ). " Exception "ii_log->add_error( iv_msg = lv_text is_item = ms_item ). " Exception
CATCH cx_ucon_api_http_service INTO lx. CATCH cx_ucon_api_http_service INTO lx.
lv_text = lx->get_text( ). lv_text = lx->get_text( ).
"ii_log->add_error( iv_msg = lv_text is_item = ms_item ).
CATCH cx_root INTO lx. CATCH cx_root INTO lx.
zcx_abapgit_exception=>raise( 'HTTP not supported' ). zcx_abapgit_exception=>raise( 'HTTP not supported' ).
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~map_filename_to_object. METHOD zif_abapgit_object~map_filename_to_object.
RETURN. RETURN.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~get_deserialize_order. METHOD zif_abapgit_object~get_deserialize_order.
RETURN. RETURN.
ENDMETHOD. ENDMETHOD.