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

fix comment #773

Browse Source
This commit is contained in:
larshp 2017-06-10 06:57:45 +00:00
parent 1111abbbb8
commit 7357769944
1 changed files with 0 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
src/zabapgit_object_shi3.prog.abap
View File

@ -36,17 +36,6 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
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
* 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 ENDCLASS. "lcl_object_shi3 DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -222,67 +211,6 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
ENDMETHOD. "strip_stamps 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 lif_object~deserialize. METHOD lif_object~deserialize.
DATA: ls_msg TYPE hier_mess, DATA: ls_msg TYPE hier_mess,
@ -303,10 +231,6 @@ 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
* ct_refs = lt_refs
* ct_texts = lt_texts ).
IF lif_object~exists( ) = abap_true. IF lif_object~exists( ) = abap_true.
lif_object~delete( ). lif_object~delete( ).
ENDIF. ENDIF.