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

lcl_objects_channel_super refactoring

Browse Source
This commit is contained in:
Christian Guenter 2017-07-24 21:13:07 +00:00
parent b621fbaa36
commit 0f6a47e5ce
3 changed files with 46 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/zabapgit_object_samc.prog.abap
View File

@ -4,9 +4,6 @@
CLASS lcl_object_samc DEFINITION INHERITING FROM lcl_objects_channel_super FINAL. CLASS lcl_object_samc DEFINITION INHERITING FROM lcl_objects_channel_super FINAL.
PUBLIC SECTION.
METHODS: lif_object~exists REDEFINITION.
PROTECTED SECTION. PROTECTED SECTION.
METHODS: METHODS:
get_persistence_cls_name REDEFINITION, get_persistence_cls_name REDEFINITION,
@ -22,21 +19,6 @@ ENDCLASS. "lcl_object_samc DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_object_samc IMPLEMENTATION. CLASS lcl_object_samc IMPLEMENTATION.
METHOD lif_object~exists.
DATA: ls_tadir TYPE tadir.
ls_tadir = lcl_tadir=>read_single(
iv_object = ms_item-obj_type
iv_obj_name = ms_item-obj_name ).
IF ls_tadir IS INITIAL.
RETURN.
ENDIF.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
METHOD get_appl_obj_cls_name. METHOD get_appl_obj_cls_name.
r_data_class_name = 'CL_AMC_APPLICATION_OBJ_DATA'. r_data_class_name = 'CL_AMC_APPLICATION_OBJ_DATA'.

18
src/zabapgit_object_sapc.prog.abap
View File

@ -4,9 +4,6 @@
CLASS lcl_object_sapc DEFINITION INHERITING FROM lcl_objects_channel_super FINAL. CLASS lcl_object_sapc DEFINITION INHERITING FROM lcl_objects_channel_super FINAL.
PUBLIC SECTION.
METHODS: lif_object~exists REDEFINITION.
PROTECTED SECTION. PROTECTED SECTION.
METHODS: METHODS:
get_persistence_cls_name REDEFINITION, get_persistence_cls_name REDEFINITION,
@ -22,21 +19,6 @@ ENDCLASS. "lcl_object_sAPC DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
CLASS lcl_object_sapc IMPLEMENTATION. CLASS lcl_object_sapc IMPLEMENTATION.
METHOD lif_object~exists.
DATA: ls_tadir TYPE tadir.
ls_tadir = lcl_tadir=>read_single(
iv_object = ms_item-obj_type
iv_obj_name = ms_item-obj_name ).
IF ls_tadir IS INITIAL.
RETURN.
ENDIF.
rv_bool = abap_true.
ENDMETHOD. "lif_object~exists
METHOD get_appl_obj_cls_name. METHOD get_appl_obj_cls_name.
r_data_class_name = 'CL_APC_APPLICATION_OBJ_DATA'. r_data_class_name = 'CL_APC_APPLICATION_OBJ_DATA'.

81
src/zabapgit_objects.prog.abap
View File

@ -1857,8 +1857,7 @@ CLASS lcl_objects_channel_super DEFINITION ABSTRACT
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES: INTERFACES:
lif_object lif_object.
ABSTRACT METHODS exists.
PROTECTED SECTION. PROTECTED SECTION.
METHODS: METHODS:
@ -1876,7 +1875,10 @@ CLASS lcl_objects_channel_super DEFINITION ABSTRACT
PRIVATE SECTION. PRIVATE SECTION.
DATA: mo_persistence TYPE REF TO if_wb_object_persist, DATA: mo_persistence TYPE REF TO if_wb_object_persist,
mo_appl_obj_data TYPE REF TO if_wb_object_data_model. mo_appl_obj_data TYPE REF TO if_wb_object_data_model,
mv_data_structure_name TYPE string,
mv_appl_obj_cls_name TYPE seoclsname,
mv_persistence_cls_name TYPE seoclsname.
METHODS: METHODS:
create_channel_objects create_channel_objects
@ -1895,7 +1897,9 @@ CLASS lcl_objects_channel_super DEFINITION ABSTRACT
unlock unlock
RAISING RAISING
lcx_exception. lcx_exception,
get_names.
ENDCLASS. ENDCLASS.
@ -1907,8 +1911,7 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
METHOD lif_object~changed_by. METHOD lif_object~changed_by.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data.
data_structure_name TYPE string.
FIELD-SYMBOLS: <ls_data> TYPE any, FIELD-SYMBOLS: <ls_data> TYPE any,
<ls_header> TYPE any, <ls_header> TYPE any,
@ -1917,8 +1920,7 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
create_channel_objects( ). create_channel_objects( ).
TRY. TRY.
data_structure_name = get_data_structure_name( ). CREATE DATA lr_data TYPE (mv_data_structure_name).
CREATE DATA lr_data TYPE (data_structure_name).
ASSIGN lr_data->* TO <ls_data>. ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root. CATCH cx_root.
@ -1943,25 +1945,31 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
rs_metadata-delete_tadir = abap_true. rs_metadata-delete_tadir = abap_true.
ENDMETHOD. ENDMETHOD.
* METHOD lif_object~exists. METHOD lif_object~exists.
*
* DATA: ls_tadir TYPE tadir. DATA: object_key TYPE seu_objkey.
*
* ls_tadir = lcl_tadir=>read_single( create_channel_objects( ).
* iv_object = ms_item-obj_type
* iv_obj_name = ms_item-obj_name ). object_key = ms_item-obj_name.
* IF ls_tadir IS INITIAL.
* RETURN. TRY.
* ENDIF. mo_persistence->get( p_object_key = object_key
* p_version = 'A'
* rv_bool = abap_true. p_existence_check_only = abap_true ).
*
* ENDMETHOD. CATCH cx_swb_object_does_not_exist cx_swb_exception.
rv_bool = abap_false.
RETURN.
ENDTRY.
rv_bool = abap_true.
ENDMETHOD.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data.
data_structure_name TYPE string.
FIELD-SYMBOLS: <ls_data> TYPE any, FIELD-SYMBOLS: <ls_data> TYPE any,
<ls_header> TYPE any, <ls_header> TYPE any,
@ -1970,8 +1978,7 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
create_channel_objects( ). create_channel_objects( ).
TRY. TRY.
data_structure_name = get_data_structure_name( ). CREATE DATA lr_data TYPE (mv_data_structure_name).
CREATE DATA lr_data TYPE (data_structure_name).
ASSIGN lr_data->* TO <ls_data>. ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root. CATCH cx_root.
@ -2024,16 +2031,14 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
METHOD lif_object~deserialize. METHOD lif_object~deserialize.
DATA: lr_data TYPE REF TO data, DATA: lr_data TYPE REF TO data.
data_structure_name TYPE string.
FIELD-SYMBOLS: <ls_data> TYPE any. FIELD-SYMBOLS: <ls_data> TYPE any.
create_channel_objects( ). create_channel_objects( ).
TRY. TRY.
data_structure_name = get_data_structure_name( ). CREATE DATA lr_data TYPE (mv_data_structure_name).
CREATE DATA lr_data TYPE (data_structure_name).
ASSIGN lr_data->* TO <ls_data>. ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root. CATCH cx_root.
@ -2120,18 +2125,15 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
METHOD create_channel_objects. METHOD create_channel_objects.
DATA: appl_obj_cls_name TYPE seoclsname, get_names( ).
persistence_cls_name TYPE seoclsname.
TRY. TRY.
IF mo_appl_obj_data IS NOT BOUND. IF mo_appl_obj_data IS NOT BOUND.
appl_obj_cls_name = get_appl_obj_cls_name( ). CREATE OBJECT mo_appl_obj_data TYPE (mv_appl_obj_cls_name).
CREATE OBJECT mo_appl_obj_data TYPE (appl_obj_cls_name).
ENDIF. ENDIF.
IF mo_persistence IS NOT BOUND. IF mo_persistence IS NOT BOUND.
persistence_cls_name = get_persistence_cls_name( ). CREATE OBJECT mo_persistence TYPE (mv_persistence_cls_name).
CREATE OBJECT mo_persistence TYPE (persistence_cls_name).
ENDIF. ENDIF.
CATCH cx_root. CATCH cx_root.
@ -2206,6 +2208,13 @@ CLASS lcl_objects_channel_super IMPLEMENTATION.
ENDMETHOD. "unlock ENDMETHOD. "unlock
METHOD get_names.
mv_data_structure_name = get_data_structure_name( ).
mv_appl_obj_cls_name = get_appl_obj_cls_name( ).
mv_persistence_cls_name = get_persistence_cls_name( ).
ENDMETHOD.
ENDCLASS. ENDCLASS.