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 08:14:07 +00:00 committed by Lars Hvam
parent 1f75651f90
commit 0fa4ed299e
5 changed files with 40 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/objects/ecatt/zcl_abapgit_ecatt_config_downl.clas.abap
View File

@ -28,7 +28,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_ECATT_CONFIG_DOWNL IMPLEMENTATION. CLASS zcl_abapgit_ecatt_config_downl IMPLEMENTATION.
METHOD download. METHOD download.
@ -56,7 +56,9 @@ CLASS ZCL_ABAPGIT_ECATT_CONFIG_DOWNL IMPLEMENTATION.
set_attributes_to_template( ). set_attributes_to_template( ).
ecatt_config ?= ecatt_object. ecatt_config ?= ecatt_object.
set_ecatt_objects_to_template( ).
CALL METHOD ('SET_ECATT_OBJECTS_TO_TEMPLATE'). " doesn't exist in 702
* MS180406 * MS180406
set_var_mode_to_dom( ). set_var_mode_to_dom( ).
* ENDMS180406 * ENDMS180406

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

@ -133,8 +133,8 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
ex_dom = ri_template_over_all ). ex_dom = ri_template_over_all ).
* 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( ). lv_count = lv_nc_xmlref_typ->get_length( ).
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 ).

20
src/objects/ecatt/zcl_abapgit_ecatt_sp_upload.clas.abap
View File

@ -28,7 +28,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_ECATT_SP_UPLOAD IMPLEMENTATION. CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
METHOD get_ecatt_sp. METHOD get_ecatt_sp.
@ -96,11 +96,21 @@ CLASS ZCL_ABAPGIT_ECATT_SP_UPLOAD IMPLEMENTATION.
lv_exception_occurred TYPE etonoff, lv_exception_occurred TYPE etonoff,
lo_ecatt_sp TYPE REF TO object. lo_ecatt_sp TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_sp> TYPE any. FIELD-SYMBOLS: <ecatt_sp> TYPE any,
<lv_d_akh> TYPE data,
<lv_i_akh> TYPE data.
TRY. TRY.
ch_object-i_devclass = ch_object-d_devclass. ch_object-i_devclass = ch_object-d_devclass.
ch_object-i_akh = ch_object-d_akh.
ASSIGN COMPONENT 'D_AKH' OF STRUCTURE ch_object
TO <lv_d_akh>. " doesn't exist in 702
ASSIGN COMPONENT 'I_AKH' OF STRUCTURE ch_object
TO <lv_i_akh>. " doesn't exist in 702
IF <lv_d_akh> IS ASSIGNED
AND <lv_i_akh> IS ASSIGNED.
<lv_i_akh> = <lv_d_akh>.
ENDIF.
super->upload( super->upload(
CHANGING CHANGING
@ -117,7 +127,9 @@ CLASS ZCL_ABAPGIT_ECATT_SP_UPLOAD IMPLEMENTATION.
ENDTRY. ENDTRY.
TRY. TRY.
get_attributes_from_dom_new( CHANGING ch_object = ch_object ). CALL METHOD ('GET_ATTRIBUTES_FROM_DOM_NEW') " doesn't exist in 720
CHANGING
ch_object = ch_object.
CATCH cx_ecatt_apl INTO lx_ecatt. CATCH cx_ecatt_apl INTO lx_ecatt.
lv_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.

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

@ -222,15 +222,19 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any, FIELD-SYMBOLS: <lg_ecatt_vo> TYPE any,
<lg_params> TYPE data, <lg_params> TYPE data,
<lv_d_akh> TYPE data. <lv_d_akh> TYPE data,
<lv_i_akh> TYPE data.
TRY. TRY.
ch_object-i_devclass = ch_object-d_devclass. ch_object-i_devclass = ch_object-d_devclass.
ASSIGN COMPONENT 'D_AKH' OF STRUCTURE ch_object ASSIGN COMPONENT 'D_AKH' OF STRUCTURE ch_object
TO <lv_d_akh>. " doesn't exist in 702 TO <lv_d_akh>. " doesn't exist in 702
IF sy-subrc = 0. ASSIGN COMPONENT 'I_AKH' OF STRUCTURE ch_object
ch_object-i_akh = <lv_d_akh>. TO <lv_i_akh>. " doesn't exist in 702
IF <lv_d_akh> IS ASSIGNED
AND <lv_i_akh> IS ASSIGNED.
<lv_i_akh> = <lv_d_akh>.
ENDIF. ENDIF.
super->upload( super->upload(
@ -247,7 +251,9 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDTRY. ENDTRY.
TRY. TRY.
get_attributes_from_dom_new( CHANGING ch_object = ch_object ). CALL METHOD ('GET_ATTRIBUTES_FROM_DOM_NEW') " doesn't exit in 702
CHANGING
ch_object = ch_object.
CATCH cx_ecatt_apl INTO lx_ex. CATCH cx_ecatt_apl INTO lx_ex.
lv_exc_occ = 'X'. lv_exc_occ = 'X'.
ENDTRY. ENDTRY.

9
src/ui/zcl_abapgit_gui_page_code_insp.clas.abap
View File

@ -159,12 +159,19 @@ CLASS zcl_abapgit_gui_page_code_insp IMPLEMENTATION.
MOVE-CORRESPONDING <ls_result> TO ls_info. MOVE-CORRESPONDING <ls_result> TO ls_info.
lo_test = cl_ci_tests=>get_test_ref( <ls_result>-test ). TRY.
lo_test ?= cl_ci_tests=>get_test_ref( <ls_result>-test ).
CATCH cx_root.
zcx_abapgit_exception=>raise( |Jump to object not supported in your NW release| ).
ENDTRY.
lo_result = lo_test->get_result_node( <ls_result>-kind ). lo_result = lo_test->get_result_node( <ls_result>-kind ).
lo_result->set_info( ls_info ). lo_result->set_info( ls_info ).
lo_result->if_ci_test~navigate( ). lo_result->if_ci_test~navigate( ).
ENDMETHOD. ENDMETHOD.