mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
SOD1/SOD2 downport 702 + fix endless loop (#6359)
This commit is contained in:
Marc Bernard
GitHub
parent
9075658c3f
commit
5fabbea024
|
|
@ -8,16 +8,11 @@ CLASS zcl_abapgit_object_sod1 DEFINITION
|
|||
|
||||
INTERFACES zif_abapgit_object .
|
||||
|
||||
METHODS constructor
|
||||
IMPORTING
|
||||
!is_item TYPE zif_abapgit_definitions=>ty_item
|
||||
!iv_language TYPE spras .
|
||||
|
||||
PROTECTED SECTION.
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS: cv_xml_transformation_name TYPE string VALUE 'SOD1',
|
||||
cv_data_model_class_name TYPE string VALUE 'CL_APS_ODA_WBI_SOD1_DATA_MODEL'.
|
||||
CONSTANTS: c_xml_transformation_name TYPE string VALUE 'SOD1',
|
||||
c_data_model_class_name TYPE string VALUE 'CL_APS_ODA_WBI_SOD1_DATA_MODEL'.
|
||||
|
||||
METHODS create_wb_object_operator
|
||||
IMPORTING
|
||||
|
|
@ -61,341 +56,27 @@ ENDCLASS.
|
|||
|
||||
CLASS zcl_abapgit_object_sod1 IMPLEMENTATION.
|
||||
|
||||
METHOD constructor.
|
||||
|
||||
super->constructor( is_item = is_item
|
||||
iv_language = iv_language ).
|
||||
METHOD clear_content_fields.
|
||||
|
||||
ENDMETHOD.
|
||||
FIELD-SYMBOLS <ls_content_data> TYPE any.
|
||||
|
||||
METHOD zif_abapgit_object~changed_by.
|
||||
ASSIGN COMPONENT 'CONTENT' OF STRUCTURE cs_data TO <ls_content_data>.
|
||||
|
||||
rv_user = c_user_unknown.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
DATA: ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lo_factory TYPE REF TO object,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key
|
||||
iv_transport_request = iv_transport ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~DELETE').
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~deserialize.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
ls_data TYPE REF TO data,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lv_transport_request TYPE trkorr,
|
||||
lo_logger TYPE REF TO cl_wb_checklist,
|
||||
lx_create_error TYPE REF TO cx_root,
|
||||
lx_error TYPE REF TO cx_root,
|
||||
lt_msgs TYPE TABLE OF string,
|
||||
lt_error_msgs_create TYPE swbme_error_tab,
|
||||
ls_error_msg_create LIKE LINE OF lt_error_msgs_create,
|
||||
lv_error_msg TYPE string,
|
||||
lv_abap_language_version TYPE c LENGTH 1. " abap_language_version
|
||||
|
||||
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
CREATE OBJECT lo_data_model TYPE (cv_data_model_class_name).
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
clear_field(
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
io_xml->read(
|
||||
EXPORTING
|
||||
iv_name = cv_xml_transformation_name
|
||||
iv_fieldname = 'CHANGE_USER'
|
||||
CHANGING
|
||||
cg_data = <ls_data> ).
|
||||
cs_metadata = <ls_content_data> ).
|
||||
|
||||
CALL METHOD lo_data_model->('SET_SELECTED_DATA')
|
||||
clear_field(
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
p_data = <ls_data>.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
lv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
|
||||
IF zif_abapgit_object~exists( ) = abap_true.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~UPDATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
transport_request = lv_transport_request.
|
||||
|
||||
ELSE.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_ABAP_LANGUAGE_VERSION')
|
||||
RECEIVING
|
||||
result = lv_abap_language_version.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CREATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
package = iv_package
|
||||
abap_language_version = lv_abap_language_version
|
||||
transport_request = lv_transport_request
|
||||
IMPORTING
|
||||
logger = lo_logger.
|
||||
|
||||
CATCH cx_root INTO lx_create_error.
|
||||
|
||||
" Check for error messages from Workbench API to provide more error infos to user
|
||||
IF lo_logger->has_error_messages( ) = abap_true.
|
||||
|
||||
lo_logger->get_error_messages( IMPORTING p_error_tab = lt_error_msgs_create ).
|
||||
|
||||
LOOP AT lt_error_msgs_create INTO ls_error_msg_create.
|
||||
|
||||
APPEND LINES OF ls_error_msg_create-mtext TO lt_msgs.
|
||||
|
||||
ENDLOOP.
|
||||
|
||||
CONCATENATE LINES OF lt_msgs INTO lv_error_msg SEPARATED BY '; '.
|
||||
zcx_abapgit_exception=>raise( iv_text = lv_error_msg
|
||||
ix_previous = lx_create_error ).
|
||||
|
||||
ELSE.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_create_error->get_text( )
|
||||
ix_previous = lx_create_error->previous ).
|
||||
|
||||
ENDIF.
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDIF.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
iv_fieldname = 'CHANGE_TIMESTAMP'
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CHECK_EXISTENCE')
|
||||
RECEIVING
|
||||
r_result = rv_bool.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_comparator.
|
||||
|
||||
RETURN.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_deserialize_steps.
|
||||
|
||||
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_metadata.
|
||||
|
||||
rs_metadata = get_metadata( ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_active.
|
||||
|
||||
rv_active = is_active( ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_locked.
|
||||
|
||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESWB_EO'
|
||||
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }*| ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~jump.
|
||||
|
||||
zcl_abapgit_objects=>jump( is_item = ms_item ).
|
||||
|
||||
rv_exit = abap_true.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~serialize.
|
||||
|
||||
DATA: lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
DATA ls_data TYPE REF TO data.
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = create_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~READ')
|
||||
IMPORTING
|
||||
eo_object_data = lo_data_model.
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
IMPORTING
|
||||
p_data = <ls_data>.
|
||||
|
||||
clear_metadata_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_content_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_field( EXPORTING iv_fieldname = 'PLUGIN_CONFIG'
|
||||
CHANGING cs_metadata = <ls_data> ).
|
||||
|
||||
io_xml->add( iv_name = cv_xml_transformation_name
|
||||
ig_data = <ls_data> ).
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD create_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('CREATE_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
do_commits = iv_do_commits
|
||||
run_in_test_mode = iv_run_in_test_mode
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD get_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('GET_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD clear_field.
|
||||
|
||||
|
|
@ -408,6 +89,7 @@ CLASS zcl_abapgit_object_sod1 IMPLEMENTATION.
|
|||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD clear_metadata_fields.
|
||||
|
||||
FIELD-SYMBOLS <ls_metadata> TYPE any.
|
||||
|
|
@ -487,24 +169,233 @@ CLASS zcl_abapgit_object_sod1 IMPLEMENTATION.
|
|||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD clear_content_fields.
|
||||
|
||||
FIELD-SYMBOLS <ls_content_data> TYPE any.
|
||||
METHOD create_wb_object_operator.
|
||||
|
||||
ASSIGN COMPONENT 'CONTENT' OF STRUCTURE cs_data TO <ls_content_data>.
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
clear_field(
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('CREATE_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
do_commits = iv_do_commits
|
||||
run_in_test_mode = iv_run_in_test_mode
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD get_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('GET_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~changed_by.
|
||||
rv_user = c_user_unknown.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
DATA: ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lo_factory TYPE REF TO object,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key
|
||||
iv_transport_request = iv_transport ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~DELETE').
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~deserialize.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
ls_data TYPE REF TO data,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lv_transport_request TYPE trkorr,
|
||||
lo_logger TYPE REF TO cl_wb_checklist,
|
||||
lx_create_error TYPE REF TO cx_root,
|
||||
lx_error TYPE REF TO cx_root,
|
||||
lt_msgs TYPE TABLE OF string,
|
||||
lt_error_msgs_create TYPE swbme_error_tab,
|
||||
ls_error_msg_create LIKE LINE OF lt_error_msgs_create,
|
||||
lv_error_msg TYPE string,
|
||||
lv_abap_language_version TYPE c LENGTH 1. " abap_language_version
|
||||
|
||||
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
CREATE OBJECT lo_data_model TYPE (c_data_model_class_name).
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
iv_fieldname = 'CHANGE_USER'
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
clear_field(
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
io_xml->read(
|
||||
EXPORTING
|
||||
iv_fieldname = 'CHANGE_TIMESTAMP'
|
||||
iv_name = c_xml_transformation_name
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
cg_data = <ls_data> ).
|
||||
|
||||
CALL METHOD lo_data_model->('SET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
p_data = <ls_data>.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
lv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
|
||||
IF zif_abapgit_object~exists( ) = abap_true.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~UPDATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
transport_request = lv_transport_request.
|
||||
|
||||
ELSE.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_ABAP_LANGUAGE_VERSION')
|
||||
RECEIVING
|
||||
result = lv_abap_language_version.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CREATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
package = iv_package
|
||||
abap_language_version = lv_abap_language_version
|
||||
transport_request = lv_transport_request
|
||||
IMPORTING
|
||||
logger = lo_logger.
|
||||
|
||||
CATCH cx_root INTO lx_create_error.
|
||||
|
||||
" Check for error messages from Workbench API to provide more error infos to user
|
||||
lo_logger->get_error_messages( IMPORTING p_error_tab = lt_error_msgs_create ).
|
||||
|
||||
IF lt_error_msgs_create IS NOT INITIAL.
|
||||
|
||||
LOOP AT lt_error_msgs_create INTO ls_error_msg_create.
|
||||
|
||||
APPEND LINES OF ls_error_msg_create-mtext TO lt_msgs.
|
||||
|
||||
ENDLOOP.
|
||||
|
||||
CONCATENATE LINES OF lt_msgs INTO lv_error_msg SEPARATED BY '; '.
|
||||
zcx_abapgit_exception=>raise( iv_text = lv_error_msg
|
||||
ix_previous = lx_create_error ).
|
||||
|
||||
ELSE.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_create_error ).
|
||||
|
||||
ENDIF.
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDIF.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CHECK_EXISTENCE')
|
||||
RECEIVING
|
||||
r_result = rv_bool.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_comparator.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
|
|
@ -512,12 +403,99 @@ CLASS zcl_abapgit_object_sod1 IMPLEMENTATION.
|
|||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_deserialize_steps.
|
||||
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_metadata.
|
||||
rs_metadata = get_metadata( ).
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_active.
|
||||
rv_active = is_active( ).
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_locked.
|
||||
|
||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESWB_EO'
|
||||
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }*| ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~jump.
|
||||
" Covered by ZCL_ABAPGIT_OBJECTS=>JUMP
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~map_filename_to_object.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~map_object_to_filename.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~serialize.
|
||||
|
||||
DATA: lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
DATA ls_data TYPE REF TO data.
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = create_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~READ')
|
||||
IMPORTING
|
||||
eo_object_data = lo_data_model.
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
IMPORTING
|
||||
p_data = <ls_data>.
|
||||
|
||||
clear_metadata_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_content_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_field( EXPORTING iv_fieldname = 'PLUGIN_CONFIG'
|
||||
CHANGING cs_metadata = <ls_data> ).
|
||||
|
||||
io_xml->add( iv_name = c_xml_transformation_name
|
||||
ig_data = <ls_data> ).
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
|
|
|
|||
|
|
@ -8,16 +8,11 @@ CLASS zcl_abapgit_object_sod2 DEFINITION
|
|||
|
||||
INTERFACES zif_abapgit_object .
|
||||
|
||||
METHODS constructor
|
||||
IMPORTING
|
||||
!is_item TYPE zif_abapgit_definitions=>ty_item
|
||||
!iv_language TYPE spras .
|
||||
|
||||
PROTECTED SECTION.
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS: cv_xml_transformation_name TYPE string VALUE 'SOD2',
|
||||
cv_data_model_class_name TYPE string VALUE 'CL_APS_ODA_WBI_SOD2_DATA_MODEL'.
|
||||
CONSTANTS: c_xml_transformation_name TYPE string VALUE 'SOD2',
|
||||
c_data_model_class_name TYPE string VALUE 'CL_APS_ODA_WBI_SOD2_DATA_MODEL'.
|
||||
|
||||
METHODS create_wb_object_operator
|
||||
IMPORTING
|
||||
|
|
@ -61,340 +56,27 @@ ENDCLASS.
|
|||
|
||||
CLASS zcl_abapgit_object_sod2 IMPLEMENTATION.
|
||||
|
||||
METHOD constructor.
|
||||
|
||||
super->constructor( is_item = is_item
|
||||
iv_language = iv_language ).
|
||||
METHOD clear_content_fields.
|
||||
|
||||
ENDMETHOD.
|
||||
FIELD-SYMBOLS <ls_content_data> TYPE any.
|
||||
|
||||
METHOD zif_abapgit_object~changed_by.
|
||||
ASSIGN COMPONENT 'CONTENT' OF STRUCTURE cs_data TO <ls_content_data>.
|
||||
|
||||
rv_user = c_user_unknown.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
DATA: ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lo_factory TYPE REF TO object,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key
|
||||
iv_transport_request = iv_transport ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~DELETE').
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~deserialize.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
ls_data TYPE REF TO data,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lv_transport_request TYPE trkorr,
|
||||
lo_logger TYPE REF TO cl_wb_checklist,
|
||||
lx_create_error TYPE REF TO cx_root,
|
||||
lx_error TYPE REF TO cx_root,
|
||||
lt_msgs TYPE TABLE OF string,
|
||||
lt_error_msgs_create TYPE swbme_error_tab,
|
||||
ls_error_msg_create LIKE LINE OF lt_error_msgs_create,
|
||||
lv_error_msg TYPE string,
|
||||
lv_abap_language_version TYPE c LENGTH 1. " abap_language_version
|
||||
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
CREATE OBJECT lo_data_model TYPE (cv_data_model_class_name).
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
clear_field(
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
io_xml->read(
|
||||
EXPORTING
|
||||
iv_name = cv_xml_transformation_name
|
||||
iv_fieldname = 'CHANGE_USER'
|
||||
CHANGING
|
||||
cg_data = <ls_data> ).
|
||||
cs_metadata = <ls_content_data> ).
|
||||
|
||||
CALL METHOD lo_data_model->('SET_SELECTED_DATA')
|
||||
clear_field(
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
p_data = <ls_data>.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
lv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
|
||||
IF zif_abapgit_object~exists( ) = abap_true.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~UPDATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
transport_request = lv_transport_request.
|
||||
|
||||
ELSE.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_ABAP_LANGUAGE_VERSION')
|
||||
RECEIVING
|
||||
result = lv_abap_language_version.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CREATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
package = iv_package
|
||||
abap_language_version = lv_abap_language_version
|
||||
transport_request = lv_transport_request
|
||||
IMPORTING
|
||||
logger = lo_logger.
|
||||
|
||||
CATCH cx_root INTO lx_create_error.
|
||||
|
||||
" Check for error messages from Workbench API to provide more error infos to user
|
||||
IF lo_logger->has_error_messages( ) = abap_true.
|
||||
|
||||
lo_logger->get_error_messages( IMPORTING p_error_tab = lt_error_msgs_create ).
|
||||
|
||||
LOOP AT lt_error_msgs_create INTO ls_error_msg_create.
|
||||
|
||||
APPEND LINES OF ls_error_msg_create-mtext TO lt_msgs.
|
||||
|
||||
ENDLOOP.
|
||||
|
||||
CONCATENATE LINES OF lt_msgs INTO lv_error_msg SEPARATED BY '; '.
|
||||
zcx_abapgit_exception=>raise( iv_text = lv_error_msg
|
||||
ix_previous = lx_create_error ).
|
||||
|
||||
ELSE.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_create_error->get_text( )
|
||||
ix_previous = lx_create_error->previous ).
|
||||
|
||||
ENDIF.
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDIF.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
iv_fieldname = 'CHANGE_TIMESTAMP'
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CHECK_EXISTENCE')
|
||||
RECEIVING
|
||||
r_result = rv_bool.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_comparator.
|
||||
|
||||
RETURN.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_deserialize_steps.
|
||||
|
||||
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_metadata.
|
||||
|
||||
rs_metadata = get_metadata( ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_active.
|
||||
|
||||
rv_active = is_active( ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_locked.
|
||||
|
||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESWB_EO'
|
||||
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }*| ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~jump.
|
||||
|
||||
zcl_abapgit_objects=>jump( is_item = ms_item ).
|
||||
|
||||
rv_exit = abap_true.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~serialize.
|
||||
|
||||
DATA: lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
DATA ls_data TYPE REF TO data.
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = create_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~READ')
|
||||
IMPORTING
|
||||
eo_object_data = lo_data_model.
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
IMPORTING
|
||||
p_data = <ls_data>.
|
||||
|
||||
clear_metadata_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_content_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_field( EXPORTING iv_fieldname = 'PLUGIN_CONFIG'
|
||||
CHANGING cs_metadata = <ls_data> ).
|
||||
|
||||
io_xml->add( iv_name = cv_xml_transformation_name
|
||||
ig_data = <ls_data> ).
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( )
|
||||
ix_previous = lx_error->previous ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD create_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('CREATE_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
do_commits = iv_do_commits
|
||||
run_in_test_mode = iv_run_in_test_mode
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD get_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('GET_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD clear_field.
|
||||
|
||||
|
|
@ -407,6 +89,7 @@ CLASS zcl_abapgit_object_sod2 IMPLEMENTATION.
|
|||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD clear_metadata_fields.
|
||||
|
||||
FIELD-SYMBOLS <ls_metadata> TYPE any.
|
||||
|
|
@ -486,36 +169,332 @@ CLASS zcl_abapgit_object_sod2 IMPLEMENTATION.
|
|||
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD clear_content_fields.
|
||||
|
||||
FIELD-SYMBOLS <ls_content_data> TYPE any.
|
||||
METHOD create_wb_object_operator.
|
||||
|
||||
ASSIGN COMPONENT 'CONTENT' OF STRUCTURE cs_data TO <ls_content_data>.
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
clear_field(
|
||||
EXPORTING
|
||||
iv_fieldname = 'CHANGE_USER'
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
TRY.
|
||||
|
||||
clear_field(
|
||||
EXPORTING
|
||||
iv_fieldname = 'CHANGE_TIMESTAMP'
|
||||
CHANGING
|
||||
cs_metadata = <ls_content_data> ).
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('CREATE_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
do_commits = iv_do_commits
|
||||
run_in_test_mode = iv_run_in_test_mode
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD get_wb_object_operator.
|
||||
|
||||
DATA lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD ('CL_WB_OBJECT_OPERATOR_FACTORY')=>('GET_OBJECT_OPERATOR')
|
||||
EXPORTING
|
||||
object_type = is_object_type
|
||||
object_key = iv_object_key
|
||||
transport_request = iv_transport_request
|
||||
RECEIVING
|
||||
result = ro_wb_object_operator.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~changed_by.
|
||||
rv_user = c_user_unknown.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~delete.
|
||||
|
||||
DATA: ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lo_factory TYPE REF TO object,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
TRY.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key
|
||||
iv_transport_request = iv_transport ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~DELETE').
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~deserialize.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
ls_data TYPE REF TO data,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lv_transport_request TYPE trkorr,
|
||||
lo_logger TYPE REF TO cl_wb_checklist,
|
||||
lx_create_error TYPE REF TO cx_root,
|
||||
lx_error TYPE REF TO cx_root,
|
||||
lt_msgs TYPE TABLE OF string,
|
||||
lt_error_msgs_create TYPE swbme_error_tab,
|
||||
ls_error_msg_create LIKE LINE OF lt_error_msgs_create,
|
||||
lv_error_msg TYPE string,
|
||||
lv_abap_language_version TYPE c LENGTH 1. " abap_language_version
|
||||
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
CREATE OBJECT lo_data_model TYPE (c_data_model_class_name).
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
io_xml->read(
|
||||
EXPORTING
|
||||
iv_name = c_xml_transformation_name
|
||||
CHANGING
|
||||
cg_data = <ls_data> ).
|
||||
|
||||
CALL METHOD lo_data_model->('SET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
p_data = <ls_data>.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
lv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
|
||||
|
||||
IF zif_abapgit_object~exists( ) = abap_true.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~UPDATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
transport_request = lv_transport_request.
|
||||
|
||||
ELSE.
|
||||
|
||||
TRY.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_ABAP_LANGUAGE_VERSION')
|
||||
RECEIVING
|
||||
result = lv_abap_language_version.
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CREATE')
|
||||
EXPORTING
|
||||
io_object_data = lo_data_model
|
||||
version = 'A'
|
||||
package = iv_package
|
||||
abap_language_version = lv_abap_language_version
|
||||
transport_request = lv_transport_request
|
||||
IMPORTING
|
||||
logger = lo_logger.
|
||||
|
||||
CATCH cx_root INTO lx_create_error.
|
||||
|
||||
" Check for error messages from Workbench API to provide more error infos to user
|
||||
lo_logger->get_error_messages( IMPORTING p_error_tab = lt_error_msgs_create ).
|
||||
|
||||
IF lt_error_msgs_create IS NOT INITIAL.
|
||||
|
||||
LOOP AT lt_error_msgs_create INTO ls_error_msg_create.
|
||||
|
||||
APPEND LINES OF ls_error_msg_create-mtext TO lt_msgs.
|
||||
|
||||
ENDLOOP.
|
||||
|
||||
CONCATENATE LINES OF lt_msgs INTO lv_error_msg SEPARATED BY '; '.
|
||||
zcx_abapgit_exception=>raise( iv_text = lv_error_msg
|
||||
ix_previous = lx_create_error ).
|
||||
|
||||
ELSE.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_create_error ).
|
||||
|
||||
ENDIF.
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDIF.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~exists.
|
||||
|
||||
DATA: lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = get_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~CHECK_EXISTENCE')
|
||||
RECEIVING
|
||||
r_result = rv_bool.
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_comparator.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_deserialize_order.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_deserialize_steps.
|
||||
APPEND zif_abapgit_object=>gc_step_id-abap TO rt_steps.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~get_metadata.
|
||||
rs_metadata = get_metadata( ).
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_active.
|
||||
rv_active = is_active( ).
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~is_locked.
|
||||
|
||||
rv_is_locked = exists_a_lock_entry_for( iv_lock_object = 'ESWB_EO'
|
||||
iv_argument = |{ ms_item-obj_type }{ ms_item-obj_name }*| ).
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~jump.
|
||||
" Covered by ZCL_ABAPGIT_OBJECTS=>JUMP
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~map_filename_to_object.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~map_object_to_filename.
|
||||
RETURN.
|
||||
ENDMETHOD.
|
||||
|
||||
|
||||
METHOD zif_abapgit_object~serialize.
|
||||
|
||||
DATA: lo_data_model TYPE REF TO if_wb_object_data_model,
|
||||
lv_data_type_name TYPE string,
|
||||
lo_factory TYPE REF TO object,
|
||||
ls_object_type TYPE wbobjtype,
|
||||
lv_object_key TYPE seu_objkey,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
DATA ls_data TYPE REF TO data.
|
||||
FIELD-SYMBOLS <ls_data> TYPE any.
|
||||
|
||||
TRY.
|
||||
|
||||
ls_object_type-objtype_tr = ms_item-obj_type.
|
||||
lv_object_key = ms_item-obj_name.
|
||||
|
||||
lo_factory = create_wb_object_operator( is_object_type = ls_object_type
|
||||
iv_object_key = lv_object_key ).
|
||||
|
||||
CALL METHOD lo_factory->('IF_WB_OBJECT_OPERATOR~READ')
|
||||
IMPORTING
|
||||
eo_object_data = lo_data_model.
|
||||
|
||||
" if_wb_object_data_selection_co=>c_all_data
|
||||
CALL METHOD lo_data_model->('GET_DATATYPE_NAME')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL'
|
||||
RECEIVING
|
||||
result = lv_data_type_name.
|
||||
|
||||
CREATE DATA ls_data TYPE (lv_data_type_name).
|
||||
ASSIGN ls_data->* TO <ls_data>.
|
||||
|
||||
CALL METHOD lo_data_model->('GET_SELECTED_DATA')
|
||||
EXPORTING
|
||||
p_data_selection = 'AL' " if_wb_object_data_selection_co=>c_all_data
|
||||
IMPORTING
|
||||
p_data = <ls_data>.
|
||||
|
||||
clear_metadata_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_content_fields( CHANGING cs_data = <ls_data> ).
|
||||
clear_field( EXPORTING iv_fieldname = 'PLUGIN_CONFIG'
|
||||
CHANGING cs_metadata = <ls_data> ).
|
||||
|
||||
io_xml->add( iv_name = c_xml_transformation_name
|
||||
ig_data = <ls_data> ).
|
||||
|
||||
CATCH cx_root INTO lx_error.
|
||||
|
||||
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
||||
|
||||
ENDTRY.
|
||||
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user