From 78aa64ee98d0d0fc2e1cf669c30ab392b0eb301f Mon Sep 17 00:00:00 2001 From: sshlapak Date: Fri, 25 Nov 2016 17:40:08 +0200 Subject: [PATCH] MSAG translations --- src/zabapgit_object_msag.prog.abap | 130 +++++++++++++++++++++++++++-- 1 file changed, 122 insertions(+), 8 deletions(-) diff --git a/src/zabapgit_object_msag.prog.abap b/src/zabapgit_object_msag.prog.abap index 1e030e260..bfb8d2837 100644 --- a/src/zabapgit_object_msag.prog.abap +++ b/src/zabapgit_object_msag.prog.abap @@ -13,6 +13,23 @@ CLASS lcl_object_msag DEFINITION INHERITING FROM lcl_objects_super FINAL. INTERFACES lif_object. ALIASES mo_files FOR lif_object~mo_files. + PRIVATE SECTION. + TYPES: BEGIN OF ty_t100_texts, + sprsl TYPE t100-sprsl, + msgnr TYPE t100-msgnr, + text TYPE t100-text, + END OF ty_t100_texts, + tt_t100_texts TYPE STANDARD TABLE OF ty_t100_texts. + + METHODS: + 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_msag DEFINITION *----------------------------------------------------------------------* @@ -111,21 +128,24 @@ CLASS lcl_object_msag IMPLEMENTATION. lcx_exception=>raise( 'Error from RS_CORR_INSERT' ). ENDIF. - SELECT * FROM t100u INTO TABLE lt_before WHERE arbgb = ls_t100a-arbgb. + SELECT * FROM t100u INTO TABLE lt_before + WHERE arbgb = ls_t100a-arbgb ORDER BY msgnr. "#EC CI_GENBUFF "#EC CI_BYPASS LOOP AT lt_t100 ASSIGNING . DELETE lt_before WHERE msgnr = -msgnr. - MODIFY t100 FROM . "#EC CI_SUBRC - ASSERT sy-subrc = 0. - + IF sy-subrc <> 0. + lcx_exception=>raise( 'MSAG: Table T100 modify failed' ). + ENDIF. CLEAR ls_t100u. MOVE-CORRESPONDING TO ls_t100u ##enh_ok. ls_t100u-name = sy-uname. ls_t100u-datum = sy-datum. ls_t100u-selfdef = '3'. MODIFY t100u FROM ls_t100u. "#EC CI_SUBRC - ASSERT sy-subrc = 0. + IF sy-subrc <> 0. + lcx_exception=>raise( 'MSAG: Table T100U modify failed' ). + ENDIF. ENDLOOP. ls_t100a-masterlang = mv_language. @@ -134,19 +154,26 @@ CLASS lcl_object_msag IMPLEMENTATION. ls_t100a-ldate = sy-datum. ls_t100a-ltime = sy-uzeit. MODIFY t100a FROM ls_t100a. "#EC CI_SUBRC - ASSERT sy-subrc = 0. + IF sy-subrc <> 0. + lcx_exception=>raise( 'MSAG: Table T100A modify failed' ). + ENDIF. ls_t100t-sprsl = mv_language. ls_t100t-arbgb = ls_t100a-arbgb. ls_t100t-stext = ls_t100a-stext. MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC - ASSERT sy-subrc = 0. + IF sy-subrc <> 0. + lcx_exception=>raise( 'MSAG: Table T100T modify failed' ). + ENDIF. LOOP AT lt_before INTO ls_t100u. DELETE FROM t100 WHERE arbgb = ls_t100u-arbgb AND msgnr = ls_t100u-msgnr. DELETE FROM t100u WHERE arbgb = ls_t100u-arbgb AND msgnr = ls_t100u-msgnr. ENDLOOP. + deserialize_texts( io_xml = io_xml ). + + ENDMETHOD. "deserialize METHOD lif_object~serialize. @@ -168,7 +195,7 @@ CLASS lcl_object_msag IMPLEMENTATION. SELECT * FROM t100 INTO TABLE lt_source WHERE sprsl = mv_language AND arbgb = lv_msg_id - ORDER BY PRIMARY KEY. "#EC CI_SUBRC "#EC CI_GENBUFF + ORDER BY PRIMARY KEY. "#EC CI_SUBRC "#EC CI_GENBUFF CLEAR: ls_inf-lastuser, ls_inf-ldate, @@ -179,9 +206,96 @@ CLASS lcl_object_msag IMPLEMENTATION. io_xml->add( ig_data = lt_source iv_name = 'T100' ). + serialize_texts( io_xml ). ENDMETHOD. "serialize + METHOD serialize_texts. + + DATA: lv_msg_id TYPE rglif-message_id, + lt_t100_texts TYPE tt_t100_texts, + lt_t100t TYPE table of t100t, + lt_i18n_langs TYPE TABLE OF langu. + + lv_msg_id = ms_item-obj_name. + + " Collect additional languages + " Skip master lang - it has been already serialized + SELECT DISTINCT sprsl AS langu INTO TABLE lt_i18n_langs + FROM t100t + WHERE arbgb = lv_msg_id + AND sprsl <> mv_language. "#EC CI_BYPASS "#EC CI_GENBUFF. + + SORT lt_i18n_langs ASCENDING. + + IF LINES( lt_i18n_langs ) > 0. + + SELECT * FROM t100t INTO CORRESPONDING FIELDS OF TABLE lt_t100t + WHERE sprsl <> mv_language + AND arbgb = lv_msg_id. "#EC CI_GENBUFF + + SELECT * FROM t100 INTO CORRESPONDING FIELDS OF TABLE lt_t100_texts + FOR ALL ENTRIES IN lt_i18n_langs + WHERE sprsl = lt_i18n_langs-table_line + AND arbgb = lv_msg_id + ORDER BY PRIMARY KEY. "#EC CI_SUBRC "#EC CI_GENBUFF + + SORT lt_t100t BY sprsl ASCENDING. + SORT lt_t100_texts BY sprsl msgnr ASCENDING. + + io_xml->add( iv_name = 'I18N_LANGS' + ig_data = lt_i18n_langs ). + + io_xml->add( iv_name = 'T100T' + ig_data = lt_t100t ). + + io_xml->add( iv_name = 'T100_TEXTS' + ig_data = lt_t100_texts ). + + ENDIF. + + ENDMETHOD. + + METHOD deserialize_texts. + + DATA: lv_msg_id TYPE rglif-message_id, + ls_t100 TYPE t100, + lt_t100t TYPE table of t100t, + lt_t100_texts TYPE tt_t100_texts, + lt_t100u TYPE TABLE OF t100u. + + FIELD-SYMBOLS: TYPE ty_t100_texts. + + + lv_msg_id = ms_item-obj_name. + + SELECT * FROM t100u INTO TABLE lt_t100u + WHERE arbgb = lv_msg_id ORDER BY PRIMARY KEY. "#EC CI_GENBUFF + + io_xml->read( EXPORTING iv_name = 'T100_TEXTS' + CHANGING cg_data = lt_t100_texts ). + + io_xml->read( EXPORTING iv_name = 'T100T' + CHANGING cg_data = lt_t100t ). + + MODIFY t100t FROM TABLE lt_t100t. "#EC CI_SUBRC + + LOOP AT lt_t100_texts ASSIGNING . + "check if message exists + READ TABLE lt_t100u TRANSPORTING NO FIELDS + WITH KEY arbgb = lv_msg_id msgnr = -msgnr BINARY SEARCH. + CHECK sy-subrc = 0. "if original message doesn't exist no translations added + + MOVE-CORRESPONDING TO ls_t100. + ls_t100-arbgb = lv_msg_id. + MODIFY t100 FROM ls_t100. "#EC CI_SUBRC + IF sy-subrc <> 0. + lcx_exception=>raise( 'MSAG: Table T100 modify failed' ). + ENDIF. + ENDLOOP. + + ENDMETHOD. + METHOD lif_object~compare_to_remote_version. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD.