extract logic

This commit is contained in:
Lars HVam 2025-04-18 16:49:37 +02:00
parent b59c878a79
commit dc6a5a9854
3 changed files with 52 additions and 34 deletions

View File

@ -20,9 +20,6 @@ CLASS zcl_abapgit_web DEFINITION
CLASS-DATA gi_request TYPE REF TO zif_abapgit_web_request. CLASS-DATA gi_request TYPE REF TO zif_abapgit_web_request.
CLASS-DATA gi_response TYPE REF TO zif_abapgit_web_response. CLASS-DATA gi_response TYPE REF TO zif_abapgit_web_response.
CLASS-METHODS initialize
RAISING
zcx_abapgit_exception.
CLASS-METHODS sapevent. CLASS-METHODS sapevent.
CLASS-METHODS redirect. CLASS-METHODS redirect.
CLASS-METHODS search_asset CLASS-METHODS search_asset
@ -46,7 +43,15 @@ CLASS zcl_abapgit_web IMPLEMENTATION.
gi_response = ii_response. gi_response = ii_response.
IF go_viewer IS INITIAL. IF go_viewer IS INITIAL.
initialize( ). zcl_abapgit_web_setup=>setup( ).
CREATE OBJECT go_viewer
EXPORTING
ii_request = ii_request
ii_response = ii_response.
zcl_abapgit_ui_core_injector=>set_html_viewer( go_viewer ).
go_gui = zcl_abapgit_ui_factory=>get_gui( ).
ENDIF. ENDIF.
lv_found = search_asset( ). lv_found = search_asset( ).
@ -70,36 +75,6 @@ CLASS zcl_abapgit_web IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD initialize.
DATA lo_environment TYPE REF TO zcl_abapgit_web_environment.
DATA lo_cts_api TYPE REF TO zcl_abapgit_web_cts_api.
DATA lo_user_record TYPE REF TO zcl_abapgit_web_user_record.
zcl_abapgit_web_inject_fm=>inject( ).
CREATE OBJECT lo_environment.
zcl_abapgit_injector=>set_environment( lo_environment ).
CREATE OBJECT lo_cts_api.
zcl_abapgit_injector=>set_cts_api( lo_cts_api ).
CREATE OBJECT lo_user_record.
zcl_abapgit_env_injector=>set_user_record( lo_user_record ).
CREATE OBJECT go_viewer
EXPORTING
ii_request = gi_request
ii_response = gi_response.
zcl_abapgit_ui_core_injector=>set_html_viewer( go_viewer ).
go_gui = zcl_abapgit_ui_factory=>get_gui( ).
ENDMETHOD.
METHOD redirect. METHOD redirect.
DATA lv_html TYPE string. DATA lv_html TYPE string.

View File

@ -0,0 +1,27 @@
CLASS zcl_abapgit_web_setup DEFINITION PUBLIC.
PUBLIC SECTION.
CLASS-METHODS setup
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_web_setup IMPLEMENTATION.
METHOD setup.
DATA lo_environment TYPE REF TO zcl_abapgit_web_environment.
DATA lo_cts_api TYPE REF TO zcl_abapgit_web_cts_api.
DATA lo_user_record TYPE REF TO zcl_abapgit_web_user_record.
zcl_abapgit_web_inject_fm=>inject( ).
CREATE OBJECT lo_environment.
zcl_abapgit_injector=>set_environment( lo_environment ).
CREATE OBJECT lo_cts_api.
zcl_abapgit_injector=>set_cts_api( lo_cts_api ).
CREATE OBJECT lo_user_record.
zcl_abapgit_env_injector=>set_user_record( lo_user_record ).
ENDMETHOD.
ENDCLASS.

View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_WEB_SETUP</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>ZCL_ABAPGIT_WEB_SETUP</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>