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

PROG I18N_TPOOL error #757

Browse Source
This commit is contained in:
larshp 2017-05-17 16:52:48 +00:00
parent ff25ecabe9
commit 8a77e59a3c
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.36.0'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.36.1'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

15
src/zabapgit_object_prog.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_program FINAL.
PRIVATE SECTION. PRIVATE SECTION.
TYPES: BEGIN OF ty_tpool_i18n, TYPES: BEGIN OF ty_tpool_i18n,
language TYPE langu, language TYPE langu,
textpool TYPE textpool_table, textpool TYPE ty_tpool_tt,
END OF ty_tpool_i18n, END OF ty_tpool_i18n,
tt_tpool_i18n TYPE STANDARD TABLE OF ty_tpool_i18n. tt_tpool_i18n TYPE STANDARD TABLE OF ty_tpool_i18n.
@ -163,7 +163,8 @@ CLASS lcl_object_prog IMPLEMENTATION.
METHOD serialize_texts. METHOD serialize_texts.
DATA lt_tpool_i18n TYPE tt_tpool_i18n. DATA: lt_tpool_i18n TYPE tt_tpool_i18n,
lt_tpool TYPE textpool_table.
FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n. FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n.
@ -181,7 +182,8 @@ CLASS lcl_object_prog IMPLEMENTATION.
LOOP AT lt_tpool_i18n ASSIGNING <tpool>. LOOP AT lt_tpool_i18n ASSIGNING <tpool>.
READ TEXTPOOL ms_item-obj_name READ TEXTPOOL ms_item-obj_name
LANGUAGE <tpool>-language LANGUAGE <tpool>-language
INTO <tpool>-textpool. INTO lt_tpool.
<tpool>-textpool = add_tpool( lt_tpool ).
ENDLOOP. ENDLOOP.
IF lines( lt_tpool_i18n ) > 0. IF lines( lt_tpool_i18n ) > 0.
@ -193,16 +195,19 @@ CLASS lcl_object_prog IMPLEMENTATION.
METHOD deserialize_texts. METHOD deserialize_texts.
DATA lt_tpool_i18n TYPE tt_tpool_i18n. DATA: lt_tpool_i18n TYPE tt_tpool_i18n,
lt_tpool TYPE textpool_table.
FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n. FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_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_tpool_i18n ASSIGNING <tpool>. LOOP AT lt_tpool_i18n ASSIGNING <tpool>.
lt_tpool = read_tpool( <tpool>-textpool ).
deserialize_textpool( iv_program = ms_item-obj_name deserialize_textpool( iv_program = ms_item-obj_name
iv_language = <tpool>-language iv_language = <tpool>-language
it_tpool = <tpool>-textpool ). it_tpool = lt_tpool ).
ENDLOOP. ENDLOOP.
ENDMETHOD. "deserialize_texts ENDMETHOD. "deserialize_texts