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

LXE: Downport (#5597)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Christian Günter 2022-05-30 10:12:26 +02:00 committed by GitHub
parent cbaf3711b4
commit 5e7cf0b27e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 126 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

173
src/objects/texts/zcl_abapgit_lxe_texts.clas.abap
View File

@ -63,6 +63,31 @@ CLASS zcl_abapgit_lxe_texts DEFINITION
iv_object_name TYPE sobj_name iv_object_name TYPE sobj_name
RETURNING RETURNING
VALUE(rt_obj_list) TYPE lxe_tt_colob . VALUE(rt_obj_list) TYPE lxe_tt_colob .
METHODS
read_lxe_object_text_pair
IMPORTING
iv_s_lang TYPE lxeisolang
iv_t_lang TYPE lxeisolang
iv_custmnr TYPE lxecustmnr
iv_objtype TYPE trobjtype
iv_objname TYPE lxeobjname
iv_read_only TYPE abap_bool DEFAULT abap_true
RETURNING
VALUE(rt_text_pairs_tmp) TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n-text_pairs
RAISING
zcx_abapgit_exception.
METHODS
write_lxe_object_text_pair
IMPORTING
iv_s_lang TYPE lxeisolang
iv_t_lang TYPE lxeisolang
iv_custmnr TYPE lxecustmnr
iv_objtype TYPE trobjtype
iv_objname TYPE lxeobjname
it_pcx_s1 TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n-text_pairs
RAISING
zcx_abapgit_exception.
CLASS-METHODS CLASS-METHODS
langu_to_laiso_safe langu_to_laiso_safe
IMPORTING IMPORTING
@ -319,7 +344,6 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
DATA: DATA:
lt_lxe_texts TYPE zif_abapgit_lxe_texts=>ty_tlxe_i18n, lt_lxe_texts TYPE zif_abapgit_lxe_texts=>ty_tlxe_i18n,
ls_lxe_item TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n, ls_lxe_item TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n,
lv_error TYPE lxestring,
lt_text_pairs_tmp LIKE ls_lxe_item-text_pairs. lt_text_pairs_tmp LIKE ls_lxe_item-text_pairs.
ii_xml->read( EXPORTING iv_name = iv_lxe_text_name ii_xml->read( EXPORTING iv_name = iv_lxe_text_name
@ -327,38 +351,24 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
LOOP AT lt_lxe_texts INTO ls_lxe_item. LOOP AT lt_lxe_texts INTO ls_lxe_item.
" Call Read first for buffer prefill " Call Read first for buffer prefill
CLEAR: lt_text_pairs_tmp.
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_READ' lt_text_pairs_tmp = read_lxe_object_text_pair(
EXPORTING iv_s_lang = ls_lxe_item-source_lang
s_lang = ls_lxe_item-source_lang iv_t_lang = ls_lxe_item-target_lang
t_lang = ls_lxe_item-target_lang iv_custmnr = ls_lxe_item-custmnr
custmnr = ls_lxe_item-custmnr iv_objtype = ls_lxe_item-objtype
objtype = ls_lxe_item-objtype iv_objname = ls_lxe_item-objname
objname = ls_lxe_item-objname iv_read_only = abap_false ).
read_only = abap_false
IMPORTING
err_msg = lv_error
TABLES
lt_pcx_s1 = lt_text_pairs_tmp.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
"Call actual Write FM "Call actual Write FM
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_WRITE' write_lxe_object_text_pair(
EXPORTING iv_s_lang = ls_lxe_item-source_lang
s_lang = ls_lxe_item-source_lang iv_t_lang = ls_lxe_item-target_lang
t_lang = ls_lxe_item-target_lang iv_custmnr = ls_lxe_item-custmnr
custmnr = ls_lxe_item-custmnr iv_objtype = ls_lxe_item-objtype
objtype = ls_lxe_item-objtype iv_objname = ls_lxe_item-objname
objname = ls_lxe_item-objname it_pcx_s1 = ls_lxe_item-text_pairs ).
IMPORTING
err_msg = lv_error
TABLES
lt_pcx_s1 = ls_lxe_item-text_pairs.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
ENDLOOP. ENDLOOP.
ENDMETHOD. ENDMETHOD.
@ -369,7 +379,6 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
DATA: DATA:
lt_obj_list TYPE lxe_tt_colob, lt_obj_list TYPE lxe_tt_colob,
lv_main_lang TYPE lxeisolang, lv_main_lang TYPE lxeisolang,
lv_error TYPE lxestring,
lt_languages TYPE zif_abapgit_definitions=>ty_languages, lt_languages TYPE zif_abapgit_definitions=>ty_languages,
lt_lxe_texts TYPE zif_abapgit_lxe_texts=>ty_tlxe_i18n, lt_lxe_texts TYPE zif_abapgit_lxe_texts=>ty_tlxe_i18n,
ls_lxe_text_item TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n. ls_lxe_text_item TYPE zif_abapgit_lxe_texts=>ty_lxe_i18n.
@ -403,21 +412,12 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
CONTINUE. " if source = target -> skip CONTINUE. " if source = target -> skip
ENDIF. ENDIF.
CLEAR ls_lxe_text_item-text_pairs. ls_lxe_text_item-text_pairs = read_lxe_object_text_pair(
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_READ' iv_s_lang = ls_lxe_text_item-source_lang
EXPORTING iv_t_lang = ls_lxe_text_item-target_lang
s_lang = ls_lxe_text_item-source_lang iv_custmnr = ls_lxe_text_item-custmnr
t_lang = ls_lxe_text_item-target_lang iv_objtype = ls_lxe_text_item-objtype
custmnr = ls_lxe_text_item-custmnr iv_objname = ls_lxe_text_item-objname ).
objtype = ls_lxe_text_item-objtype
objname = ls_lxe_text_item-objname
IMPORTING
err_msg = lv_error
TABLES
lt_pcx_s1 = ls_lxe_text_item-text_pairs.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
IF ls_lxe_text_item-text_pairs IS NOT INITIAL. IF ls_lxe_text_item-text_pairs IS NOT INITIAL.
APPEND ls_lxe_text_item TO lt_lxe_texts. APPEND ls_lxe_text_item TO lt_lxe_texts.
@ -429,4 +429,83 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION.
ig_data = lt_lxe_texts ). ig_data = lt_lxe_texts ).
ENDMETHOD. ENDMETHOD.
METHOD read_lxe_object_text_pair.
DATA:
lv_error TYPE lxestring.
TRY.
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_READ'
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
read_only = iv_read_only
IMPORTING
err_msg = lv_error " doesn't exist in NW <= 750
TABLES
lt_pcx_s1 = rt_text_pairs_tmp.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_READ'
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
read_only = iv_read_only
TABLES
lt_pcx_s1 = rt_text_pairs_tmp.
ENDTRY.
ENDMETHOD.
METHOD write_lxe_object_text_pair.
DATA:
lv_error TYPE lxestring.
TRY.
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_WRITE'
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
IMPORTING
err_msg = lv_error " doesn't exist in NW <= 750
TABLES
lt_pcx_s1 = it_pcx_s1.
IF lv_error IS NOT INITIAL.
zcx_abapgit_exception=>raise( lv_error ).
ENDIF.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'LXE_OBJ_TEXT_PAIR_WRITE'
EXPORTING
s_lang = iv_s_lang
t_lang = iv_t_lang
custmnr = iv_custmnr
objtype = iv_objtype
objname = iv_objname
TABLES
lt_pcx_s1 = it_pcx_s1.
ENDTRY.
ENDMETHOD.
ENDCLASS. ENDCLASS.