SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update zcl_abapgit_object_http.clas.abap

Browse Source
This commit is contained in:
ThomasPloski 2024-12-05 09:10:27 +01:00 committed by GitHub
parent 5cb27f3502
commit 910f7fe965
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -143,7 +143,8 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
lv_abap_lang-id = space.
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_root INTO lx.
zcx_abapgit_exception=>raise( iv_text = lx->get_text( )
ix_previous = lx ).
@ -182,10 +183,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
METHOD zif_abapgit_object~exists.
TRY.
DATA lv_id TYPE c LENGTH 30.
TRY.
SELECT SINGLE id FROM ('uconhttpservhead') INTO lv_id WHERE id = ms_item-obj_name AND version = 'A'.
rv_bool = boolc( sy-subrc = 0 ).
CATCH cx_root.
zcx_abapgit_exception=>raise( 'HTTP not supported' ).
@ -225,7 +225,8 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
lt_handler TYPE TABLE OF ty_uconservhttphandler,
ls_description TYPE ty_uconhttpservtext,
lv_text TYPE string,
lx TYPE REF TO cx_root.
lx_root TYPE REF TO cx_root,
lv_name TYPE c LENGTH 30.
TRY.
lv_http_srv_id = ms_item-obj_name.
"read http service object
@ -244,7 +245,6 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
text = ls_description.
"add data to output
DATA lv_name TYPE c LENGTH 30.
CALL METHOD lo_serv->('IF_UCON_API_HTTP_SERVICE~GET_NAME') RECEIVING name = lv_name.
io_xml->add(
iv_name = 'HTTPID'
@ -257,12 +257,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
io_xml->add(
iv_name = 'HTTPHDL'
ig_data = lt_handler ).
CATCH cx_root INTO lx.
lv_text = lx->get_text( ).
CATCH cx_root INTO lx_root.
lv_text = lx_root->get_text( ).
"ii_log->add_error( iv_msg = lv_text is_item = ms_item ). " Exception
CATCH cx_ucon_api_http_service INTO lx.
lv_text = lx->get_text( ).
CATCH cx_root INTO lx.
zcx_abapgit_exception=>raise( 'HTTP not supported' ).
ENDTRY.
ENDMETHOD.