diff --git a/src/objects/zcl_abapgit_object_ddlx.clas.abap b/src/objects/zcl_abapgit_object_ddlx.clas.abap index 3d05587c0..6d0aad461 100644 --- a/src/objects/zcl_abapgit_object_ddlx.clas.abap +++ b/src/objects/zcl_abapgit_object_ddlx.clas.abap @@ -28,7 +28,7 @@ ENDCLASS. -CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION. +CLASS zcl_abapgit_object_ddlx IMPLEMENTATION. METHOD clear_field. @@ -139,8 +139,9 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION. lr_data TYPE REF TO data, lx_error TYPE REF TO cx_root. - FIELD-SYMBOLS: TYPE any, - TYPE data. + FIELD-SYMBOLS: TYPE any, + TYPE data, + TYPE data. TRY. CREATE DATA lr_data @@ -153,19 +154,26 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION. CHANGING cg_data = ). - ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE TO . + ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE TO . ASSERT sy-subrc = 0. TRY. " If the file doesn't exist that's ok, because previously " the source code was stored in the xml. We are downward compatible. - = mo_files->read_string( 'asddlxs' ) ##no_text. + = mo_files->read_string( 'asddlxs' ) ##no_text. CATCH zcx_abapgit_exception. ENDTRY. CREATE OBJECT li_data_model TYPE ('CL_DDLX_WB_OBJECT_DATA'). + ASSIGN COMPONENT 'METADATA-VERSION' OF STRUCTURE TO . + ASSERT sy-subrc = 0. + + " We have to always save as inactive. Standard activation below activates then + " and also creates transport request entry if necessary + = 'inactive'. + li_data_model->set_data( ). get_persistence( )->save( li_data_model ). @@ -177,6 +185,8 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION. ix_previous = lx_error ). ENDTRY. + zcl_abapgit_objects_activation=>add_item( ms_item ). + ENDMETHOD. @@ -202,7 +212,6 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLX IMPLEMENTATION. METHOD zif_abapgit_object~get_metadata. rs_metadata = get_metadata( ). - rs_metadata-ddic = abap_true. rs_metadata-delete_tadir = abap_true. ENDMETHOD.