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

enabling the overwrite for WEBI

Browse Source 
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.
This commit is contained in:
arcanist 2019-05-19 19:45:38 +02:00 committed by Lars Hvam
parent 2e781b316a
commit 9f11c3d563
1 changed files with 51 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

70
src/objects/zcl_abapgit_object_webi.clas.abap
View File

@ -46,12 +46,22 @@ CLASS zcl_abapgit_object_webi DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
IMPORTING is_webi TYPE ty_webi IMPORTING is_webi TYPE ty_webi
RAISING zcx_abapgit_exception RAISING zcx_abapgit_exception
cx_ws_md_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. ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION. CLASS zcl_abapgit_object_webi IMPLEMENTATION.
METHOD handle_endpoint. METHOD handle_endpoint.
@ -96,10 +106,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
METHOD handle_function. 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, DATA: li_parameter TYPE REF TO if_ws_md_vif_param,
li_soap TYPE REF TO if_ws_md_soap_ext_func, 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> LOOP AT is_webi-pvepparameter ASSIGNING <ls_parameter>
WHERE function = <ls_function>-function. WHERE function = <ls_function>-function.
CASE <ls_parameter>-vepparamtype. li_parameter = me->handle_single_parameter( iv_name = <ls_parameter>-vepparam
WHEN lc_parameter_type-import. ii_function = li_function
iv_parameter_type = <ls_parameter>-vepparamtype ).
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->set_name_mapped_to( <ls_parameter>-mappedname ). li_parameter->set_name_mapped_to( <ls_parameter>-mappedname ).
li_parameter->set_is_exposed( <ls_parameter>-is_exposed ). 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> LOOP AT is_webi-pvepfuncsoapext ASSIGNING <ls_soap>
WHERE function = <ls_function>-function. 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 = li_function->create_soap_extension_function( ).
li_soap->set_soap_request_name( <ls_soap>-requestname ). li_soap->set_soap_request_name( <ls_soap>-requestname ).
li_soap->set_soap_response_name( <ls_soap>-responsename ). li_soap->set_soap_response_name( <ls_soap>-responsename ).
@ -511,4 +510,37 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION.
ig_data = ls_webi ). ig_data = ls_webi ).
ENDMETHOD. 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. ENDCLASS.