diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap index a978ed0e2..afeef4911 100644 --- a/src/zabapgit_object_clas.prog.abap +++ b/src/zabapgit_object_clas.prog.abap @@ -21,6 +21,8 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program. TYPES: ty_sotr_tt TYPE STANDARD TABLE OF ty_sotr WITH DEFAULT KEY. + TYPES: ty_seocompotx_tt TYPE STANDARD TABLE OF seocompotx WITH DEFAULT KEY. + DATA mv_skip_testclass TYPE abap_bool. METHODS deserialize_abap @@ -621,6 +623,7 @@ CLASS lcl_object_clas IMPLEMENTATION. lt_tpool TYPE textpool_table, lv_object TYPE dokhl-object, lv_state TYPE dokhl-dokstate, + lt_seocompotx TYPE ty_seocompotx_tt, ls_vseointerf TYPE vseointerf, ls_clskey TYPE seoclskey, lt_sotr TYPE ty_sotr_tt, @@ -712,6 +715,14 @@ CLASS lcl_object_clas IMPLEMENTATION. ig_data = lt_lines ). ENDIF. + SELECT * FROM seocompotx INTO TABLE lt_seocompotx + WHERE clsname = ls_clskey-clsname. + DELETE lt_seocompotx WHERE descript IS INITIAL. + IF lines( lt_seocompotx ) > 0. + io_xml->add( iv_name = 'DESCRIPTIONS' + ig_data = lt_seocompotx ). + ENDIF. + ENDMETHOD. "serialize_xml METHOD lif_object~deserialize. @@ -878,6 +889,7 @@ CLASS lcl_object_clas IMPLEMENTATION. lt_locals_imp TYPE seop_source_string, lt_locals_mac TYPE seop_source_string, lt_testclasses TYPE seop_source_string, + lt_seocompotx TYPE ty_seocompotx_tt, ls_clskey TYPE seoclskey. @@ -977,6 +989,11 @@ CLASS lcl_object_clas IMPLEMENTATION. it_source = lt_source ). ENDTRY. + io_xml->read( EXPORTING iv_name = 'DESCRIPTIONS' + CHANGING cg_data = lt_seocompotx ). + DELETE FROM seocompotx WHERE clsname = ls_clskey-clsname. + INSERT seocompotx FROM TABLE lt_seocompotx. + lcl_objects_activation=>add_item( ms_item ). ENDMETHOD. "deserialize