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

Merge pull request #622 from sbcgua/tran_serializing_translations

Browse Source 
TRAN serialize texts
This commit is contained in:
Lars Hvam 2017-02-14 13:19:01 +01:00 committed by GitHub
commit bd7594f412
2 changed files with 60 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit_object_doma.prog.abap
View File

@ -278,7 +278,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
SORT lt_dd01_texts BY ddlanguage ASCENDING. SORT lt_dd01_texts BY ddlanguage ASCENDING.
SORT lt_dd07_texts BY ddlanguage ASCENDING. SORT lt_dd07_texts BY ddlanguage ASCENDING.
IF lines( lt_i18n_langs ) > 1. IF lines( lt_i18n_langs ) > 0.
io_xml->add( iv_name = 'I18N_LANGS' io_xml->add( iv_name = 'I18N_LANGS'
ig_data = lt_i18n_langs ). ig_data = lt_i18n_langs ).

60
src/zabapgit_object_tran.prog.abap
View File

@ -33,10 +33,19 @@ CLASS lcl_object_tran DEFINITION INHERITING FROM lcl_objects_super FINAL.
cs_rsstcd TYPE rsstcd cs_rsstcd TYPE rsstcd
cs_tstcp TYPE tstcp cs_tstcp TYPE tstcp
cs_tstc TYPE tstc, cs_tstc TYPE tstc,
split_parameters_comp split_parameters_comp
IMPORTING iv_type TYPE any IMPORTING iv_type TYPE any
iv_param TYPE any iv_param TYPE any
CHANGING cg_value TYPE any. CHANGING cg_value TYPE any,
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception.
ENDCLASS. "lcl_object_TRAN DEFINITION ENDCLASS. "lcl_object_TRAN DEFINITION
@ -356,6 +365,9 @@ CLASS lcl_object_tran IMPLEMENTATION.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_INSERT' ). lcx_exception=>raise( 'Error from RPY_TRANSACTION_INSERT' ).
ENDIF. ENDIF.
" Texts deserializing (translations)
deserialize_texts( io_xml ).
ENDMETHOD. "deserialize ENDMETHOD. "deserialize
METHOD lif_object~serialize. METHOD lif_object~serialize.
@ -412,10 +424,56 @@ CLASS lcl_object_tran IMPLEMENTATION.
ig_data = ls_tstcp ). ig_data = ls_tstcp ).
ENDIF. ENDIF.
" Texts serializing (translations)
serialize_texts( io_xml ).
ENDMETHOD. "serialize ENDMETHOD. "serialize
METHOD lif_object~compare_to_remote_version. METHOD lif_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result.
ENDMETHOD. ENDMETHOD.
METHOD serialize_texts.
DATA lt_tpool_i18n TYPE TABLE OF tstct.
" Skip master language - it was already serialized
" Don't serialize t-code itself
SELECT sprsl ttext
INTO CORRESPONDING FIELDS OF TABLE lt_tpool_i18n
FROM tstct
WHERE sprsl <> mv_language
AND tcode = ms_item-obj_name.
IF lines( lt_tpool_i18n ) > 0.
SORT lt_tpool_i18n BY sprsl ASCENDING.
io_xml->add( iv_name = 'I18N_TPOOL'
ig_data = lt_tpool_i18n ).
ENDIF.
ENDMETHOD. "serialize_texts
METHOD deserialize_texts.
DATA lt_tpool_i18n TYPE TABLE OF tstct.
FIELD-SYMBOLS <tpool> LIKE LINE OF lt_tpool_i18n.
" Read XML-files data
io_xml->read( EXPORTING iv_name = 'I18N_TPOOL'
CHANGING cg_data = lt_tpool_i18n ).
" Force t-code name (security reasons)
LOOP AT lt_tpool_i18n ASSIGNING <tpool>.
<tpool>-tcode = ms_item-obj_name.
ENDLOOP.
IF lines( lt_tpool_i18n ) > 0.
MODIFY tstct FROM TABLE lt_tpool_i18n.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Update of t-code translations failed' ).
ENDIF.
ENDIF.
ENDMETHOD. "deserialize_texts
ENDCLASS. "lcl_object_tran IMPLEMENTATION ENDCLASS. "lcl_object_tran IMPLEMENTATION