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

downport 702

Browse Source
This commit is contained in:
Christian Guenter 2018-08-07 11:34:54 +00:00 committed by Lars Hvam
parent f214fab73d
commit 173351c13f
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap
View File

@ -89,7 +89,11 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
ev_xml_stream_size. ev_xml_stream_size.
TRY. TRY.
lo_xml = cl_apl_ecatt_xml=>create( im_type = if_apl_ecatt_xml=>co_xml ). CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
EXPORTING
im_type = if_apl_ecatt_xml=>co_xml
RECEIVING
re_xml = lo_xml.
lo_xml->set_attributes( im_dom = ii_template_over_all ). lo_xml->set_attributes( im_dom = ii_template_over_all ).
@ -120,7 +124,11 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
lv_xstr = iv_xml_stream. lv_xstr = iv_xml_stream.
lo_xml = cl_apl_ecatt_xml=>create( im_type = if_apl_ecatt_xml=>co_xml ). CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
EXPORTING
im_type = if_apl_ecatt_xml=>co_xml
RECEIVING
re_xml = lo_xml.
* whitespace stripping needs a namespace * whitespace stripping needs a namespace
* remove white spaces only at the time of upload * remove white spaces only at the time of upload
@ -135,7 +143,10 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
* MD: Workaround, because nodes starting with "XML" are not allowed * MD: Workaround, because nodes starting with "XML" are not allowed
lv_nc_xmlref_typ ?= ri_template_over_all->get_elements_by_tag_name_ns( lv_nc_xmlref_typ ?= ri_template_over_all->get_elements_by_tag_name_ns(
'XMLREF_TYP' ). "#EC NOTEXT 'XMLREF_TYP' ). "#EC NOTEXT
lv_count = lv_nc_xmlref_typ->get_length( ). CALL METHOD lv_nc_xmlref_typ->('GET_LENGTH') " downport
RECEIVING
rval = lv_count.
WHILE lv_index LT lv_count. WHILE lv_index LT lv_count.
lv_n_xmlref_typ = lv_nc_xmlref_typ->get_item( lv_index ). lv_n_xmlref_typ = lv_nc_xmlref_typ->get_item( lv_index ).
lv_n_xmlref_typ->set_name( 'X-MLREF_TYP' ). lv_n_xmlref_typ->set_name( 'X-MLREF_TYP' ).

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

@ -287,7 +287,9 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDTRY. ENDTRY.
TRY. TRY.
get_params_from_dom_new( lo_params ). CALL METHOD ('GET_PARAMS_FROM_DOM_NEW') " doesn't exist in 702
EXPORTING
im_params = lo_params.
CATCH cx_ecatt_apl INTO lx_ex. CATCH cx_ecatt_apl INTO lx_ex.
lv_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.