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

DOMA: consider clearing VALPOS (#3083)

Browse Source
This commit is contained in:
Italo N 2019-11-26 03:39:25 -03:00 committed by Lars Hvam
parent 965082510b
commit 0f379b950a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/objects/zcl_abapgit_object_doma.clas.abap
View File

@ -44,6 +44,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
METHOD deserialize_texts. METHOD deserialize_texts.
DATA: lv_name TYPE ddobjname, DATA: lv_name TYPE ddobjname,
lv_valpos TYPE valpos,
ls_dd01v_tmp TYPE dd01v, ls_dd01v_tmp TYPE dd01v,
lt_dd07v_tmp TYPE TABLE OF dd07v, lt_dd07v_tmp TYPE TABLE OF dd07v,
lt_i18n_langs TYPE TABLE OF langu, lt_i18n_langs TYPE TABLE OF langu,
@ -82,10 +83,12 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
" Domain values " Domain values
lt_dd07v_tmp = it_dd07v. lt_dd07v_tmp = it_dd07v.
LOOP AT lt_dd07v_tmp ASSIGNING <ls_dd07v>. LOOP AT lt_dd07v_tmp ASSIGNING <ls_dd07v>.
lv_valpos = <ls_dd07v>-valpos.
READ TABLE lt_dd07_texts ASSIGNING <ls_dd07_text> READ TABLE lt_dd07_texts ASSIGNING <ls_dd07_text>
WITH KEY ddlanguage = <lv_lang> valpos = <ls_dd07v>-valpos. WITH KEY ddlanguage = <lv_lang> valpos = <ls_dd07v>-valpos.
CHECK sy-subrc = 0. " ! no translation -> master translation remain (maybe not OK) CHECK sy-subrc = 0. " ! no translation -> master translation remain (maybe not OK)
MOVE-CORRESPONDING <ls_dd07_text> TO <ls_dd07v>. MOVE-CORRESPONDING <ls_dd07_text> TO <ls_dd07v>.
<ls_dd07v>-valpos = lv_valpos.
DELETE lt_dd07_texts INDEX sy-tabix. " Optimization DELETE lt_dd07_texts INDEX sy-tabix. " Optimization
ENDLOOP. ENDLOOP.
@ -135,7 +138,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
SELECT DISTINCT ddlanguage AS langu INTO TABLE lt_i18n_langs SELECT DISTINCT ddlanguage AS langu INTO TABLE lt_i18n_langs
FROM dd01v FROM dd01v
WHERE domname = lv_name WHERE domname = lv_name
AND ddlanguage <> mv_language. "#EC CI_SUBRC AND ddlanguage <> mv_language. "#EC CI_SUBRC
LOOP AT lt_i18n_langs ASSIGNING <lv_lang>. LOOP AT lt_i18n_langs ASSIGNING <lv_lang>.
lv_index = sy-tabix. lv_index = sy-tabix.
@ -257,6 +260,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
ls_dd01v TYPE dd01v, ls_dd01v TYPE dd01v,
lt_dd07v TYPE TABLE OF dd07v. lt_dd07v TYPE TABLE OF dd07v.
FIELD-SYMBOLS <ls_dd07v> TYPE dd07v.
io_xml->read( EXPORTING iv_name = 'DD01V' io_xml->read( EXPORTING iv_name = 'DD01V'
CHANGING cg_data = ls_dd01v ). CHANGING cg_data = ls_dd01v ).
@ -267,6 +271,11 @@ CLASS ZCL_ABAPGIT_OBJECT_DOMA IMPLEMENTATION.
lv_name = ms_item-obj_name. " type conversion lv_name = ms_item-obj_name. " type conversion
LOOP AT lt_dd07v ASSIGNING <ls_dd07v>.
<ls_dd07v>-domname = lv_name.
<ls_dd07v>-valpos = sy-tabix.
ENDLOOP.
CALL FUNCTION 'DDIF_DOMA_PUT' CALL FUNCTION 'DDIF_DOMA_PUT'
EXPORTING EXPORTING
name = lv_name name = lv_name