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

Merge pull request #770 from larshp/issue_483

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