From 8e31304bd9b50880108e22c4bcfae70676213e8d Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sat, 10 Sep 2016 06:43:31 +0000
Subject: [PATCH] PINF fix, #330

---
 src/zabapgit.prog.abap             |  2 +-
 src/zabapgit_object_pinf.prog.abap | 11 ++++-------
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap
index ffa094cb8..78dd79634 100644
--- a/src/zabapgit.prog.abap
+++ b/src/zabapgit.prog.abap
@@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
 * See http://www.abapgit.org
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v1.0.0',      "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v1.17.13'.    "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v1.17.14'.    "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
diff --git a/src/zabapgit_object_pinf.prog.abap b/src/zabapgit_object_pinf.prog.abap
index 6275f2149..bcf4b7a61 100644
--- a/src/zabapgit_object_pinf.prog.abap
+++ b/src/zabapgit_object_pinf.prog.abap
@@ -219,11 +219,8 @@ CLASS lcl_object_pinf IMPLEMENTATION.
         <li_element>->get_all_attributes( IMPORTING e_element_data = ls_attr ).
         IF <ls_element>-elem_type = ls_attr-elem_type
             AND <ls_element>-elem_key = ls_attr-elem_key.
-          <li_element>->set_all_attributes(
-            i_element_data = <ls_element>
-            i_data_sign    = ls_sign ).
-          lv_found = abap_true.
-          EXIT. " current loop
+          DELETE lt_existing INDEX lv_index.
+          CONTINUE. " current loop
         ENDIF.
       ENDLOOP.
 
@@ -232,10 +229,10 @@ CLASS lcl_object_pinf IMPLEMENTATION.
       ENDIF.
     ENDLOOP.
 
-    ii_interface->add_elements( lt_add ).
-
     ii_interface->remove_elements( lt_existing ).
 
+    ii_interface->add_elements( lt_add ).
+
     ii_interface->save_elements( ).
 
     ii_interface->set_elements_changeable( abap_false ).