SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Naming conventions for zcl_abapgit_ecatt_script_downl #1132 (#1604)

Browse Source 
* Naming conventions zcl_abapgit_ecatt_script_downl

https://github.com/larshp/abapGit/issues/1132

* Fix indentation.

https://github.com/larshp/abapGit/issues/1132

* Naming conventions zcl_abapgit_ecatt_val_obj_upl

https://github.com/larshp/abapGit/issues/1132
This commit is contained in:
Thoralf Hänsel 2018-07-09 16:30:46 +02:00 committed by Lars Hvam
parent 9c5c704fad
commit 5e824d7b62
2 changed files with 103 additions and 103 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.abap
View File

@ -23,7 +23,7 @@ CLASS zcl_abapgit_ecatt_script_downl DEFINITION
DATA: DATA:
mv_xml_stream TYPE xstring, mv_xml_stream TYPE xstring,
mv_xml_stream_size TYPE int4, mv_xml_stream_size TYPE int4,
mv_script_node TYPE REF TO if_ixml_element. mi_script_node TYPE REF TO if_ixml_element.
METHODS: METHODS:
set_script_to_template set_script_to_template
@ -33,15 +33,15 @@ CLASS zcl_abapgit_ecatt_script_downl DEFINITION
set_control_data_for_tcd set_control_data_for_tcd
IMPORTING IMPORTING
is_param TYPE etpar_gui is_param TYPE etpar_gui
ip_params TYPE REF TO cl_apl_ecatt_params io_params TYPE REF TO cl_apl_ecatt_params
RAISING RAISING
cx_ecatt_apl, cx_ecatt_apl,
escape_control_data escape_control_data
IMPORTING IMPORTING
ip_element TYPE REF TO if_ixml_element ii_element TYPE REF TO if_ixml_element
im_tabname TYPE string iv_tabname TYPE string
im_node TYPE string iv_node TYPE string
RAISING RAISING
cx_ecatt_apl_util, cx_ecatt_apl_util,
@ -110,7 +110,7 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
set_deep_data_to_dom( im_params = ecatt_script->params ). set_deep_data_to_dom( im_params = ecatt_script->params ).
IF wa_parm-xmlref_typ EQ cl_apl_ecatt_const=>ref_type_c_tcd. IF wa_parm-xmlref_typ EQ cl_apl_ecatt_const=>ref_type_c_tcd.
set_control_data_for_tcd( is_param = wa_parm set_control_data_for_tcd( is_param = wa_parm
ip_params = ecatt_script->params ). io_params = ecatt_script->params ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -165,19 +165,19 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
" Downport " Downport
DATA: DATA:
lv_text TYPE etxml_line_tabtype, lt_text TYPE etxml_line_tabtype,
li_element TYPE REF TO if_ixml_element, li_element TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc. lv_rc TYPE sy-subrc.
ecatt_script->get_script_text( ecatt_script->get_script_text(
CHANGING CHANGING
scripttext = lv_text ). scripttext = lt_text ).
mv_script_node = template_over_all->create_simple_element( mi_script_node = template_over_all->create_simple_element(
name = 'SCRIPT' name = 'SCRIPT'
parent = root_node ). parent = root_node ).
IF mv_script_node IS INITIAL. IF mi_script_node IS INITIAL.
me->raise_download_exception( me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt previous = ex_ecatt
@ -187,7 +187,7 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
CALL FUNCTION 'SDIXML_DATA_TO_DOM' CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING EXPORTING
name = 'ETXML_LINE_TABTYPE' name = 'ETXML_LINE_TABTYPE'
dataobject = lv_text dataobject = lt_text
IMPORTING IMPORTING
data_as_dom = li_element data_as_dom = li_element
CHANGING CHANGING
@ -203,7 +203,7 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
ENDIF. ENDIF.
lv_rc = mv_script_node->append_child( li_element ). lv_rc = mi_script_node->append_child( li_element ).
IF lv_rc <> 0. IF lv_rc <> 0.
me->raise_download_exception( me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing textid = cx_ecatt_apl_util=>download_processing
@ -230,21 +230,21 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
DATA: li_element TYPE REF TO if_ixml_element, DATA: li_element TYPE REF TO if_ixml_element,
li_deep_tcd TYPE REF TO if_ixml_element, li_deep_tcd TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc, lv_rc TYPE sy-subrc,
lt_name TYPE string, lv_name TYPE string,
lv_parname TYPE string, lv_parname TYPE string,
lo_pval_xml TYPE REF TO cl_apl_ecatt_xml_data, lo_pval_xml TYPE REF TO cl_apl_ecatt_xml_data,
lo_ctrl_tabs TYPE REF TO cl_apl_ecatt_control_tables. lo_ctrl_tabs TYPE REF TO cl_apl_ecatt_control_tables.
FIELD-SYMBOLS: <tab> TYPE STANDARD TABLE. FIELD-SYMBOLS: <lt_tab> TYPE STANDARD TABLE.
IF is_param-xmlref_typ <> cl_apl_ecatt_const=>ref_type_c_tcd IF is_param-xmlref_typ <> cl_apl_ecatt_const=>ref_type_c_tcd
OR ip_params IS INITIAL. OR io_params IS INITIAL.
RETURN. RETURN.
ENDIF. ENDIF.
lv_parname = is_param-pname. lv_parname = is_param-pname.
ip_params->get_param_value( "TCD command interface io_params->get_param_value( "TCD command interface
EXPORTING EXPORTING
im_var_id = cl_apl_ecatt_const=>varid_default_val im_var_id = cl_apl_ecatt_const=>varid_default_val
im_pname = lv_parname im_pname = lv_parname
@ -293,35 +293,35 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
DO 8 TIMES. "Loop at 8 control tables DO 8 TIMES. "Loop at 8 control tables
CASE sy-index. CASE sy-index.
WHEN 1. WHEN 1.
lt_name = 'ETTCD_PARAMS_TABTYPE'. lv_name = 'ETTCD_PARAMS_TABTYPE'.
ASSIGN lt_params TO <tab>. ASSIGN lt_params TO <lt_tab>.
WHEN 2. WHEN 2.
lt_name = 'ETTCD_VERBS_TABTYPE'. lv_name = 'ETTCD_VERBS_TABTYPE'.
ASSIGN lt_verbs TO <tab>. ASSIGN lt_verbs TO <lt_tab>.
WHEN 3. WHEN 3.
lt_name = 'ETTCD_VARS_TABTYPE'. lv_name = 'ETTCD_VARS_TABTYPE'.
ASSIGN lt_vars TO <tab>. ASSIGN lt_vars TO <lt_tab>.
WHEN 4. WHEN 4.
lt_name = 'ETTCD_DP_TAB_TABTYPE'. lv_name = 'ETTCD_DP_TAB_TABTYPE'.
ASSIGN lt_dp_tab TO <tab>. ASSIGN lt_dp_tab TO <lt_tab>.
WHEN 5. WHEN 5.
lt_name = 'ETTCD_DP_FOR_TABTYPE'. lv_name = 'ETTCD_DP_FOR_TABTYPE'.
ASSIGN lt_dp_for TO <tab>. ASSIGN lt_dp_for TO <lt_tab>.
WHEN 6. WHEN 6.
lt_name = 'ETTCD_DP_PRO_TABTYPE'. lv_name = 'ETTCD_DP_PRO_TABTYPE'.
ASSIGN lt_dp_pro TO <tab>. ASSIGN lt_dp_pro TO <lt_tab>.
WHEN 7. WHEN 7.
lt_name = 'ETTCD_DP_FLD_TABTYPE'. lv_name = 'ETTCD_DP_FLD_TABTYPE'.
ASSIGN lt_dp_fld TO <tab>. ASSIGN lt_dp_fld TO <lt_tab>.
WHEN 8. WHEN 8.
lt_name = 'ETTCD_SVARS_TABTYPE'. lv_name = 'ETTCD_SVARS_TABTYPE'.
ASSIGN lt_svars TO <tab>. ASSIGN lt_svars TO <lt_tab>.
ENDCASE. ENDCASE.
CALL FUNCTION 'SDIXML_DATA_TO_DOM' "Ast generieren lassen CALL FUNCTION 'SDIXML_DATA_TO_DOM' "Ast generieren lassen
EXPORTING EXPORTING
name = lt_name name = lv_name
dataobject = <tab> dataobject = <lt_tab>
IMPORTING IMPORTING
data_as_dom = li_element data_as_dom = li_element
EXCEPTIONS EXCEPTIONS
@ -343,17 +343,17 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
previous = ex_ecatt ). previous = ex_ecatt ).
ENDIF. ENDIF.
FREE li_element. FREE li_element.
UNASSIGN <tab>. UNASSIGN <lt_tab>.
ENDDO. ENDDO.
escape_control_data( ip_element = li_deep_tcd escape_control_data( ii_element = li_deep_tcd
im_tabname = 'ETTCD_VARS_TABTYPE' iv_tabname = 'ETTCD_VARS_TABTYPE'
im_node = 'CB_INDEX' ). iv_node = 'CB_INDEX' ).
escape_control_data( escape_control_data(
ip_element = li_deep_tcd ii_element = li_deep_tcd
im_tabname = 'ETTCD_VERBS_TABTYPE' iv_tabname = 'ETTCD_VERBS_TABTYPE'
im_node = 'NAME' ). iv_node = 'NAME' ).
FREE: lt_dp_tab, lt_dp_for, lt_dp_fld, lt_svars, FREE: lt_dp_tab, lt_dp_for, lt_dp_fld, lt_svars,
lt_params, lt_vars, lt_dp_pro, lt_verbs. lt_params, lt_vars, lt_dp_pro, lt_verbs.
@ -375,12 +375,12 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
li_vars TYPE REF TO if_ixml_element, li_vars TYPE REF TO if_ixml_element,
li_elem TYPE REF TO if_ixml_element. li_elem TYPE REF TO if_ixml_element.
li_vars = ip_element->find_from_name_ns( li_vars = ii_element->find_from_name_ns(
name = im_tabname ). name = iv_tabname ).
li_filter = ip_element->create_filter_node_type( li_filter = ii_element->create_filter_node_type(
if_ixml_node=>co_node_text ). if_ixml_node=>co_node_text ).
IF li_vars IS NOT INITIAL. IF li_vars IS NOT INITIAL.
li_abapctrl = ip_element->get_elements_by_tag_name_ns( name = im_node ). li_abapctrl = ii_element->get_elements_by_tag_name_ns( name = iv_node ).
* just for debugging * just for debugging
li_iter = li_abapctrl->create_iterator( ). li_iter = li_abapctrl->create_iterator( ).
@ -412,15 +412,15 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
" Downport " Downport
DATA: blob_node TYPE REF TO if_ixml_element, DATA: li_blob_node TYPE REF TO if_ixml_element,
rc TYPE sy-subrc, lv_rc TYPE sy-subrc,
text TYPE string. lv_text TYPE string.
blob_node = template_over_all->create_simple_element( li_blob_node = template_over_all->create_simple_element(
name = 'ECET_BLOBS' name = 'ECET_BLOBS'
parent = root_node ). parent = root_node ).
IF blob_node IS INITIAL. IF li_blob_node IS INITIAL.
me->raise_download_exception( me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt previous = ex_ecatt
@ -431,10 +431,10 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
EXPORTING EXPORTING
im_whole_data = 1 im_whole_data = 1
IMPORTING IMPORTING
ex_xml_blob = text ). ex_xml_blob = lv_text ).
rc = blob_node->set_value( value = text ). lv_rc = li_blob_node->set_value( value = lv_text ).
IF rc <> 0. IF lv_rc <> 0.
me->raise_download_exception( me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt previous = ex_ecatt
@ -448,11 +448,11 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
" Downport " Downport
DATA: li_artmp_node TYPE REF TO if_ixml_element, DATA: li_artmp_node TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc, lv_rc TYPE sy-subrc,
lv_text TYPE string, lv_text TYPE string,
l_rc TYPE int4, lv_rc_args_tmpl TYPE int4,
lv_errmsg TYPE string. lv_errmsg TYPE string.
li_artmp_node = template_over_all->create_simple_element( li_artmp_node = template_over_all->create_simple_element(
name = 'ECET_ARTMP' name = 'ECET_ARTMP'
@ -461,10 +461,10 @@ CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
ecatt_extprog->get_args_tmpl( ecatt_extprog->get_args_tmpl(
IMPORTING IMPORTING
ex_xml_arg_tmpl = lv_text ex_xml_arg_tmpl = lv_text
ex_rc = l_rc ex_rc = lv_rc_args_tmpl
ex_errmsg = lv_errmsg ). ex_errmsg = lv_errmsg ).
IF li_artmp_node IS INITIAL OR l_rc > 0. IF li_artmp_node IS INITIAL OR lv_rc_args_tmpl > 0.
me->raise_download_exception( me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt previous = ex_ecatt

86
src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap
View File

@ -8,7 +8,7 @@ CLASS zcl_abapgit_ecatt_val_obj_upl DEFINITION
METHODS: METHODS:
z_set_stream_for_upload z_set_stream_for_upload
IMPORTING IMPORTING
im_xml TYPE xstring, iv_xml TYPE xstring,
upload REDEFINITION. upload REDEFINITION.
@ -47,7 +47,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION. CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
METHOD get_business_msgs_from_dom. METHOD get_business_msgs_from_dom.
@ -59,7 +59,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
lv_exception_occurred TYPE etonoff, lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object. lo_ecatt_vo TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_vo> TYPE any. FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( 'ETVO_MSG' ). li_section = template_over_all->find_from_name_ns( 'ETVO_MSG' ).
@ -77,10 +77,10 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>. ASSIGN ('ECATT_OBJECT') TO <lg_ecatt_vo>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>. lo_ecatt_vo = <lg_ecatt_vo>.
TRY. TRY.
CALL METHOD lo_ecatt_vo->('SET_BUSSINESS_MSG') CALL METHOD lo_ecatt_vo->('SET_BUSSINESS_MSG')
@ -106,7 +106,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
lv_exception_occurred TYPE etonoff, lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object. lo_ecatt_vo TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_vo> TYPE any. FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( 'IMPL_DET' ). li_section = template_over_all->find_from_name_ns( 'IMPL_DET' ).
@ -124,10 +124,10 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>. ASSIGN ('ECATT_OBJECT') TO <lg_ecatt_vo>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>. lo_ecatt_vo = <lg_ecatt_vo>.
TRY. TRY.
CALL METHOD lo_ecatt_vo->('SET_IMPL_DETAILS') CALL METHOD lo_ecatt_vo->('SET_IMPL_DETAILS')
@ -154,7 +154,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
lv_exception_occurred TYPE etonoff, lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object. lo_ecatt_vo TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_vo> TYPE any. FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( 'INVERT_VALIDATION' ). li_section = template_over_all->find_from_name_ns( 'INVERT_VALIDATION' ).
@ -172,10 +172,10 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>. ASSIGN ('ECATT_OBJECT') TO <lg_ecatt_vo>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>. lo_ecatt_vo = <lg_ecatt_vo>.
TRY. TRY.
CALL METHOD lo_ecatt_vo->('SET_INVERT_VALIDATION_FLAG') CALL METHOD lo_ecatt_vo->('SET_INVERT_VALIDATION_FLAG')
@ -226,15 +226,15 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
"26.03.2013 "26.03.2013
DATA: ex TYPE REF TO cx_ecatt_apl, DATA: lx_ex TYPE REF TO cx_ecatt_apl,
l_exists TYPE etonoff, lv_exists TYPE etonoff,
l_exc_occ TYPE etonoff, lv_exc_occ TYPE etonoff,
ls_tadir TYPE tadir, ls_tadir TYPE tadir,
lo_ecatt_vo TYPE REF TO object, lo_ecatt_vo TYPE REF TO object,
lo_params TYPE REF TO cl_apl_ecatt_params. lo_params TYPE REF TO cl_apl_ecatt_params.
FIELD-SYMBOLS: <ecatt_vo> TYPE any, FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any,
<params> TYPE data. <lg_params> TYPE data.
TRY. TRY.
ch_object-i_devclass = ch_object-d_devclass. ch_object-i_devclass = ch_object-d_devclass.
@ -245,82 +245,82 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
ch_object = ch_object ). ch_object = ch_object ).
upload_data_from_stream( ch_object-filename ). upload_data_from_stream( ch_object-filename ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
IF template_over_all IS INITIAL. IF template_over_all IS INITIAL.
RAISE EXCEPTION ex. RAISE EXCEPTION lx_ex.
ELSE. ELSE.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDIF. ENDIF.
ENDTRY. ENDTRY.
TRY. TRY.
get_attributes_from_dom_new( CHANGING ch_object = ch_object ). get_attributes_from_dom_new( CHANGING ch_object = ch_object ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>. ASSIGN ('ECATT_OBJECT') TO <lg_ecatt_vo>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>. lo_ecatt_vo = <lg_ecatt_vo>.
ASSIGN lo_ecatt_vo->('PARAMS') TO <params>. ASSIGN lo_ecatt_vo->('PARAMS') TO <lg_params>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lo_params = <params>. lo_params = <lg_params>.
TRY. TRY.
get_impl_detail_from_dom( ). get_impl_detail_from_dom( ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
TRY. TRY.
get_vo_flags_from_dom( ). get_vo_flags_from_dom( ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
TRY. TRY.
get_business_msgs_from_dom( ). get_business_msgs_from_dom( ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
TRY. TRY.
get_params_from_dom_new( im_params = lo_params ). get_params_from_dom_new( im_params = lo_params ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
TRY. TRY.
get_variants_from_dom( lo_params ). get_variants_from_dom( lo_params ).
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
TRY. TRY.
l_exists = cl_apl_ecatt_object=>existence_check_object( lv_exists = cl_apl_ecatt_object=>existence_check_object(
im_name = ch_object-d_obj_name im_name = ch_object-d_obj_name
im_version = ch_object-d_obj_ver im_version = ch_object-d_obj_ver
im_obj_type = ch_object-s_obj_type im_obj_type = ch_object-s_obj_type
im_exists_any_version = 'X' ). im_exists_any_version = 'X' ).
IF l_exists EQ space. IF lv_exists EQ space.
CALL METHOD lo_ecatt_vo->('SET_TADIR_FOR_NEW_OBJECT') CALL METHOD lo_ecatt_vo->('SET_TADIR_FOR_NEW_OBJECT')
EXPORTING EXPORTING
im_tadir_for_new_object = tadir_preset. im_tadir_for_new_object = tadir_preset.
ENDIF. ENDIF.
CATCH cx_ecatt. CATCH cx_ecatt.
CLEAR l_exists. CLEAR lv_exists.
ENDTRY. ENDTRY.
TRY. TRY.
CALL METHOD lo_ecatt_vo->('SAVE') CALL METHOD lo_ecatt_vo->('SAVE')
EXPORTING EXPORTING
im_do_commit = 'X'. im_do_commit = 'X'.
CATCH cx_ecatt_apl INTO ex. CATCH cx_ecatt_apl INTO lx_ex.
l_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.
* get devclass from existing object * get devclass from existing object
@ -335,8 +335,8 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
CATCH cx_ecatt. CATCH cx_ecatt.
CLEAR ls_tadir. CLEAR ls_tadir.
ENDTRY. ENDTRY.
IF l_exc_occ = 'X'. IF lv_exc_occ = 'X'.
raise_upload_exception( previous = ex ). raise_upload_exception( previous = lx_ex ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -353,7 +353,7 @@ CLASS ZCL_ABAPGIT_ECATT_VAL_OBJ_UPL IMPLEMENTATION.
METHOD z_set_stream_for_upload. METHOD z_set_stream_for_upload.
" downport from CL_ABAPGIT_ECATT_DATA_UPLOAD SET_STREAM_FOR_UPLOAD " downport from CL_ABAPGIT_ECATT_DATA_UPLOAD SET_STREAM_FOR_UPLOAD
mv_external_xml = im_xml. mv_external_xml = iv_xml.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.