SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix CLAS

Browse Source
This commit is contained in:
Lars Hvam 2016-03-06 11:52:52 +01:00
parent ca8c9faccd
commit 2f8e9bfa99
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
zabapgit.prog.abap
View File

@ -4664,7 +4664,6 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_super FINAL.
RAISING lcx_exception. RAISING lcx_exception.
METHODS serialize_xml METHODS serialize_xml
RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml_output
RAISING lcx_exception. RAISING lcx_exception.
METHODS remove_signatures METHODS remove_signatures
@ -4939,7 +4938,6 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lt_source TYPE seop_source_string, DATA: lt_source TYPE seop_source_string,
lo_xml TYPE REF TO lcl_xml_output,
ls_clskey TYPE seoclskey. ls_clskey TYPE seoclskey.
@ -4987,10 +4985,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
lo_xml = serialize_xml( ). serialize_xml( ).
IF lo_xml IS BOUND.
mo_files->add_xml( lo_xml ).
ENDIF.
ENDMETHOD. "serialize ENDMETHOD. "serialize
@ -4999,6 +4994,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
DATA: ls_vseoclass TYPE vseoclass, DATA: ls_vseoclass TYPE vseoclass,
lv_cp TYPE program, lv_cp TYPE program,
lt_tpool TYPE textpool_table, lt_tpool TYPE textpool_table,
lo_xml TYPE REF TO lcl_xml_output,
lv_object TYPE dokhl-object, lv_object TYPE dokhl-object,
lv_state TYPE dokhl-dokstate, lv_state TYPE dokhl-dokstate,
ls_vseointerf TYPE vseointerf, ls_vseointerf TYPE vseointerf,
@ -5046,19 +5042,19 @@ CLASS lcl_object_clas IMPLEMENTATION.
ls_vseointerf-changedon, ls_vseointerf-changedon,
ls_vseointerf-r3release. ls_vseointerf-r3release.
CREATE OBJECT ro_xml. CREATE OBJECT lo_xml.
CASE ms_item-obj_type. CASE ms_item-obj_type.
WHEN 'CLAS'. WHEN 'CLAS'.
ro_xml->add( iv_name = 'VSEOCLASS' lo_xml->add( iv_name = 'VSEOCLASS'
ig_data = ls_vseoclass ). ig_data = ls_vseoclass ).
lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ). lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ).
READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE gc_english. "#EC CI_READ_REP READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE gc_english. "#EC CI_READ_REP
ro_xml->add( iv_name = 'TPOOL' lo_xml->add( iv_name = 'TPOOL'
ig_data = lt_tpool ). ig_data = lt_tpool ).
WHEN 'INTF'. WHEN 'INTF'.
ro_xml->add( iv_name = 'VSEOINTERF' lo_xml->add( iv_name = 'VSEOINTERF'
ig_data = ls_vseointerf ). ig_data = ls_vseointerf ).
WHEN OTHERS. WHEN OTHERS.
ASSERT 0 = 1. ASSERT 0 = 1.
@ -5081,10 +5077,12 @@ CLASS lcl_object_clas IMPLEMENTATION.
ret_code = 4 ret_code = 4
OTHERS = 5. OTHERS = 5.
IF sy-subrc = 0 AND lv_state = 'R'. IF sy-subrc = 0 AND lv_state = 'R'.
ro_xml->add( iv_name = 'LINES' lo_xml->add( iv_name = 'LINES'
ig_data = lt_lines ). ig_data = lt_lines ).
ENDIF. ENDIF.
mo_files->add_xml( lo_xml ).
ENDMETHOD. "serialize_xml ENDMETHOD. "serialize_xml
METHOD lif_object~deserialize. METHOD lif_object~deserialize.