From 9f11c3d563d93abb55669d94203e2eedd9772535 Mon Sep 17 00:00:00 2001
From: arcanist <arcanist@list.ru>
Date: Sun, 19 May 2019 19:45:38 +0200
Subject: [PATCH] enabling the overwrite for WEBI

BEFORE:
In case the webi already existed in the receiving system a dump occured that prevent the import from happening
AFTER
The old webi object will be overwritten with the new changes.
---
 src/objects/zcl_abapgit_object_webi.clas.abap | 70 ++++++++++++++-----
 1 file changed, 51 insertions(+), 19 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_webi.clas.abap b/src/objects/zcl_abapgit_object_webi.clas.abap
index f0db0412b..53786f00e 100644
--- a/src/objects/zcl_abapgit_object_webi.clas.abap
+++ b/src/objects/zcl_abapgit_object_webi.clas.abap
@@ -46,12 +46,22 @@ CLASS zcl_abapgit_object_webi DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
         IMPORTING is_webi TYPE ty_webi
         RAISING   zcx_abapgit_exception
                   cx_ws_md_exception.
+    METHODS handle_single_parameter
+      IMPORTING
+        iv_parameter_type   TYPE vepparamtype
+        iv_name             TYPE vepparameter-vepparam
+        ii_function         TYPE REF TO if_ws_md_vif_func
+      RETURNING
+        VALUE(ri_parameter) TYPE REF TO if_ws_md_vif_param
+      RAISING
+        zcx_abapgit_exception
+        cx_ws_md_exception.
 
 ENDCLASS.
 
 
 
-CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
+CLASS zcl_abapgit_object_webi IMPLEMENTATION.
 
 
   METHOD handle_endpoint.
@@ -96,10 +106,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
 
   METHOD handle_function.
 
-    CONSTANTS: BEGIN OF lc_parameter_type,
-                 import TYPE vepparamtype VALUE 'I',
-                 export TYPE vepparamtype VALUE 'O',
-               END OF lc_parameter_type.
+
 
     DATA: li_parameter TYPE REF TO if_ws_md_vif_param,
           li_soap      TYPE REF TO if_ws_md_soap_ext_func,
@@ -137,20 +144,9 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
       LOOP AT is_webi-pvepparameter ASSIGNING <ls_parameter>
           WHERE function = <ls_function>-function.
 
-        CASE <ls_parameter>-vepparamtype.
-          WHEN lc_parameter_type-import.
-
-            li_parameter = li_function->create_incoming_parameter(
-              <ls_parameter>-vepparam ).
-
-          WHEN lc_parameter_type-export.
-
-            li_parameter = li_function->create_outgoing_parameter(
-              <ls_parameter>-vepparam ).
-
-          WHEN OTHERS.
-            ASSERT 0 = 1.
-        ENDCASE.
+        li_parameter = me->handle_single_parameter( iv_name        = <ls_parameter>-vepparam
+                                                    ii_function    = li_function
+                                                    iv_parameter_type = <ls_parameter>-vepparamtype ).
 
         li_parameter->set_name_mapped_to( <ls_parameter>-mappedname ).
         li_parameter->set_is_exposed( <ls_parameter>-is_exposed ).
@@ -162,6 +158,9 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
 
       LOOP AT is_webi-pvepfuncsoapext ASSIGNING <ls_soap>
           WHERE function = <ls_function>-function.
+        IF li_function->has_soap_extension_function( 'I' ) = abap_true.
+          li_function->delete_soap_extension_function( ).
+        ENDIF.
         li_soap = li_function->create_soap_extension_function( ).
         li_soap->set_soap_request_name( <ls_soap>-requestname ).
         li_soap->set_soap_response_name( <ls_soap>-responsename ).
@@ -511,4 +510,37 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
                  ig_data = ls_webi ).
 
   ENDMETHOD.
+
+  METHOD handle_single_parameter.
+    CONSTANTS:
+      BEGIN OF lc_parameter_type,
+        import TYPE vepparamtype VALUE 'I',
+        export TYPE vepparamtype VALUE 'O',
+      END OF lc_parameter_type.
+
+    CASE iv_parameter_type.
+      WHEN lc_parameter_type-import.
+        ri_parameter = ii_function->get_incoming_parameter( parameter_name  = iv_name
+                                                            version         = 'I' ).
+        IF ri_parameter IS BOUND.
+          ii_function->delete_incoming_parameter( ri_parameter ).
+        ENDIF.
+        ri_parameter = ii_function->create_incoming_parameter( iv_name ).
+
+      WHEN lc_parameter_type-export.
+
+        ri_parameter = ii_function->get_outgoing_parameter( parameter_name  = iv_name
+                                                            version         = 'I' ).
+        IF ri_parameter IS BOUND.
+          ii_function->delete_outgoing_parameter( parameter = ri_parameter ).
+        ENDIF.
+
+        ri_parameter = ii_function->create_outgoing_parameter( iv_name ).
+
+      WHEN OTHERS.
+        ASSERT 0 = 1.
+    ENDCASE.
+
+  ENDMETHOD.
+
 ENDCLASS.