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

fix SHI3 diffs #483

Browse Source
This commit is contained in:
larshp 2017-06-05 08:08:52 +00:00
parent 53d480bf38
commit 7055082260
1 changed files with 89 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

167
src/zabapgit_object_shi3.prog.abap
View File

@ -32,20 +32,20 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS jump_se43
RAISING lcx_exception.
METHODS strip_stamps
METHODS clear_fields
CHANGING cs_head TYPE ttree
ct_nodes TYPE hier_iface_t.
METHODS regenerate_ids
CHANGING ct_nodes TYPE hier_iface_t
ct_refs TYPE hier_ref_t
ct_texts TYPE hier_texts_t
RAISING lcx_exception.
METHODS replace_id
IMPORTING iv_id TYPE clike
RETURNING VALUE(rv_new_id) TYPE ttree-id
RAISING lcx_exception.
* METHODS regenerate_ids
* CHANGING ct_nodes TYPE hier_iface_t
* ct_refs TYPE hier_ref_t
* ct_texts TYPE hier_texts_t
* RAISING lcx_exception.
*
* METHODS replace_id
* IMPORTING iv_id TYPE clike
* RETURNING VALUE(rv_new_id) TYPE ttree-id
* RAISING lcx_exception.
ENDCLASS. "lcl_object_shi3 DEFINITION
@ -59,7 +59,17 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "lif_object~has_changed_since
METHOD lif_object~changed_by.
rv_user = c_user_unknown. " todo
DATA: ls_head TYPE ttree.
CALL FUNCTION 'STREE_STRUCTURE_READ'
EXPORTING
structure_id = mv_tree_id
IMPORTING
structure_header = ls_head.
rv_user = ls_head-luser.
ENDMETHOD.
METHOD constructor.
@ -142,7 +152,6 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
no_authority = 2
canceled = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from BMENU_DELETE_TREE, SHI3' ).
ENDIF.
@ -180,7 +189,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
list_of_references = lt_refs
list_of_texts = lt_texts.
strip_stamps( CHANGING cs_head = ls_head
clear_fields( CHANGING cs_head = ls_head
ct_nodes = lt_nodes ).
io_xml->add( iv_name = 'TREE_HEAD'
@ -196,81 +205,83 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "serialize
METHOD strip_stamps.
METHOD clear_fields.
FIELD-SYMBOLS <ls_node> LIKE LINE OF ct_nodes.
CLEAR: cs_head-luser, cs_head-ldate, cs_head-ltime.
CLEAR: cs_head-fuser, cs_head-fdate, cs_head-ftime.
CLEAR: cs_head-frelease, cs_head-lrelease.
CLEAR: cs_head-responsibl.
LOOP AT ct_nodes ASSIGNING <ls_node>.
CLEAR: <ls_node>-luser, <ls_node>-ldate, <ls_node>-ltime.
CLEAR: <ls_node>-fuser, <ls_node>-fdate, <ls_node>-ftime.
CLEAR: <ls_node>-frelease, <ls_node>-lrelease.
ENDLOOP.
ENDMETHOD. "strip_stamps
METHOD regenerate_ids.
DATA: ls_uid TYPE sys_uid,
lt_map TYPE tt_id_map.
FIELD-SYMBOLS: <ls_node> LIKE LINE OF ct_nodes,
<ls_ref> LIKE LINE OF ct_refs,
<ls_text> LIKE LINE OF ct_texts,
<ls_map> LIKE LINE OF mt_map.
"Build map
LOOP AT ct_nodes ASSIGNING <ls_node>.
APPEND INITIAL LINE TO lt_map ASSIGNING <ls_map>.
IF <ls_node>-parent_id IS INITIAL.
<ls_map>-old = <ls_node>-node_id.
<ls_map>-new = <ls_node>-node_id. "Root node
ELSE.
CALL FUNCTION 'STREE_GET_UNIQUE_ID'
IMPORTING
unique_id = ls_uid.
<ls_map>-old = <ls_node>-node_id.
<ls_map>-new = ls_uid-id.
ENDIF.
<ls_node>-node_id = <ls_map>-new. "Replace id
ENDLOOP.
mt_map = lt_map. "Sort
LOOP AT ct_nodes ASSIGNING <ls_node>.
<ls_node>-parent_id = replace_id( <ls_node>-parent_id ).
<ls_node>-brother_id = replace_id( <ls_node>-brother_id ).
ENDLOOP.
LOOP AT ct_refs ASSIGNING <ls_ref>.
<ls_ref>-node_id = replace_id( <ls_ref>-node_id ).
ENDLOOP.
LOOP AT ct_texts ASSIGNING <ls_text>.
<ls_text>-node_id = replace_id( <ls_text>-node_id ).
ENDLOOP.
ENDMETHOD. "regenerate_ids
METHOD replace_id.
DATA ls_map LIKE LINE OF mt_map.
IF iv_id IS INITIAL.
RETURN. "No substitution for empty values
ENDIF.
READ TABLE mt_map WITH TABLE KEY old = iv_id INTO ls_map.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Cannot replace id, SHI3' ).
ENDIF.
rv_new_id = ls_map-new.
ENDMETHOD. "replace_id
* METHOD regenerate_ids.
*
* DATA: ls_uid TYPE sys_uid,
* lt_map TYPE tt_id_map.
*
* FIELD-SYMBOLS: <ls_node> LIKE LINE OF ct_nodes,
* <ls_ref> LIKE LINE OF ct_refs,
* <ls_text> LIKE LINE OF ct_texts,
* <ls_map> LIKE LINE OF mt_map.
*
* "Build map
* LOOP AT ct_nodes ASSIGNING <ls_node>.
* APPEND INITIAL LINE TO lt_map ASSIGNING <ls_map>.
* IF <ls_node>-parent_id IS INITIAL.
* <ls_map>-old = <ls_node>-node_id.
* <ls_map>-new = <ls_node>-node_id. "Root node
* ELSE.
* CALL FUNCTION 'STREE_GET_UNIQUE_ID'
* IMPORTING
* unique_id = ls_uid.
*
* <ls_map>-old = <ls_node>-node_id.
* <ls_map>-new = ls_uid-id.
* ENDIF.
* <ls_node>-node_id = <ls_map>-new. "Replace id
* ENDLOOP.
*
* mt_map = lt_map. "Sort
*
* LOOP AT ct_nodes ASSIGNING <ls_node>.
* <ls_node>-parent_id = replace_id( <ls_node>-parent_id ).
* <ls_node>-brother_id = replace_id( <ls_node>-brother_id ).
* ENDLOOP.
*
* LOOP AT ct_refs ASSIGNING <ls_ref>.
* <ls_ref>-node_id = replace_id( <ls_ref>-node_id ).
* ENDLOOP.
*
* LOOP AT ct_texts ASSIGNING <ls_text>.
* <ls_text>-node_id = replace_id( <ls_text>-node_id ).
* ENDLOOP.
*
* ENDMETHOD. "regenerate_ids
*
* METHOD replace_id.
*
* DATA ls_map LIKE LINE OF mt_map.
*
* IF iv_id IS INITIAL.
* RETURN. "No substitution for empty values
* ENDIF.
*
* READ TABLE mt_map WITH TABLE KEY old = iv_id INTO ls_map.
* IF sy-subrc <> 0.
* lcx_exception=>raise( 'Cannot replace id, SHI3' ).
* ENDIF.
*
* rv_new_id = ls_map-new.
*
* ENDMETHOD. "replace_id
METHOD lif_object~deserialize.
@ -292,9 +303,9 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'TREE_TEXTS'
CHANGING cg_data = lt_texts ).
regenerate_ids( CHANGING ct_nodes = lt_nodes
ct_refs = lt_refs
ct_texts = lt_texts ).
* regenerate_ids( CHANGING ct_nodes = lt_nodes
* ct_refs = lt_refs
* ct_texts = lt_texts ).
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).