SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +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:24:37 +01:00 committed by GitHub
parent 79579dbf00
commit 3defcd28ff
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,11 +71,11 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize. METHOD zif_abapgit_object~deserialize.
DATA: lv_http_servid TYPE c LENGTH 30, DATA: lv_http_servid TYPE c LENGTH 30,
lt_handler TYPE TABLE OF ty_handler, lt_handler TYPE TABLE OF ty_handler,
lty_handler LIKE LINE OF lt_handler, ls_handler LIKE LINE OF lt_handler,
ls_description TYPE ty_uconhttpservtext, ls_description TYPE ty_uconhttpservtext,
ls_korr TYPE trkorr, ls_korr TYPE trkorr,
lv_check_object_name TYPE c LENGTH 40, lv_check_object_name TYPE c LENGTH 40,
lx TYPE REF TO cx_root, lx_root TYPE REF TO cx_root,
lv_id TYPE c LENGTH 30, lv_id TYPE c LENGTH 30,
lo_http TYPE REF TO object, lo_http TYPE REF TO object,
lv_abap_lang TYPE ty_gs_object_version, lv_abap_lang TYPE ty_gs_object_version,
@ -96,9 +96,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
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_root. " Exception
zcx_abapgit_exception=>raise( iv_text = lx->get_text( ) zcx_abapgit_exception=>raise( iv_text = lx_root->get_text( )
ix_previous = lx->previous ). ix_previous = lx_root->previous ).
ENDTRY. ENDTRY.
SELECT SINGLE id FROM ('uconhttpservhead') INTO lv_id WHERE id = lv_http_servid AND version = 'A'. SELECT SINGLE id FROM ('uconhttpservhead') INTO lv_id WHERE id = lv_http_servid AND version = 'A'.
@ -125,10 +125,10 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
EXPORTING EXPORTING
handler = lt_handler. handler = lt_handler.
IF lt_handler IS NOT INITIAL. IF lt_handler IS NOT INITIAL.
READ TABLE lt_handler INTO lty_handler INDEX 1. READ TABLE lt_handler INTO ls_handler INDEX 1.
"get language version from abap class "get language version from abap class
lv_check_object_name = lty_handler-servicehandler. lv_check_object_name = ls_handler-servicehandler.
IF lv_check_object_name IS NOT INITIAL. IF lv_check_object_name IS NOT INITIAL.
TRY. TRY.
CALL METHOD ('CL_ABAP_LANGUAGE_VERSION')=>('GET_INSTANCE') RECEIVING ro_version_handler = lv_instance. CALL METHOD ('CL_ABAP_LANGUAGE_VERSION')=>('GET_INSTANCE') RECEIVING ro_version_handler = lv_instance.
@ -160,9 +160,9 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
dev_class = iv_package dev_class = iv_package
korrnum = ls_korr. korrnum = ls_korr.
CALL METHOD lo_http->('IF_UCON_API_HTTP_SERVICE~FREE'). CALL METHOD lo_http->('IF_UCON_API_HTTP_SERVICE~FREE').
CATCH cx_root INTO lx. CATCH cx_root INTO lx_root.
zcx_abapgit_exception=>raise( iv_text = lx->get_text( ) zcx_abapgit_exception=>raise( iv_text = lx_root->get_text( )
ix_previous = lx->previous ). ix_previous = lx_root->previous ).
ENDTRY. ENDTRY.
DATA: lv_tadir_name TYPE tadir-obj_name. DATA: lv_tadir_name TYPE tadir-obj_name.
@ -176,8 +176,8 @@ CLASS ZCL_ABAPGIT_OBJECT_HTTP IMPLEMENTATION.
iv_task = ls_korr iv_task = ls_korr
IMPORTING IMPORTING
et_log = lt_ret. et_log = lt_ret.
CATCH cx_root INTO lx. CATCH cx_root INTO lx_root.
zcx_abapgit_exception=>raise( lx->get_text( ) ). zcx_abapgit_exception=>raise( lx_root->get_text( ) ).
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.