mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
ECAT serialization
This commit is contained in:
Christian Günter
parent
bb7dadab03
commit
f5586f3b4a
485
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.abap
Normal file
485
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.abap
Normal 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
18
src/objects/ecatt/zcl_abapgit_ecatt_script_downl.clas.xml
Normal 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
41
src/objects/ecatt/zcl_abapgit_ecatt_script_upl.clas.abap
Normal 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
19
src/objects/ecatt/zcl_abapgit_ecatt_script_upl.clas.xml
Normal 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
54
src/objects/zcl_abapgit_object_ecat.clas.abap
Normal 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
18
src/objects/zcl_abapgit_object_ecat.clas.xml
Normal 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>
|
||||
|
|
@ -138,9 +138,12 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
|
||||
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|
|
||||
value = || ).
|
||||
lo_element->set_attribute( name = |DOWNLOADDATE|
|
||||
|
|
@ -308,17 +311,20 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
|
||||
METHOD get_change_information.
|
||||
|
||||
DATA: li_document TYPE REF TO if_ixml_document,
|
||||
lv_xml TYPE xstring,
|
||||
lo_download TYPE REF TO cl_apl_ecatt_download.
|
||||
DATA: li_document TYPE REF TO if_ixml_document,
|
||||
lv_xml TYPE xstring,
|
||||
lo_download TYPE REF TO cl_apl_ecatt_download,
|
||||
lv_object_type TYPE etobj_type.
|
||||
|
||||
lo_download = get_download( ).
|
||||
|
||||
lv_object_type = get_object_type( ).
|
||||
|
||||
zcl_abapgit_ecatt_helper=>build_xml_of_object(
|
||||
EXPORTING
|
||||
im_object_name = mv_object_name
|
||||
im_object_version = is_version_info-version
|
||||
im_object_type = ms_item-obj_type
|
||||
im_object_type = lv_object_type
|
||||
io_download = lo_download
|
||||
IMPORTING
|
||||
ex_xml_stream = lv_xml ).
|
||||
|
|
@ -363,18 +369,21 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
|
||||
METHOD serialize_version.
|
||||
|
||||
DATA: li_document TYPE REF TO if_ixml_document,
|
||||
lv_xml TYPE xstring,
|
||||
lo_node TYPE REF TO if_ixml_element,
|
||||
lo_download TYPE REF TO cl_apl_ecatt_download.
|
||||
DATA: li_document TYPE REF TO if_ixml_document,
|
||||
lv_xml TYPE xstring,
|
||||
lo_node TYPE REF TO if_ixml_element,
|
||||
lo_download TYPE REF TO cl_apl_ecatt_download,
|
||||
lv_object_type TYPE etobj_type.
|
||||
|
||||
lo_download = get_download( ).
|
||||
|
||||
lv_object_type = get_object_type( ).
|
||||
|
||||
zcl_abapgit_ecatt_helper=>build_xml_of_object(
|
||||
EXPORTING
|
||||
im_object_name = mv_object_name
|
||||
im_object_version = iv_version
|
||||
im_object_type = ms_item-obj_type
|
||||
im_object_type = lv_object_type
|
||||
io_download = lo_download
|
||||
IMPORTING
|
||||
ex_xml_stream = lv_xml ).
|
||||
|
|
@ -402,15 +411,18 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
ls_currently_changed TYPE ty_last_changed,
|
||||
lt_version_info TYPE etversinfo_tabtype,
|
||||
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.
|
||||
|
||||
TRY.
|
||||
lv_object_type = get_object_type( ).
|
||||
|
||||
cl_apl_ecatt_object=>get_version_info_object(
|
||||
EXPORTING
|
||||
im_name = mv_object_name
|
||||
im_obj_type = ms_item-obj_type
|
||||
im_obj_type = lv_object_type
|
||||
IMPORTING
|
||||
ex_version_info = lt_version_info ).
|
||||
|
||||
|
|
@ -452,11 +464,14 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
DATA: lx_error TYPE REF TO cx_ecatt_apl,
|
||||
lv_text TYPE string.
|
||||
DATA: lx_error TYPE REF TO cx_ecatt_apl,
|
||||
lv_text TYPE string,
|
||||
lv_object_type TYPE etobj_type.
|
||||
|
||||
lv_object_type = get_object_type( ).
|
||||
|
||||
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
|
||||
" we have to supply a version, so let's use the default version
|
||||
" and delete them all
|
||||
|
|
@ -502,10 +517,14 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
|
||||
DATA: lv_object_type TYPE etobj_type.
|
||||
|
||||
lv_object_type = get_object_type( ).
|
||||
|
||||
TRY.
|
||||
rv_bool = cl_apl_ecatt_object=>existence_check_object( im_name = mv_object_name
|
||||
im_version = co_default_version
|
||||
im_obj_type = get_object_type( )
|
||||
im_obj_type = lv_object_type
|
||||
im_exists_any_version = abap_true ).
|
||||
|
||||
CATCH cx_ecatt.
|
||||
|
|
@ -551,13 +570,16 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
|
|||
lt_version_info TYPE etversinfo_tabtype,
|
||||
li_document TYPE REF TO if_ixml_document,
|
||||
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.
|
||||
cl_apl_ecatt_object=>get_version_info_object(
|
||||
EXPORTING
|
||||
im_name = mv_object_name
|
||||
im_obj_type = get_object_type( )
|
||||
im_obj_type = lv_object_type
|
||||
IMPORTING
|
||||
ex_version_info = lt_version_info ).
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user