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

Merge branch 'main' into mbtools/alav-ddic

Browse Source
This commit is contained in:
Christian Günter 2025-04-28 11:48:55 +02:00 committed by GitHub
commit 8c6cce5c40
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 80 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/objects/zcl_abapgit_object_samc.clas.abap
View File

@ -21,6 +21,8 @@ CLASS zcl_abapgit_object_samc DEFINITION
REDEFINITION . REDEFINITION .
METHODS get_persistence_class_name METHODS get_persistence_class_name
REDEFINITION . REDEFINITION .
METHODS get_lock_object
REDEFINITION .
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -60,4 +62,12 @@ CLASS zcl_abapgit_object_samc IMPLEMENTATION.
rv_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_AMC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
METHOD get_lock_object.
rv_lock_object = 'E_AMC_APPL'.
ENDMETHOD.
ENDCLASS. ENDCLASS.

10
src/objects/zcl_abapgit_object_sapc.clas.abap
View File

@ -21,6 +21,8 @@ CLASS zcl_abapgit_object_sapc DEFINITION
REDEFINITION . REDEFINITION .
METHODS get_persistence_class_name METHODS get_persistence_class_name
REDEFINITION . REDEFINITION .
METHODS get_lock_object
REDEFINITION .
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -60,4 +62,12 @@ CLASS zcl_abapgit_object_sapc IMPLEMENTATION.
rv_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'. rv_persistence_class_name = 'CL_APC_APPLICATION_OBJ_PERS'.
ENDMETHOD. ENDMETHOD.
METHOD get_lock_object.
rv_lock_object = 'E_APC_APPL'.
ENDMETHOD.
ENDCLASS. ENDCLASS.

117
src/objects/zcl_abapgit_object_saxx_super.clas.abap
View File

@ -8,21 +8,27 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES zif_abapgit_object . INTERFACES zif_abapgit_object .
METHODS constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras
io_files TYPE REF TO zcl_abapgit_objects_files OPTIONAL
io_i18n_params TYPE REF TO zcl_abapgit_i18n_params OPTIONAL.
PROTECTED SECTION. PROTECTED SECTION.
METHODS get_persistence_class_name METHODS get_persistence_class_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_persistence_class_name) TYPE seoclsname . VALUE(rv_persistence_class_name) TYPE seoclsname .
METHODS get_data_class_name METHODS get_data_class_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_data_class_name) TYPE seoclsname . VALUE(rv_data_class_name) TYPE seoclsname .
METHODS get_data_structure_name METHODS get_data_structure_name ABSTRACT
ABSTRACT
RETURNING RETURNING
VALUE(rv_data_structure_name) TYPE string . VALUE(rv_data_structure_name) TYPE string .
METHODS get_lock_object ABSTRACT
RETURNING
VALUE(rv_lock_object) TYPE string.
METHODS create_channel_objects METHODS create_channel_objects
RAISING RAISING
zcx_abapgit_type_not_supported . zcx_abapgit_type_not_supported .
@ -34,6 +40,7 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
DATA mv_data_structure_name TYPE string . DATA mv_data_structure_name TYPE string .
DATA mv_appl_obj_cls_name TYPE seoclsname . DATA mv_appl_obj_cls_name TYPE seoclsname .
DATA mv_persistence_cls_name TYPE seoclsname . DATA mv_persistence_cls_name TYPE seoclsname .
DATA mv_object_key TYPE seu_objkey .
METHODS get_data METHODS get_data
EXPORTING EXPORTING
@ -47,26 +54,34 @@ CLASS zcl_abapgit_object_saxx_super DEFINITION
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS get_names . METHODS get_names .
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION. CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD constructor.
super->constructor(
is_item = is_item
iv_language = iv_language
io_files = io_files
io_i18n_params = io_i18n_params ).
mv_object_key = ms_item-obj_name.
ENDMETHOD.
METHOD create_channel_objects. METHOD create_channel_objects.
get_names( ). get_names( ).
TRY. TRY.
IF mi_appl_obj_data IS NOT BOUND. CREATE OBJECT mi_appl_obj_data TYPE (mv_appl_obj_cls_name).
CREATE OBJECT mi_appl_obj_data TYPE (mv_appl_obj_cls_name). CREATE OBJECT mi_persistence TYPE (mv_persistence_cls_name).
ENDIF.
IF mi_persistence IS NOT BOUND. CATCH cx_sy_create_object_error.
CREATE OBJECT mi_persistence TYPE (mv_persistence_cls_name).
ENDIF.
CATCH cx_root.
RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = ms_item-obj_type. RAISE EXCEPTION TYPE zcx_abapgit_type_not_supported EXPORTING obj_type = ms_item-obj_type.
ENDTRY. ENDTRY.
@ -75,20 +90,17 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD get_data. METHOD get_data.
DATA: lv_object_key TYPE seu_objkey, DATA: lx_error TYPE REF TO cx_swb_exception.
lx_error TYPE REF TO cx_root.
lv_object_key = ms_item-obj_name.
TRY. TRY.
mi_persistence->get( mi_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = mv_object_key
p_version = 'A' p_version = 'A'
CHANGING CHANGING
p_object_data = mi_appl_obj_data ). p_object_data = mi_appl_obj_data ).
CATCH cx_root INTO lx_error. CATCH cx_swb_exception INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ). zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY. ENDTRY.
@ -116,18 +128,16 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD lock. METHOD lock.
DATA: lv_objname TYPE trobj_name, DATA: lv_objname TYPE trobj_name,
lv_object_key TYPE seu_objkey, lv_objtype TYPE trobjtype.
lv_objtype TYPE trobjtype.
lv_objname = ms_item-obj_name. lv_objname = ms_item-obj_name.
lv_object_key = ms_item-obj_name. lv_objtype = ms_item-obj_type.
lv_objtype = ms_item-obj_type.
mi_persistence->lock( mi_persistence->lock(
EXPORTING EXPORTING
p_objname_tr = lv_objname p_objname_tr = lv_objname
p_object_key = lv_object_key p_object_key = mv_object_key
p_objtype_tr = lv_objtype p_objtype_tr = lv_objtype
EXCEPTIONS EXCEPTIONS
foreign_lock = 1 foreign_lock = 1
@ -143,16 +153,14 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD unlock. METHOD unlock.
DATA: lv_objname TYPE trobj_name, DATA: lv_objname TYPE trobj_name,
lv_object_key TYPE seu_objkey, lv_objtype TYPE trobjtype.
lv_objtype TYPE trobjtype.
lv_objname = ms_item-obj_name. lv_objname = ms_item-obj_name.
lv_object_key = ms_item-obj_name. lv_objtype = ms_item-obj_type.
lv_objtype = ms_item-obj_type.
mi_persistence->unlock( p_objname_tr = lv_objname mi_persistence->unlock( p_objname_tr = lv_objname
p_object_key = lv_object_key p_object_key = mv_object_key
p_objtype_tr = lv_objtype ). p_objtype_tr = lv_objtype ).
ENDMETHOD. ENDMETHOD.
@ -163,7 +171,6 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
DATA: lr_data TYPE REF TO data. DATA: lr_data TYPE REF TO data.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_header> TYPE any,
<lg_changed_by> TYPE any. <lg_changed_by> TYPE any.
CREATE DATA lr_data TYPE (mv_data_structure_name). CREATE DATA lr_data TYPE (mv_data_structure_name).
@ -171,9 +178,7 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
get_data( IMPORTING eg_data = <lg_data> ). get_data( IMPORTING eg_data = <lg_data> ).
ASSIGN COMPONENT 'HEADER' OF STRUCTURE <lg_data> TO <lg_header>. ASSIGN COMPONENT 'HEADER-CHANGED_BY' OF STRUCTURE <lg_data> TO <lg_changed_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE <lg_header> TO <lg_changed_by>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF <lg_changed_by> IS NOT INITIAL. IF <lg_changed_by> IS NOT INITIAL.
@ -187,15 +192,9 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
TRY. TRY.
lock( ). lock( ).
mi_persistence->delete( mv_object_key ).
mi_persistence->delete( lv_object_key ).
unlock( ). unlock( ).
CATCH cx_swb_exception. CATCH cx_swb_exception.
@ -229,13 +228,9 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
TRY. TRY.
lock( ). lock( ).
corr_insert( iv_package ). corr_insert( iv_package ).
mi_appl_obj_data->set_data( <lg_data> ). mi_appl_obj_data->set_data( <lg_data> ).
mi_persistence->save( mi_appl_obj_data ). mi_persistence->save( mi_appl_obj_data ).
unlock( ). unlock( ).
CATCH cx_swb_exception. CATCH cx_swb_exception.
@ -247,16 +242,12 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
TRY. TRY.
mi_persistence->get( p_object_key = lv_object_key mi_persistence->get( p_object_key = mv_object_key
p_version = 'A' p_version = 'A'
p_existence_check_only = abap_true ). p_existence_check_only = abap_true ).
CATCH cx_swb_object_does_not_exist cx_swb_exception. CATCH cx_swb_exception.
rv_bool = abap_false. rv_bool = abap_false.
RETURN. RETURN.
ENDTRY. ENDTRY.
@ -293,7 +284,18 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~is_locked. METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false. DATA: lv_argument TYPE seqg3-garg,
lv_lock_object TYPE string.
lv_lock_object = get_lock_object( ).
lv_argument = mv_object_key.
OVERLAY lv_argument WITH ' '.
lv_argument = lv_argument && '*'.
rv_is_locked = exists_a_lock_entry_for(
iv_lock_object = lv_lock_object
iv_argument = lv_argument ).
ENDMETHOD. ENDMETHOD.
@ -315,7 +317,7 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
DATA: lr_data TYPE REF TO data. DATA: lr_data TYPE REF TO data.
FIELD-SYMBOLS: <lg_data> TYPE any, FIELD-SYMBOLS: <lg_data> TYPE any,
<lg_header> TYPE any, <lg_header> TYPE any,
@ -365,4 +367,5 @@ CLASS zcl_abapgit_object_saxx_super IMPLEMENTATION.
ig_data = <lg_data> ). ig_data = <lg_data> ).
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.