SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Deserializing of textpool

Browse Source 
This commit delivers the fixes and fine-tuning to the deserializing of textpools for a program.
This commit is contained in:
TheWirtschaftsmann 2017-02-09 19:05:31 +02:00
parent 1e8257420c
commit b4f2912a04
2 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/zabapgit_object_prog.prog.abap
View File

@ -203,25 +203,19 @@ CLASS lcl_object_prog IMPLEMENTATION.
ENDMETHOD. "serialize_texts ENDMETHOD. "serialize_texts
METHOD deserialize_texts. METHOD deserialize_texts.
DATA:
lt_tpool_i18n TYPE tt_tpool_i18n,
ls_tpool_i18n LIKE LINE OF lt_tpool_i18n,
lt_langs_i18n TYPE STANDARD TABLE OF langu.
FIELD-SYMBOLS: <lang> LIKE LINE OF lt_langs_i18n. DATA lt_tpool_i18n TYPE tt_tpool_i18n.
FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n.
io_xml->read( EXPORTING iv_name = 'I18N_LANGS'
CHANGING cg_data = lt_langs_i18n ).
io_xml->read( EXPORTING iv_name = 'I18N_TPOOL' io_xml->read( EXPORTING iv_name = 'I18N_TPOOL'
CHANGING cg_data = lt_tpool_i18n ). CHANGING cg_data = lt_tpool_i18n ).
LOOP AT lt_langs_i18n ASSIGNING <lang>. LOOP AT lt_tpool_i18n ASSIGNING <tpool>.
READ TABLE lt_tpool_i18n INTO ls_tpool_i18n WITH KEY langu = <lang>.
deserialize_textpool( iv_program = ms_item-obj_name deserialize_textpool( iv_program = ms_item-obj_name
iv_language = <lang> iv_language = <tpool>-langu
it_tpool = ls_tpool_i18n-textpool ). it_tpool = <tpool>-textpool ).
ENDLOOP. ENDLOOP.
ENDMETHOD. "deserialize_texts ENDMETHOD. "deserialize_texts
ENDCLASS. "lcl_object_prog IMPLEMENTATION ENDCLASS. "lcl_object_prog IMPLEMENTATION

3
src/zabapgit_objects.prog.abap
View File

@ -1426,8 +1426,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
INSERT TEXTPOOL iv_program INSERT TEXTPOOL iv_program
FROM it_tpool FROM it_tpool
LANGUAGE lv_language LANGUAGE lv_language.
STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ). lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF. ENDIF.