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 #1301 from christianguenter2/ECAT

Browse Source 
ECAT serialization
This commit is contained in:
Lars Hvam 2018-04-08 18:10:55 +02:00 committed by GitHub
commit 454f2f9493
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
7 changed files with 676 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

485
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.abap Normal file
View File

@ -0,0 +1,485 @@
CLASS zcl_abapgit_ecatt_script_downl DEFINITION
PUBLIC
INHERITING FROM cl_apl_ecatt_script_download
CREATE PUBLIC .
PUBLIC SECTION.
METHODS:
download REDEFINITION,
get_xml_stream
RETURNING
VALUE(rv_xml_stream) TYPE xstring,
get_xml_stream_size
RETURNING
VALUE(rv_xml_stream_size) TYPE int4.
PROTECTED SECTION.
METHODS:
download_data REDEFINITION.
PRIVATE SECTION.
DATA:
mv_xml_stream TYPE xstring,
mv_xml_stream_size TYPE int4,
mv_script_node TYPE REF TO if_ixml_element.
METHODS:
set_script_to_template
RAISING
cx_ecatt_apl_util,
set_control_data_for_tcd
IMPORTING
is_param TYPE etpar_gui
ip_params TYPE REF TO cl_apl_ecatt_params
RAISING
cx_ecatt_apl,
escape_control_data
IMPORTING
ip_element TYPE REF TO if_ixml_element
im_tabname TYPE string
im_node TYPE string
RAISING
cx_ecatt_apl_util,
set_blob_to_template
RAISING
cx_ecatt_apl_util,
set_artmp_to_template
RAISING
cx_ecatt_apl_util.
ENDCLASS.
CLASS zcl_abapgit_ecatt_script_downl IMPLEMENTATION.
METHOD download.
" Downport
DATA: lv_partyp TYPE string,
lx_ecatt TYPE REF TO cx_ecatt_apl.
load_help = im_load_help.
typ = im_object_type.
TRY.
cl_apl_ecatt_object=>show_object(
EXPORTING
im_obj_type = im_object_type
im_name = im_object_name
im_version = im_object_version
IMPORTING
re_object = ecatt_object ).
CATCH cx_ecatt INTO ex_ecatt.
RETURN.
ENDTRY.
toolname = ecatt_object->attrib->get_tool_name( ).
* build_schema( ).
* set_attributes_to_schema( ).
set_attributes_to_template( ).
IF toolname EQ cl_apl_ecatt_const=>toolname_ecatt.
ecatt_script ?= ecatt_object.
* set_script_to_schema( ).
set_script_to_template( ).
* set_params_to_schema( ).
TRY.
get_general_params_data( im_params = ecatt_script->params ).
CATCH cx_ecatt_apl INTO lx_ecatt. "#EC NOHANDLER
* proceed with download and report errors later
ENDTRY.
LOOP AT parm INTO wa_parm.
TRY.
IF wa_parm-value = '<INITIAL>'.
CLEAR wa_parm-value.
ENDIF.
set_general_params_data_to_dom( ).
IF NOT wa_parm-pstruc_typ IS INITIAL.
set_deep_stru_to_dom( 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.
set_control_data_for_tcd( is_param = wa_parm
ip_params = ecatt_script->params ).
ENDIF.
ENDIF.
CATCH cx_ecatt_apl INTO lx_ecatt. "#EC NOHANDLER
* proceed with download and report errors later
ENDTRY.
ENDLOOP.
ELSE.
set_blob_to_template( ).
set_artmp_to_template( ).
ENDIF.
* download_schema( ).
download_data( ).
ENDMETHOD.
METHOD download_data.
" Downport
zcl_abapgit_ecatt_helper=>download_data(
EXPORTING
ii_template_over_all = template_over_all
IMPORTING
ev_xml_stream = mv_xml_stream
ev_xml_stream_size = mv_xml_stream_size ).
ENDMETHOD.
METHOD get_xml_stream.
rv_xml_stream = mv_xml_stream.
ENDMETHOD.
METHOD get_xml_stream_size.
rv_xml_stream_size = mv_xml_stream_size.
ENDMETHOD.
METHOD set_script_to_template.
" Downport
DATA:
lv_text TYPE etxml_line_tabtype,
li_element TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc.
ecatt_script->get_script_text(
CHANGING
scripttext = lv_text ).
mv_script_node = template_over_all->create_simple_element(
name = 'SCRIPT'
parent = root_node ).
IF mv_script_node IS INITIAL.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_SCRIPT_TO_TEMPLATE' ) .
ENDIF.
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
name = 'ETXML_LINE_TABTYPE'
dataobject = lv_text
IMPORTING
data_as_dom = li_element
CHANGING
document = template_over_all
EXCEPTIONS
illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_SCRIPT_TO_TEMPLATE' ).
ENDIF.
lv_rc = mv_script_node->append_child( li_element ).
IF lv_rc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_SCRIPT_TO_TEMPLATE' ).
ENDIF.
ENDMETHOD.
METHOD set_control_data_for_tcd.
" Downport
DATA: lt_params TYPE ettcd_params_tabtype,
lt_verbs TYPE ettcd_verbs_tabtype,
lt_vars TYPE ettcd_vars_tabtype,
lt_dp_tab TYPE ettcd_dp_tab_tabtype,
lt_dp_for TYPE ettcd_dp_for_tabtype,
lt_dp_pro TYPE ettcd_dp_pro_tabtype,
lt_dp_fld TYPE ettcd_dp_fld_tabtype,
lt_svars TYPE ettcd_svars_tabtype.
DATA: li_element TYPE REF TO if_ixml_element,
li_deep_tcd TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc,
lt_name TYPE string,
lv_parname TYPE string,
lo_pval_xml TYPE REF TO cl_apl_ecatt_xml_data,
lo_ctrl_tabs TYPE REF TO cl_apl_ecatt_control_tables.
FIELD-SYMBOLS: <tab> TYPE STANDARD TABLE.
IF is_param-xmlref_typ <> cl_apl_ecatt_const=>ref_type_c_tcd
OR ip_params IS INITIAL.
RETURN.
ENDIF.
lv_parname = is_param-pname.
ip_params->get_param_value( "TCD command interface
EXPORTING
im_var_id = cl_apl_ecatt_const=>varid_default_val
im_pname = lv_parname
im_pindex = is_param-pindex
IMPORTING
ex_pval_xml = lo_pval_xml ).
lo_ctrl_tabs = lo_pval_xml->get_control_tables_ref( ).
IF lo_ctrl_tabs IS INITIAL.
RETURN.
ENDIF.
lo_ctrl_tabs->get_control_tables( "Read 8 control tables
IMPORTING
ex_params = lt_params
ex_verbs = lt_verbs
ex_vars = lt_vars
ex_dp_tab = lt_dp_tab
ex_dp_for = lt_dp_for
ex_dp_pro = lt_dp_pro
ex_dp_fld = lt_dp_fld
ex_svars = lt_svars ).
IF lt_params IS INITIAL OR
lt_verbs IS INITIAL OR
lt_vars IS INITIAL OR
lt_dp_tab IS INITIAL OR
lt_dp_for IS INITIAL OR
lt_dp_pro IS INITIAL OR
lt_dp_fld IS INITIAL OR
lt_svars IS INITIAL.
RETURN.
ENDIF.
li_deep_tcd = template_over_all->create_simple_element_ns(
name = cl_apl_xml_const=>upl_tcd_node
parent = ap_current_param ).
IF li_deep_tcd IS INITIAL.
raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt ).
ENDIF.
DO 8 TIMES. "Loop at 8 control tables
CASE sy-index.
WHEN 1.
lt_name = 'ETTCD_PARAMS_TABTYPE'.
ASSIGN lt_params TO <tab>.
WHEN 2.
lt_name = 'ETTCD_VERBS_TABTYPE'.
ASSIGN lt_verbs TO <tab>.
WHEN 3.
lt_name = 'ETTCD_VARS_TABTYPE'.
ASSIGN lt_vars TO <tab>.
WHEN 4.
lt_name = 'ETTCD_DP_TAB_TABTYPE'.
ASSIGN lt_dp_tab TO <tab>.
WHEN 5.
lt_name = 'ETTCD_DP_FOR_TABTYPE'.
ASSIGN lt_dp_for TO <tab>.
WHEN 6.
lt_name = 'ETTCD_DP_PRO_TABTYPE'.
ASSIGN lt_dp_pro TO <tab>.
WHEN 7.
lt_name = 'ETTCD_DP_FLD_TABTYPE'.
ASSIGN lt_dp_fld TO <tab>.
WHEN 8.
lt_name = 'ETTCD_SVARS_TABTYPE'.
ASSIGN lt_svars TO <tab>.
ENDCASE.
CALL FUNCTION 'SDIXML_DATA_TO_DOM' "Ast generieren lassen
EXPORTING
name = lt_name
dataobject = <tab>
IMPORTING
data_as_dom = li_element
EXCEPTIONS
illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt ).
ENDIF.
* Ast in Hauptbaum haengen
lv_rc = li_deep_tcd->append_child( new_child = li_element ).
IF lv_rc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt ).
ENDIF.
FREE li_element.
UNASSIGN <tab>.
ENDDO.
escape_control_data( ip_element = li_deep_tcd
im_tabname = 'ETTCD_VARS_TABTYPE'
im_node = 'CB_INDEX' ).
escape_control_data(
ip_element = li_deep_tcd
im_tabname = 'ETTCD_VERBS_TABTYPE'
im_node = 'NAME' ).
FREE: lt_dp_tab, lt_dp_for, lt_dp_fld, lt_svars,
lt_params, lt_vars, lt_dp_pro, lt_verbs.
ENDMETHOD.
METHOD escape_control_data.
" Downport
DATA: li_iter TYPE REF TO if_ixml_node_iterator,
li_textit TYPE REF TO if_ixml_node_iterator,
li_abapctrl TYPE REF TO if_ixml_node_collection,
li_text TYPE REF TO if_ixml_text,
li_filter TYPE REF TO if_ixml_node_filter,
li_list TYPE REF TO if_ixml_node_list,
lv_value TYPE etdom_name,
li_vars TYPE REF TO if_ixml_element,
li_elem TYPE REF TO if_ixml_element.
li_vars = ip_element->find_from_name_ns(
name = im_tabname ).
li_filter = ip_element->create_filter_node_type(
if_ixml_node=>co_node_text ).
IF li_vars IS NOT INITIAL.
li_abapctrl = ip_element->get_elements_by_tag_name_ns( name = im_node ).
* just for debugging
li_iter = li_abapctrl->create_iterator( ).
li_elem ?= li_iter->get_next( ).
WHILE li_elem IS NOT INITIAL.
li_list = li_elem->get_children( ).
li_textit = li_list->create_rev_iterator_filtered(
filter = li_filter ).
li_text ?= li_textit->get_next( ).
IF li_text IS NOT INITIAL.
lv_value = li_text->get_data( ).
IF lv_value(1) = cl_abap_char_utilities=>minchar.
REPLACE SECTION OFFSET 0 LENGTH 1 OF lv_value WITH space.
li_text->set_value( value = lv_value ).
ENDIF.
ENDIF.
CLEAR: li_textit, li_list, li_elem, lv_value.
li_elem ?= li_iter->get_next( ).
ENDWHILE.
CLEAR: li_abapctrl, li_elem, li_iter.
ENDIF.
ENDMETHOD.
METHOD set_blob_to_template.
" Downport
DATA: blob_node TYPE REF TO if_ixml_element,
rc TYPE sy-subrc,
text TYPE string.
blob_node = template_over_all->create_simple_element(
name = 'ECET_BLOBS'
parent = root_node ).
IF blob_node IS INITIAL.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_BLOB_TO_TEMPLATE' ).
ENDIF.
ecatt_extprog->get_blob(
EXPORTING
im_whole_data = 1
IMPORTING
ex_xml_blob = text ).
rc = blob_node->set_value( value = text ).
IF rc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_BLOB_TO_TEMPLATE' ).
ENDIF.
ENDMETHOD. "SET_BLOB_TO_TEMPLATE
METHOD set_artmp_to_template.
" Downport
DATA: li_artmp_node TYPE REF TO if_ixml_element,
lv_rc TYPE sy-subrc,
lv_text TYPE string,
l_rc TYPE int4,
lv_errmsg TYPE string.
li_artmp_node = template_over_all->create_simple_element(
name = 'ECET_ARTMP'
parent = root_node ).
ecatt_extprog->get_args_tmpl(
IMPORTING
ex_xml_arg_tmpl = lv_text
ex_rc = l_rc
ex_errmsg = lv_errmsg ).
IF li_artmp_node IS INITIAL OR l_rc > 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_ARTMP_TO_TEMPLATE'
free_text = lv_errmsg ).
ENDIF.
lv_rc = li_artmp_node->set_value( value = lv_text ).
IF lv_rc <> 0.
me->raise_download_exception(
textid = cx_ecatt_apl_util=>download_processing
previous = ex_ecatt
called_method = 'CL_APL_ECATT_SCRIPT_DOWNLOAD->SET_ARTMP_TO_TEMPLATE' ).
ENDIF.
ENDMETHOD.
ENDCLASS.

18
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.xml Normal file
View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_ECATT_SCRIPT_DOWNL</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>zcl_abapgit_ecatt_download</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>

41
src/objects/ecatt/zcl_abapgit_ecatt_script_upl.clas.abap Normal file
View File

@ -0,0 +1,41 @@
CLASS zcl_abapgit_ecatt_script_upl DEFINITION
PUBLIC
INHERITING FROM cl_apl_ecatt_script_upload
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS:
z_set_stream_for_upload
IMPORTING
im_xml TYPE xstring.
PROTECTED SECTION.
METHODS:
upload_data_from_stream REDEFINITION.
PRIVATE SECTION.
DATA: mv_external_xml TYPE xstring.
ENDCLASS.
CLASS zcl_abapgit_ecatt_script_upl IMPLEMENTATION.
METHOD upload_data_from_stream.
" Downport
template_over_all = zcl_abapgit_ecatt_helper=>upload_data_from_stream( mv_external_xml ).
ENDMETHOD.
METHOD z_set_stream_for_upload.
" downport from CL_ABAPGIT_ECATT_DATA_UPLOAD SET_STREAM_FOR_UPLOAD
mv_external_xml = im_xml.
ENDMETHOD.
ENDCLASS.

19
src/objects/ecatt/zcl_abapgit_ecatt_script_upl.clas.xml Normal file
View File

@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_ECATT_SCRIPT_UPL</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>ZCL_APL_ECATT_DATA_UPLOAD</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<CLSFINAL>X</CLSFINAL>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>

54
src/objects/zcl_abapgit_object_ecat.clas.abap Normal file
View File

@ -0,0 +1,54 @@
CLASS zcl_abapgit_object_ecat DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_object_ecatt_super
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS:
constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_language TYPE spras.
PROTECTED SECTION.
METHODS:
get_object_type REDEFINITION,
get_upload REDEFINITION,
get_download REDEFINITION.
ENDCLASS.
CLASS zcl_abapgit_object_ecat IMPLEMENTATION.
METHOD constructor.
super->constructor( is_item = is_item
iv_language = iv_language ).
ENDMETHOD.
METHOD get_object_type.
rv_object_type = cl_apl_ecatt_const=>obj_type_test_script.
ENDMETHOD.
METHOD get_upload.
CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_script_upl.
ENDMETHOD.
METHOD get_download.
CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_script_downl.
ENDMETHOD.
ENDCLASS.

18
src/objects/zcl_abapgit_object_ecat.clas.xml Normal file
View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_OBJECT_ECAT</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<CLSFINAL>X</CLSFINAL>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>

60
src/objects/zcl_abapgit_object_ecatt_super.clas.abap
View File

@ -138,9 +138,12 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD clear_attributes. METHOD clear_attributes.
DATA: lo_element TYPE REF TO if_ixml_element. DATA: lo_element TYPE REF TO if_ixml_element,
lv_object_type TYPE etobj_type.
lo_element = ci_document->find_from_name( get_object_type( ) ). lv_object_type = get_object_type( ).
lo_element = ci_document->find_from_name( |{ lv_object_type }| ).
lo_element->set_attribute( name = |SAPRL| lo_element->set_attribute( name = |SAPRL|
value = || ). value = || ).
lo_element->set_attribute( name = |DOWNLOADDATE| lo_element->set_attribute( name = |DOWNLOADDATE|
@ -308,17 +311,20 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD get_change_information. METHOD get_change_information.
DATA: li_document TYPE REF TO if_ixml_document, DATA: li_document TYPE REF TO if_ixml_document,
lv_xml TYPE xstring, lv_xml TYPE xstring,
lo_download TYPE REF TO cl_apl_ecatt_download. lo_download TYPE REF TO cl_apl_ecatt_download,
lv_object_type TYPE etobj_type.
lo_download = get_download( ). lo_download = get_download( ).
lv_object_type = get_object_type( ).
zcl_abapgit_ecatt_helper=>build_xml_of_object( zcl_abapgit_ecatt_helper=>build_xml_of_object(
EXPORTING EXPORTING
im_object_name = mv_object_name im_object_name = mv_object_name
im_object_version = is_version_info-version im_object_version = is_version_info-version
im_object_type = ms_item-obj_type im_object_type = lv_object_type
io_download = lo_download io_download = lo_download
IMPORTING IMPORTING
ex_xml_stream = lv_xml ). ex_xml_stream = lv_xml ).
@ -363,18 +369,21 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD serialize_version. METHOD serialize_version.
DATA: li_document TYPE REF TO if_ixml_document, DATA: li_document TYPE REF TO if_ixml_document,
lv_xml TYPE xstring, lv_xml TYPE xstring,
lo_node TYPE REF TO if_ixml_element, lo_node TYPE REF TO if_ixml_element,
lo_download TYPE REF TO cl_apl_ecatt_download. lo_download TYPE REF TO cl_apl_ecatt_download,
lv_object_type TYPE etobj_type.
lo_download = get_download( ). lo_download = get_download( ).
lv_object_type = get_object_type( ).
zcl_abapgit_ecatt_helper=>build_xml_of_object( zcl_abapgit_ecatt_helper=>build_xml_of_object(
EXPORTING EXPORTING
im_object_name = mv_object_name im_object_name = mv_object_name
im_object_version = iv_version im_object_version = iv_version
im_object_type = ms_item-obj_type im_object_type = lv_object_type
io_download = lo_download io_download = lo_download
IMPORTING IMPORTING
ex_xml_stream = lv_xml ). ex_xml_stream = lv_xml ).
@ -402,15 +411,18 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
ls_currently_changed TYPE ty_last_changed, ls_currently_changed TYPE ty_last_changed,
lt_version_info TYPE etversinfo_tabtype, lt_version_info TYPE etversinfo_tabtype,
lx_error TYPE REF TO cx_ecatt, lx_error TYPE REF TO cx_ecatt,
lv_text TYPE string. lv_text TYPE string,
lv_object_type TYPE etobj_type.
FIELD-SYMBOLS: <ls_version_info> LIKE LINE OF lt_version_info. FIELD-SYMBOLS: <ls_version_info> LIKE LINE OF lt_version_info.
TRY. TRY.
lv_object_type = get_object_type( ).
cl_apl_ecatt_object=>get_version_info_object( cl_apl_ecatt_object=>get_version_info_object(
EXPORTING EXPORTING
im_name = mv_object_name im_name = mv_object_name
im_obj_type = ms_item-obj_type im_obj_type = lv_object_type
IMPORTING IMPORTING
ex_version_info = lt_version_info ). ex_version_info = lt_version_info ).
@ -452,11 +464,14 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: lx_error TYPE REF TO cx_ecatt_apl, DATA: lx_error TYPE REF TO cx_ecatt_apl,
lv_text TYPE string. lv_text TYPE string,
lv_object_type TYPE etobj_type.
lv_object_type = get_object_type( ).
TRY. TRY.
cl_apl_ecatt_object=>delete_object( im_obj_type = get_object_type( ) cl_apl_ecatt_object=>delete_object( im_obj_type = lv_object_type
im_name = mv_object_name im_name = mv_object_name
" we have to supply a version, so let's use the default version " we have to supply a version, so let's use the default version
" and delete them all " and delete them all
@ -502,10 +517,14 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD zif_abapgit_object~exists. METHOD zif_abapgit_object~exists.
DATA: lv_object_type TYPE etobj_type.
lv_object_type = get_object_type( ).
TRY. TRY.
rv_bool = cl_apl_ecatt_object=>existence_check_object( im_name = mv_object_name rv_bool = cl_apl_ecatt_object=>existence_check_object( im_name = mv_object_name
im_version = co_default_version im_version = co_default_version
im_obj_type = get_object_type( ) im_obj_type = lv_object_type
im_exists_any_version = abap_true ). im_exists_any_version = abap_true ).
CATCH cx_ecatt. CATCH cx_ecatt.
@ -551,13 +570,16 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
lt_version_info TYPE etversinfo_tabtype, lt_version_info TYPE etversinfo_tabtype,
li_document TYPE REF TO if_ixml_document, li_document TYPE REF TO if_ixml_document,
lx_error TYPE REF TO cx_ecatt, lx_error TYPE REF TO cx_ecatt,
lv_text TYPE string. lv_text TYPE string,
lv_object_type TYPE etobj_type.
lv_object_type = get_object_type( ).
TRY. TRY.
cl_apl_ecatt_object=>get_version_info_object( cl_apl_ecatt_object=>get_version_info_object(
EXPORTING EXPORTING
im_name = mv_object_name im_name = mv_object_name
im_obj_type = get_object_type( ) im_obj_type = lv_object_type
IMPORTING IMPORTING
ex_version_info = lt_version_info ). ex_version_info = lt_version_info ).