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

remove english language limitation #189

Browse Source 
class for WDCA removed, see #79
This commit is contained in:
larshp 2016-05-20 10:52:42 +00:00
parent a2505b14c6
commit 97a6131267
1 changed files with 80 additions and 262 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

342
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* 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.9.2'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.9.3'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -3202,11 +3202,13 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
METHODS: METHODS:
constructor constructor
IMPORTING IMPORTING
is_item TYPE ty_item. is_item TYPE ty_item
iv_language TYPE spras.
PROTECTED SECTION. PROTECTED SECTION.
DATA: ms_item TYPE ty_item. DATA: ms_item TYPE ty_item,
mv_language TYPE spras.
METHODS: METHODS:
get_metadata get_metadata
@ -3269,7 +3271,8 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
DATA ls_objtype_map LIKE LINE OF gt_objtype_map. DATA ls_objtype_map LIKE LINE OF gt_objtype_map.
super->constructor( is_item ). super->constructor( is_item = is_item
iv_language = gc_english ).
* determine the responsible plugin * determine the responsible plugin
READ TABLE gt_objtype_map INTO ls_objtype_map READ TABLE gt_objtype_map INTO ls_objtype_map
@ -3673,7 +3676,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
object = is_progdir-name object = is_progdir-name
object_class = 'ABAP' object_class = 'ABAP'
devclass = iv_package devclass = iv_package
master_language = gc_english master_language = mv_language
mode = 'INSERT' mode = 'INSERT'
EXCEPTIONS EXCEPTIONS
cancelled = 1 cancelled = 1
@ -3732,7 +3735,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
IF NOT it_tpool[] IS INITIAL. IF NOT it_tpool[] IS INITIAL.
INSERT TEXTPOOL is_progdir-name INSERT TEXTPOOL is_progdir-name
FROM it_tpool FROM it_tpool
LANGUAGE gc_english LANGUAGE mv_language
STATE 'I'. STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'. _raise 'error from INSERT TEXTPOOL'.
@ -3813,7 +3816,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
CALL FUNCTION 'RS_CUA_INTERNAL_FETCH' CALL FUNCTION 'RS_CUA_INTERNAL_FETCH'
EXPORTING EXPORTING
program = iv_program_name program = iv_program_name
language = gc_english language = mv_language
state = 'A' state = 'A'
IMPORTING IMPORTING
adm = rs_cua-adm adm = rs_cua-adm
@ -4022,7 +4025,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
CALL FUNCTION 'RS_CUA_INTERNAL_WRITE' CALL FUNCTION 'RS_CUA_INTERNAL_WRITE'
EXPORTING EXPORTING
program = ms_item-obj_name program = ms_item-obj_name
language = gc_english language = mv_language
tr_key = ls_tr_key tr_key = ls_tr_key
adm = is_cua-adm adm = is_cua-adm
state = 'I' state = 'I'
@ -4060,7 +4063,10 @@ ENDCLASS. "lcl_objects_program IMPLEMENTATION
CLASS lcl_objects_super IMPLEMENTATION. CLASS lcl_objects_super IMPLEMENTATION.
METHOD constructor. METHOD constructor.
ms_item = is_item. ms_item = is_item.
ASSERT NOT ms_item IS INITIAL.
mv_language = iv_language.
ASSERT NOT mv_language IS INITIAL.
ENDMETHOD. "constructor ENDMETHOD. "constructor
METHOD jump_se11. METHOD jump_se11.
@ -4122,7 +4128,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
object = ls_object object = ls_object
object_class = 'DICT' object_class = 'DICT'
devclass = iv_package devclass = iv_package
master_language = gc_english master_language = mv_language
mode = 'INSERT' mode = 'INSERT'
EXCEPTIONS EXCEPTIONS
cancelled = 1 cancelled = 1
@ -4623,7 +4629,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
CALL FUNCTION 'DDIF_DOMA_GET' CALL FUNCTION 'DDIF_DOMA_GET'
EXPORTING EXPORTING
name = lv_name name = lv_name
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd01v_wa = ls_dd01v dd01v_wa = ls_dd01v
TABLES TABLES
@ -5331,7 +5337,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
CALL FUNCTION 'DDIF_DTEL_GET' CALL FUNCTION 'DDIF_DTEL_GET'
EXPORTING EXPORTING
name = lv_name name = lv_name
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd04v_wa = ls_dd04v dd04v_wa = ls_dd04v
tpara_wa = ls_tpara tpara_wa = ls_tpara
@ -5844,7 +5850,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
ig_data = ls_vseoclass ). ig_data = ls_vseoclass ).
lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ). lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ).
READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE gc_english. "#EC CI_READ_REP READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE mv_language. "#EC CI_READ_REP
io_xml->add( iv_name = 'TPOOL' io_xml->add( iv_name = 'TPOOL'
ig_data = add_tpool( lt_tpool ) ). ig_data = add_tpool( lt_tpool ) ).
WHEN 'INTF'. WHEN 'INTF'.
@ -5858,7 +5864,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
CALL FUNCTION 'DOCU_GET' CALL FUNCTION 'DOCU_GET'
EXPORTING EXPORTING
id = 'CL' id = 'CL'
langu = gc_english langu = mv_language
object = lv_object object = lv_object
IMPORTING IMPORTING
dokstate = lv_state dokstate = lv_state
@ -5913,7 +5919,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
CALL FUNCTION 'DOCU_UPD' CALL FUNCTION 'DOCU_UPD'
EXPORTING EXPORTING
id = 'CL' id = 'CL'
langu = gc_english langu = mv_language
object = lv_object object = lv_object
TABLES TABLES
line = lt_lines line = lt_lines
@ -5947,7 +5953,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
INSERT TEXTPOOL lv_cp INSERT TEXTPOOL lv_cp
FROM lt_tpool FROM lt_tpool
LANGUAGE gc_english LANGUAGE mv_language
STATE 'I'. STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'. _raise 'error from INSERT TEXTPOOL'.
@ -6516,7 +6522,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
EXPORTING EXPORTING
icf_name = ls_key-icf_name icf_name = ls_key-icf_name
icfparguid = ls_key-icfparguid icfparguid = ls_key-icfparguid
icf_langu = gc_english icf_langu = mv_language
IMPORTING IMPORTING
serv_info = lt_serv_info serv_info = lt_serv_info
icfdocu = es_icfdocu icfdocu = es_icfdocu
@ -6639,7 +6645,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
icf_name = is_icfservice-orig_name icf_name = is_icfservice-orig_name
icfparguid = lv_parent icfparguid = lv_parent
icfdocu = ls_icfdocu icfdocu = ls_icfdocu
doculang = gc_english doculang = mv_language
icfhandlst = lt_icfhndlist icfhandlst = lt_icfhndlist
package = iv_package package = iv_package
application = space application = space
@ -6694,7 +6700,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
icf_name = is_icfservice-orig_name icf_name = is_icfservice-orig_name
icfparguid = iv_parent icfparguid = iv_parent
icfdocu = is_icfdocu icfdocu = is_icfdocu
doculang = gc_english doculang = mv_language
icfhandlst = lt_icfhndlist icfhandlst = lt_icfhndlist
package = iv_package package = iv_package
application = space application = space
@ -6841,7 +6847,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
i_style_name = lv_style_name i_style_name = lv_style_name
i_style_active_flag = 'A' i_style_active_flag = 'A'
i_style_variant = '%MAIN' i_style_variant = '%MAIN'
i_style_language = gc_english i_style_language = mv_language
IMPORTING IMPORTING
e_header = ls_header e_header = ls_header
TABLES TABLES
@ -7611,209 +7617,6 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ENDCLASS. "lcl_object_wdyn IMPLEMENTATION ENDCLASS. "lcl_object_wdyn IMPLEMENTATION
*----------------------------------------------------------------------*
* CLASS lcl_object_wdca DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_object_wdca DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION.
INTERFACES lif_object.
ALIASES mo_files FOR lif_object~mo_files.
METHODS constructor
IMPORTING
is_item TYPE ty_item
RAISING cx_sy_create_object_error.
PRIVATE SECTION.
METHODS read
EXPORTING es_outline TYPE wdy_cfg_outline_data
et_data TYPE wdy_cfg_persist_data_appl_tab
RAISING lcx_exception.
METHODS save
IMPORTING is_outline TYPE wdy_cfg_outline_data
it_data TYPE wdy_cfg_persist_data_appl_tab
iv_package TYPE devclass
RAISING lcx_exception.
ENDCLASS. "lcl_object_wdca DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_object_wdca IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_object_wdca IMPLEMENTATION.
METHOD lif_object~get_metadata.
rs_metadata = get_metadata( ).
ENDMETHOD. "lif_object~get_metadata
METHOD constructor.
super->constructor( is_item = is_item ).
RAISE EXCEPTION TYPE cx_sy_create_object_error.
* This serializer is currently not yet functional.
* Prevent instantiation in order to enable handling of WDCA by plugins
ENDMETHOD. "constructor
METHOD lif_object~exists.
DATA: ls_outline TYPE wdy_cfg_outline_data.
read( IMPORTING es_outline = ls_outline ).
rv_bool = boolc( NOT ls_outline IS INITIAL ).
ENDMETHOD. "lif_object~exists
METHOD save.
_raise 'WDCA, save not implemented'.
* below code are ideas, does not seem to work though
* DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
* ls_key TYPE wdy_config_key,
* ls_data LIKE LINE OF it_data,
* lv_operation TYPE i,
* lv_name TYPE wdy_md_object_name.
*
*
* MOVE-CORRESPONDING is_outline TO ls_key.
*
* TRY.
* CREATE OBJECT lo_cfg
* EXPORTING
* config_key = ls_key
* object_name = lv_name.
*
* READ TABLE it_data INDEX 1 INTO ls_data.
* ASSERT sy-subrc = 0.
*
* lo_cfg->set_save_data( ls_data ).
*
* lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save.
* lo_cfg->do_next_step( CHANGING c_operation = lv_operation ).
*
* CATCH cx_wd_configuration.
* _raise 'WDCA, save error'.
* ENDTRY.
ENDMETHOD. "save
METHOD read.
DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
ls_key TYPE wdy_config_key,
lv_exists TYPE abap_bool,
lx_err TYPE REF TO cx_wd_configuration,
lv_name TYPE wdy_md_object_name.
CLEAR et_data.
ls_key = ms_item-obj_name.
TRY.
CREATE OBJECT lo_cfg
EXPORTING
config_key = ls_key
object_name = lv_name.
MOVE-CORRESPONDING ls_key TO es_outline.
lo_cfg->check_config_existent(
EXPORTING
i_outline_data = es_outline
i_only_current_layer = abap_false
i_is_original = abap_true
IMPORTING
e_is_existent = lv_exists ).
IF lv_exists = abap_false.
CLEAR es_outline.
RETURN.
ENDIF.
es_outline = lo_cfg->read_outline_data( ).
CATCH cx_wd_configuration INTO lx_err.
IF lx_err->textid = cx_wd_configuration=>conf_config_not_exist.
CLEAR es_outline.
RETURN.
ELSE.
_raise 'WDCA, read error'.
ENDIF.
ENDTRY.
CLEAR: es_outline-devclass,
es_outline-author,
es_outline-createdon,
es_outline-changedby,
es_outline-changedon.
et_data = lo_cfg->read_data( ).
ENDMETHOD. "read
METHOD lif_object~serialize.
DATA: ls_outline TYPE wdy_cfg_outline_data,
lt_data TYPE wdy_cfg_persist_data_appl_tab.
read( IMPORTING es_outline = ls_outline
et_data = lt_data ).
IF ls_outline IS INITIAL.
RETURN.
ENDIF.
io_xml->add( iv_name = 'OUTLINE'
ig_data = ls_outline ).
io_xml->add( iv_name = 'DATA'
ig_data = lt_data ).
ENDMETHOD. "serialize
METHOD lif_object~deserialize.
DATA: ls_outline TYPE wdy_cfg_outline_data,
lt_data TYPE wdy_cfg_persist_data_appl_tab.
io_xml->read( EXPORTING iv_name = 'OUTLINE'
CHANGING cg_data = ls_outline ).
io_xml->read( EXPORTING iv_name = 'DATA'
CHANGING cg_data = lt_data ).
save( is_outline = ls_outline
it_data = lt_data
iv_package = iv_package ).
ENDMETHOD. "deserialize
METHOD lif_object~delete.
DATA: ls_key TYPE wdy_config_key.
ls_key = ms_item-obj_name.
cl_wdr_configuration_utils=>delete_config_4_appl( ls_key ).
ENDMETHOD. "delete
METHOD lif_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
object_name = ms_item-obj_name
object_type = ms_item-obj_type
in_new_window = abap_true.
ENDMETHOD. "jump
ENDCLASS. "lcl_object_wdca IMPLEMENTATION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
* CLASS lcl_object_wdya DEFINITION * CLASS lcl_object_wdya DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -8071,7 +7874,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
SELECT SINGLE * FROM tobjt INTO ls_tobjt SELECT SINGLE * FROM tobjt INTO ls_tobjt
WHERE object = ms_item-obj_name WHERE object = ms_item-obj_name
AND langu = gc_english. "#EC CI_GENBUFF AND langu = mv_language. "#EC CI_GENBUFF
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'TOBJT no english description'. _raise 'TOBJT no english description'.
ENDIF. ENDIF.
@ -8215,7 +8018,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
SELECT SINGLE * FROM tobct INTO ls_tobct SELECT SINGLE * FROM tobct INTO ls_tobct
WHERE oclss = ms_item-obj_name WHERE oclss = ms_item-obj_name
AND langu = gc_english. AND langu = mv_language.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'TOBCT no english description'. _raise 'TOBCT no english description'.
ENDIF. ENDIF.
@ -8339,7 +8142,7 @@ CLASS lcl_object_type IMPLEMENTATION.
SELECT SINGLE ddtext FROM ddtypet SELECT SINGLE ddtext FROM ddtypet
INTO ev_ddtext INTO ev_ddtext
WHERE typegroup = ms_item-obj_name WHERE typegroup = ms_item-obj_name
AND ddlanguage = gc_english. AND ddlanguage = mv_language.
IF sy-subrc <> 0. IF sy-subrc <> 0.
RAISE EXCEPTION TYPE lcx_not_found. RAISE EXCEPTION TYPE lcx_not_found.
ENDIF. ENDIF.
@ -8526,7 +8329,7 @@ CLASS lcl_object_para IMPLEMENTATION.
SELECT SINGLE * FROM tparat INTO ls_tparat SELECT SINGLE * FROM tparat INTO ls_tparat
WHERE paramid = ms_item-obj_name WHERE paramid = ms_item-obj_name
AND sprache = gc_english. "#EC CI_GENBUFF AND sprache = mv_language. "#EC CI_GENBUFF
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'PARA no english description'. _raise 'PARA no english description'.
ENDIF. ENDIF.
@ -8566,7 +8369,7 @@ CLASS lcl_object_para IMPLEMENTATION.
mode = lv_mode mode = lv_mode
global_lock = abap_true global_lock = abap_true
devclass = iv_package devclass = iv_package
master_language = gc_english master_language = mv_language
EXCEPTIONS EXCEPTIONS
cancelled = 1 cancelled = 1
permission_failure = 2 permission_failure = 2
@ -8652,7 +8455,7 @@ CLASS lcl_object_splo IMPLEMENTATION.
SELECT SINGLE * FROM tsp1t INTO ls_tsp1t SELECT SINGLE * FROM tsp1t INTO ls_tsp1t
WHERE papart = ms_item-obj_name WHERE papart = ms_item-obj_name
AND spras = gc_english. "#EC CI_GENBUFF "#EC CI_SUBRC AND spras = mv_language. "#EC CI_GENBUFF "#EC CI_SUBRC
SELECT SINGLE * FROM tsp1d INTO ls_tsp1d SELECT SINGLE * FROM tsp1d INTO ls_tsp1d
WHERE papart = ms_item-obj_name. "#EC CI_SUBRC WHERE papart = ms_item-obj_name. "#EC CI_SUBRC
SELECT SINGLE * FROM tsp0p INTO ls_tsp0p SELECT SINGLE * FROM tsp0p INTO ls_tsp0p
@ -8939,17 +8742,17 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
* todo, iv_package? * todo, iv_package?
lv_formname = ms_item-obj_name. lv_formname = ms_item-obj_name.
lo_sf->enqueue( suppress_corr_check = space lo_sf->enqueue( suppress_corr_check = space
master_language = gc_english master_language = mv_language
mode = 'INSERT' mode = 'INSERT'
formname = lv_formname ). formname = lv_formname ).
lo_sf->xml_upload( EXPORTING dom = io_xml->get_raw( ) lo_sf->xml_upload( EXPORTING dom = io_xml->get_raw( )
formname = lv_formname formname = lv_formname
language = gc_english language = mv_language
CHANGING sform = lo_res ). CHANGING sform = lo_res ).
lo_res->store( im_formname = lo_res->header-formname lo_res->store( im_formname = lo_res->header-formname
im_language = gc_english im_language = mv_language
im_active = abap_true ). im_active = abap_true ).
lo_sf->dequeue( lv_formname ). lo_sf->dequeue( lv_formname ).
@ -9047,7 +8850,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
CALL FUNCTION 'DDIF_TABL_GET' CALL FUNCTION 'DDIF_TABL_GET'
EXPORTING EXPORTING
name = lv_name name = lv_name
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd02v_wa = ls_dd02v dd02v_wa = ls_dd02v
dd09l_wa = ls_dd09l dd09l_wa = ls_dd09l
@ -9641,7 +9444,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
EXPORTING EXPORTING
name = lv_name name = lv_name
state = 'A' state = 'A'
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd25v_wa = ls_dd25v dd25v_wa = ls_dd25v
TABLES TABLES
@ -9794,7 +9597,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
EXPORTING EXPORTING
name = lv_name name = lv_name
state = 'A' state = 'A'
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd30v_wa = ls_dd30v dd30v_wa = ls_dd30v
TABLES TABLES
@ -10188,7 +9991,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
transaction = ls_tstc-tcode transaction = ls_tstc-tcode
program = ls_tstc-pgmna program = ls_tstc-pgmna
dynpro = lv_dynpro dynpro = lv_dynpro
language = gc_english language = mv_language
development_class = iv_package development_class = iv_package
transaction_type = lv_type transaction_type = lv_type
shorttext = ls_tstct-ttext shorttext = ls_tstct-ttext
@ -10249,7 +10052,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
ENDIF. ENDIF.
SELECT SINGLE * FROM tstct INTO ls_tstct SELECT SINGLE * FROM tstct INTO ls_tstct
WHERE sprsl = gc_english WHERE sprsl = mv_language
AND tcode = lv_transaction. "#EC CI_GENBUFF AND tcode = lv_transaction. "#EC CI_GENBUFF
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'Transaction description not found'. _raise 'Transaction description not found'.
@ -10335,7 +10138,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
EXPORTING EXPORTING
iv_objectname = ls_objh-objectname iv_objectname = ls_objh-objectname
iv_objecttype = ls_objh-objecttype iv_objecttype = ls_objh-objecttype
iv_language = gc_english iv_language = mv_language
iv_sel_objt = abap_true iv_sel_objt = abap_true
iv_sel_objs = abap_true iv_sel_objs = abap_true
iv_sel_objsl = abap_true iv_sel_objsl = abap_true
@ -10560,7 +10363,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ENDLOOP. ENDLOOP.
ls_t100a-masterlang = gc_english. ls_t100a-masterlang = mv_language.
ls_t100a-lastuser = sy-uname. ls_t100a-lastuser = sy-uname.
ls_t100a-respuser = sy-uname. ls_t100a-respuser = sy-uname.
ls_t100a-ldate = sy-datum. ls_t100a-ldate = sy-datum.
@ -10568,7 +10371,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
MODIFY t100a FROM ls_t100a. "#EC CI_SUBRC MODIFY t100a FROM ls_t100a. "#EC CI_SUBRC
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ls_t100t-sprsl = gc_english. ls_t100t-sprsl = mv_language.
ls_t100t-arbgb = ls_t100a-arbgb. ls_t100t-arbgb = ls_t100a-arbgb.
ls_t100t-stext = ls_t100a-stext. ls_t100t-stext = ls_t100a-stext.
MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC
@ -10593,7 +10396,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
CLEAR ls_inf-respuser. CLEAR ls_inf-respuser.
SELECT * FROM t100 INTO TABLE lt_source SELECT * FROM t100 INTO TABLE lt_source
WHERE sprsl = gc_english WHERE sprsl = mv_language
AND arbgb = lv_msg_id 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
@ -10909,7 +10712,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
SELECT SINGLE areat INTO lv_areat SELECT SINGLE areat INTO lv_areat
FROM tlibt FROM tlibt
WHERE spras = gc_english WHERE spras = mv_language
AND area = ms_item-obj_name. "#EC CI_GENBUFF AND area = ms_item-obj_name. "#EC CI_GENBUFF
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'not found in TLIBT'. _raise 'not found in TLIBT'.
@ -11315,7 +11118,7 @@ CLASS lcl_object_view IMPLEMENTATION.
EXPORTING EXPORTING
name = lv_name name = lv_name
state = 'A' state = 'A'
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd25v_wa = ls_dd25v dd25v_wa = ls_dd25v
dd09l_wa = ls_dd09l dd09l_wa = ls_dd09l
@ -11458,7 +11261,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
CALL FUNCTION 'NUMBER_RANGE_OBJECT_READ' CALL FUNCTION 'NUMBER_RANGE_OBJECT_READ'
EXPORTING EXPORTING
language = gc_english language = mv_language
object = lv_object object = lv_object
IMPORTING IMPORTING
object_attributes = ls_attributes object_attributes = ls_attributes
@ -11526,7 +11329,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
wi_tadir_obj_name = ms_item-obj_name wi_tadir_obj_name = ms_item-obj_name
wi_tadir_author = sy-uname wi_tadir_author = sy-uname
wi_tadir_devclass = iv_package wi_tadir_devclass = iv_package
wi_tadir_masterlang = gc_english wi_tadir_masterlang = mv_language
wi_set_genflag = abap_true wi_set_genflag = abap_true
EXCEPTIONS EXCEPTIONS
OTHERS = 1. OTHERS = 1.
@ -11545,7 +11348,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
CALL FUNCTION 'NUMBER_RANGE_OBJECT_DELETE' CALL FUNCTION 'NUMBER_RANGE_OBJECT_DELETE'
EXPORTING EXPORTING
language = gc_english language = mv_language
object = lv_object object = lv_object
EXCEPTIONS EXCEPTIONS
delete_not_allowed = 1 delete_not_allowed = 1
@ -11646,7 +11449,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
EXPORTING EXPORTING
name = lv_name name = lv_name
state = 'A' state = 'A'
langu = gc_english langu = mv_language
IMPORTING IMPORTING
dd40v_wa = ls_dd40v dd40v_wa = ls_dd40v
TABLES TABLES
@ -11803,7 +11606,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
INSERT TEXTPOOL ms_item-obj_name INSERT TEXTPOOL ms_item-obj_name
FROM it_tpool FROM it_tpool
LANGUAGE gc_english LANGUAGE mv_language
STATE 'I'. STATE 'I'.
IF sy-subrc <> 0. IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'. _raise 'error from INSERT TEXTPOOL'.
@ -13123,6 +12926,8 @@ CLASS lcl_repo DEFINITION ABSTRACT.
RAISING lcx_exception, RAISING lcx_exception,
get_package get_package
RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package, RETURNING VALUE(rv_package) TYPE lcl_persistence_repo=>ty_repo-package,
get_master_language
RETURNING VALUE(rv_language) TYPE spras,
delete delete
RAISING lcx_exception, RAISING lcx_exception,
get_dot_abapgit get_dot_abapgit
@ -13195,6 +13000,7 @@ CLASS lcl_objects DEFINITION FINAL.
CLASS-METHODS serialize CLASS-METHODS serialize
IMPORTING is_item TYPE ty_item IMPORTING is_item TYPE ty_item
iv_language TYPE spras
RETURNING VALUE(rt_files) TYPE ty_files_tt RETURNING VALUE(rt_files) TYPE ty_files_tt
RAISING lcx_exception. RAISING lcx_exception.
@ -13224,6 +13030,7 @@ CLASS lcl_objects DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS create_object CLASS-METHODS create_object
IMPORTING is_item TYPE ty_item IMPORTING is_item TYPE ty_item
iv_language TYPE spras
is_metadata TYPE ty_metadata OPTIONAL is_metadata TYPE ty_metadata OPTIONAL
RETURNING VALUE(ri_obj) TYPE REF TO lif_object RETURNING VALUE(ri_obj) TYPE REF TO lif_object
RAISING lcx_exception. RAISING lcx_exception.
@ -13862,7 +13669,8 @@ CLASS lcl_objects IMPLEMENTATION.
TRY. TRY.
CREATE OBJECT ri_obj TYPE (lv_class_name) CREATE OBJECT ri_obj TYPE (lv_class_name)
EXPORTING EXPORTING
is_item = is_item. is_item = is_item
iv_language = iv_language.
CATCH cx_sy_create_object_error. CATCH cx_sy_create_object_error.
TRY. TRY.
* 2nd step, try looking for plugins * 2nd step, try looking for plugins
@ -13882,7 +13690,8 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD is_supported. METHOD is_supported.
TRY. TRY.
create_object( is_item ). create_object( is_item = is_item
iv_language = gc_english ).
rv_bool = abap_true. rv_bool = abap_true.
CATCH lcx_exception. CATCH lcx_exception.
rv_bool = abap_false. rv_bool = abap_false.
@ -13922,7 +13731,8 @@ CLASS lcl_objects IMPLEMENTATION.
TRY. TRY.
li_obj = create_object( is_item ). li_obj = create_object( is_item = is_item
iv_language = gc_english ).
rv_bool = li_obj->exists( ). rv_bool = li_obj->exists( ).
CATCH lcx_exception. CATCH lcx_exception.
* ignore all errors and assume the object exists * ignore all errors and assume the object exists
@ -13942,7 +13752,8 @@ CLASS lcl_objects IMPLEMENTATION.
DATA: li_obj TYPE REF TO lif_object. DATA: li_obj TYPE REF TO lif_object.
li_obj = create_object( is_item ). li_obj = create_object( is_item = is_item
iv_language = gc_english ).
li_obj->jump( ). li_obj->jump( ).
ENDMETHOD. "jump ENDMETHOD. "jump
@ -14120,10 +13931,11 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD delete_obj. METHOD delete_obj.
DATA: li_obj TYPE REF TO lif_object. DATA: li_obj TYPE REF TO lif_object.
li_obj = create_object( is_item ). li_obj = create_object( is_item = is_item
iv_language = gc_english ).
li_obj->delete( ). li_obj->delete( ).
ENDMETHOD. "delete ENDMETHOD. "delete
@ -14140,7 +13952,8 @@ CLASS lcl_objects IMPLEMENTATION.
EXPORTING EXPORTING
is_item = is_item. is_item = is_item.
li_obj = create_object( is_item ). li_obj = create_object( is_item = is_item
iv_language = iv_language ).
li_obj->mo_files = lo_files. li_obj->mo_files = lo_files.
CREATE OBJECT lo_xml. CREATE OBJECT lo_xml.
li_obj->serialize( lo_xml ). li_obj->serialize( lo_xml ).
@ -14238,6 +14051,7 @@ CLASS lcl_objects IMPLEMENTATION.
lo_xml = lo_files->read_xml( ). lo_xml = lo_files->read_xml( ).
li_obj = create_object( is_item = ls_item li_obj = create_object( is_item = ls_item
iv_language = io_repo->get_master_language( )
is_metadata = lo_xml->get_metadata( ) ). is_metadata = lo_xml->get_metadata( ) ).
li_obj->mo_files = lo_files. li_obj->mo_files = lo_files.
@ -16025,6 +15839,8 @@ CLASS lcl_repo IMPLEMENTATION.
lcl_objects=>deserialize( me ). lcl_objects=>deserialize( me ).
CLEAR mt_local.
ENDMETHOD. ENDMETHOD.
METHOD get_files_local. METHOD get_files_local.
@ -16063,7 +15879,8 @@ CLASS lcl_repo IMPLEMENTATION.
CONTINUE. CONTINUE.
ENDIF. ENDIF.
lt_files = lcl_objects=>serialize( ls_item ). lt_files = lcl_objects=>serialize( is_item = ls_item
iv_language = get_master_language( ) ).
LOOP AT lt_files ASSIGNING <ls_file>. LOOP AT lt_files ASSIGNING <ls_file>.
<ls_file>-path = '/' && <ls_tadir>-path. <ls_file>-path = '/' && <ls_tadir>-path.
@ -16112,6 +15929,10 @@ CLASS lcl_repo IMPLEMENTATION.
rv_package = ms_data-package. rv_package = ms_data-package.
ENDMETHOD. "get_package ENDMETHOD. "get_package
METHOD get_master_language.
rv_language = ms_data-master_language.
ENDMETHOD.
METHOD get_key. METHOD get_key.
rv_key = ms_data-key. rv_key = ms_data-key.
ENDMETHOD. "get_key ENDMETHOD. "get_key
@ -20092,11 +19913,6 @@ FORM run.
lv_ind TYPE t000-ccnocliind. lv_ind TYPE t000-ccnocliind.
IF sy-langu <> gc_english.
WRITE: / 'Use English as logon language'. "#EC NOTEXT
RETURN.
ENDIF.
SELECT SINGLE ccnocliind FROM t000 INTO lv_ind SELECT SINGLE ccnocliind FROM t000 INTO lv_ind
WHERE mandt = sy-mandt. WHERE mandt = sy-mandt.
IF sy-subrc = 0 IF sy-subrc = 0
@ -20770,7 +20586,8 @@ CLASS ltcl_serialize IMPLEMENTATION.
DATA: lt_files TYPE ty_files_tt. DATA: lt_files TYPE ty_files_tt.
lt_files = lcl_objects=>serialize( is_item ). lt_files = lcl_objects=>serialize( is_item = is_item
iv_language = gc_english ).
cl_abap_unit_assert=>assert_not_initial( lt_files ). cl_abap_unit_assert=>assert_not_initial( lt_files ).
@ -21023,6 +20840,7 @@ CLASS ltcl_object_types IMPLEMENTATION.
lt_types = lcl_objects=>supported_list( ). lt_types = lcl_objects=>supported_list( ).
LOOP AT lt_types ASSIGNING <lv_type>. LOOP AT lt_types ASSIGNING <lv_type>.
CLEAR ls_item. CLEAR ls_item.
ls_item-obj_type = <lv_type>. ls_item-obj_type = <lv_type>.
lv_supported = lcl_objects=>is_supported( ls_item ). lv_supported = lcl_objects=>is_supported( ls_item ).