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

Merge pull request #1326 from christianguenter2/1317

Browse Source 
downport ecatt object
This commit is contained in:
Lars Hvam 2018-04-23 19:32:49 +02:00 committed by GitHub
commit f6f18b550c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 118 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/objects/ecatt/zcl_abapgit_ecatt_sp_download.clas.abap
View File

@ -62,8 +62,6 @@ CLASS zcl_abapgit_ecatt_sp_download IMPLEMENTATION.
set_attributes_to_template( ).
ecatt_sp ?= ecatt_object.
set_sp_data_to_template( ).
download_data( ).
@ -105,17 +103,25 @@ CLASS zcl_abapgit_ecatt_sp_download IMPLEMENTATION.
DATA: li_dom TYPE REF TO if_ixml_document,
li_start_profile_data_node TYPE REF TO if_ixml_element,
li_element TYPE REF TO if_ixml_element,
lv_sp_xml TYPE etxml_line_str.
lv_sp_xml TYPE etxml_line_str,
lo_ecatt_sp TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_object> TYPE data.
li_start_profile_data_node = template_over_all->create_simple_element(
name = 'START_PROFILE'
parent = root_node ).
ASSIGN ('ECATT_OBJECT') TO <ecatt_object>.
ASSERT sy-subrc = 0.
lo_ecatt_sp = <ecatt_object>.
TRY.
ecatt_sp->get_sp_attributes(
CALL METHOD lo_ecatt_sp->('GET_SP_ATTRIBUTES')
IMPORTING
e_sp_xml = lv_sp_xml ).
CATCH cx_ecatt_apl .
e_sp_xml = lv_sp_xml.
CATCH cx_ecatt_apl.
ENDTRY.
CALL FUNCTION 'SDIXML_XML_TO_DOM'

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

@ -40,7 +40,10 @@ CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
li_dom TYPE REF TO if_ixml_document,
li_root TYPE REF TO if_ixml_node,
lv_start_profile TYPE etxml_line_str,
lv_exception_occurred TYPE etonoff.
lv_exception_occurred TYPE etonoff,
lo_ecatt_sp TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_object> TYPE any.
TRY.
li_section = template_over_all->find_from_name_ns(
@ -58,7 +61,15 @@ CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
IMPORTING
xml_as_string = lv_start_profile.
ecatt_sp->set_sp_attributes( i_sp_xml = lv_start_profile ).
ASSIGN ('ECATT_OBJECT') TO <ecatt_object>.
ASSERT sy-subrc = 0.
lo_ecatt_sp = <ecatt_object>.
CALL METHOD lo_ecatt_sp->('SET_SP_ATTRIBUTES')
EXPORTING
i_sp_xml = lv_start_profile.
ENDIF.
CATCH cx_ecatt_apl .
lv_exception_occurred = 'X'.
@ -83,7 +94,10 @@ CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
lv_exists TYPE etonoff,
lv_exc_occ TYPE etonoff,
ls_tadir TYPE tadir,
lv_exception_occurred TYPE etonoff.
lv_exception_occurred TYPE etonoff,
lo_ecatt_sp TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_sp> TYPE any.
TRY.
ch_object-i_devclass = ch_object-d_devclass.
@ -111,7 +125,10 @@ CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
lv_exc_occ = 'X'.
ENDTRY.
ecatt_sp ?= ecatt_object.
ASSIGN me->ecatt_object TO <ecatt_sp>.
ASSERT sy-subrc = 0.
lo_ecatt_sp = <ecatt_sp>.
TRY.
get_ecatt_sp( ).
@ -127,14 +144,18 @@ CLASS zcl_abapgit_ecatt_sp_upload IMPLEMENTATION.
im_exists_any_version = 'X' ).
IF lv_exists EQ space.
ecatt_sp->set_tadir_for_new_object( im_tadir_for_new_object = tadir_preset ).
CALL METHOD lo_ecatt_sp->('SET_TADIR_FOR_NEW_OBJECT')
EXPORTING
im_tadir_for_new_object = tadir_preset.
ENDIF.
CATCH cx_ecatt.
CLEAR lv_exists.
ENDTRY.
TRY.
ecatt_sp->save( im_do_commit = 'X' ).
CALL METHOD lo_ecatt_sp->('SAVE')
EXPORTING
im_do_commit = 'X'.
CATCH cx_ecatt_apl INTO lx_ecatt.
lv_exc_occ = 'X'.
ENDTRY.

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

@ -29,7 +29,19 @@ CLASS zcl_abapgit_ecatt_val_obj_upl DEFINITION
cx_ecatt_apl.
PRIVATE SECTION.
DATA: mv_external_xml TYPE xstring.
TYPES:
etvo_invert_validation TYPE c LENGTH 1,
etvo_error_prio TYPE n LENGTH 1,
etvo_bus_msg_tabtype TYPE STANDARD TABLE OF ecvo_bus_msg,
BEGIN OF etvoimpl_det,
impl_name TYPE etvo_impl_name,
impl_type TYPE etvo_impl_type,
impl_subtype TYPE etvo_impl_subtype,
impl_package TYPE etvo_package,
END OF etvoimpl_det.
DATA:
mv_external_xml TYPE xstring.
ENDCLASS.
@ -44,7 +56,10 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
DATA: li_section TYPE REF TO if_ixml_element,
lt_buss_msg_ref TYPE etvo_bus_msg_tabtype,
lv_exception_occurred TYPE etonoff.
lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( 'ETVO_MSG' ).
@ -62,9 +77,15 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDIF.
ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>.
ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>.
TRY.
ecatt_vo->set_bussiness_msg( im_buss_msg_ref = lt_buss_msg_ref ).
CALL METHOD lo_ecatt_vo->('SET_BUSSINESS_MSG')
EXPORTING
im_buss_msg_ref = lt_buss_msg_ref.
CATCH cx_ecatt_apl INTO exception_to_raise.
lv_exception_occurred = 'X'.
ENDTRY.
@ -82,7 +103,10 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
DATA: li_section TYPE REF TO if_ixml_element,
ls_impl_details TYPE etvoimpl_det,
lv_exception_occurred TYPE etonoff.
lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object.
FIELD-SYMBOLS: <ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( name = 'IMPL_DET' ).
@ -100,9 +124,15 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDIF.
ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>.
ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>.
TRY.
ecatt_vo->set_impl_details( im_impl_details = ls_impl_details ).
CALL METHOD lo_ecatt_vo->('SET_IMPL_DETAILS')
EXPORTING
im_impl_details = ls_impl_details.
CATCH cx_ecatt_apl INTO exception_to_raise.
lv_exception_occurred = 'X'.
ENDTRY.
@ -121,10 +151,12 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
DATA: li_section TYPE REF TO if_ixml_element,
lv_error_prio TYPE etvo_error_prio,
lv_invert_validation TYPE etvo_invert_validation,
lv_exception_occurred TYPE etonoff.
lv_exception_occurred TYPE etonoff,
lo_ecatt_vo TYPE REF TO object.
li_section = template_over_all->find_from_name_ns(
name = 'INVERT_VALIDATION' ).
FIELD-SYMBOLS: <ecatt_vo> TYPE any.
li_section = template_over_all->find_from_name_ns( 'INVERT_VALIDATION' ).
IF NOT li_section IS INITIAL.
CALL FUNCTION 'SDIXML_DOM_TO_DATA'
@ -140,17 +172,21 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDIF.
ENDIF.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>.
ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>.
TRY.
ecatt_vo->set_invert_validation_flag(
im_invert_validation = lv_invert_validation ).
CALL METHOD lo_ecatt_vo->('SET_INVERT_VALIDATION_FLAG')
EXPORTING
im_invert_validation = lv_invert_validation.
CATCH cx_ecatt_apl INTO exception_to_raise.
lv_exception_occurred = 'X'.
ENDTRY.
li_section = template_over_all->find_from_name_ns(
name = 'ERROR_PRIORITY' ).
li_section = template_over_all->find_from_name_ns( 'ERROR_PRIORITY' ).
IF NOT li_section IS INITIAL.
CALL FUNCTION 'SDIXML_DOM_TO_DATA'
@ -167,8 +203,9 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
ENDIF.
TRY.
ecatt_vo->set_error_priority(
im_error_prio = lv_error_prio ).
CALL METHOD lo_ecatt_vo->('SET_ERROR_PRIORITY')
EXPORTING
im_error_prio = lv_error_prio.
CATCH cx_ecatt_apl INTO exception_to_raise.
lv_exception_occurred = 'X'.
ENDTRY.
@ -192,7 +229,12 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
DATA: ex TYPE REF TO cx_ecatt_apl,
l_exists TYPE etonoff,
l_exc_occ TYPE etonoff,
ls_tadir TYPE tadir.
ls_tadir TYPE tadir,
lo_ecatt_vo TYPE REF TO object,
lo_params TYPE REF TO cl_apl_ecatt_params.
FIELD-SYMBOLS: <ecatt_vo> TYPE any,
<params> TYPE data.
TRY.
ch_object-i_devclass = ch_object-d_devclass.
@ -219,7 +261,15 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
l_exc_occ = 'X'.
ENDTRY.
ecatt_vo ?= ecatt_object.
ASSIGN ('ECATT_OBJECT') TO <ecatt_vo>.
ASSERT sy-subrc = 0.
lo_ecatt_vo = <ecatt_vo>.
ASSIGN lo_ecatt_vo->('PARAMS') TO <params>.
ASSERT sy-subrc = 0.
lo_params = <params>.
TRY.
get_impl_detail_from_dom( ).
@ -239,15 +289,14 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
l_exc_occ = 'X'.
ENDTRY.
TRY.
get_params_from_dom_new( im_params = ecatt_vo->params ).
get_params_from_dom_new( im_params = lo_params ).
CATCH cx_ecatt_apl INTO ex.
l_exc_occ = 'X'.
ENDTRY.
TRY.
get_variants_from_dom( ecatt_vo->params ).
get_variants_from_dom( lo_params ).
CATCH cx_ecatt_apl INTO ex.
l_exc_occ = 'X'.
ENDTRY.
@ -260,14 +309,18 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
im_exists_any_version = 'X' ).
IF l_exists EQ space.
ecatt_vo->set_tadir_for_new_object( im_tadir_for_new_object = tadir_preset ).
CALL METHOD lo_ecatt_vo->('SET_TADIR_FOR_NEW_OBJECT')
EXPORTING
im_tadir_for_new_object = tadir_preset.
ENDIF.
CATCH cx_ecatt.
CLEAR l_exists.
ENDTRY.
TRY.
ecatt_vo->save( im_do_commit = 'X' ).
CALL METHOD lo_ecatt_vo->('SAVE')
EXPORTING
im_do_commit = 'X'.
CATCH cx_ecatt_apl INTO ex.
l_exc_occ = 'X'.
ENDTRY.