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

update PROGDIR-VARCL #435

Browse Source 
and delete few unused variables   field symbols
This commit is contained in:
larshp 2016-11-17 11:03:03 +00:00
parent b6652331e9
commit a47a268028
8 changed files with 45 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.21.5'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.21.6'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -30,7 +30,7 @@ CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
********************************************************************************
SELECTION-SCREEN BEGIN OF SCREEN 1001.
* dummy for triggering screen
* dummy for triggering screen on Java SAP GUI
SELECTION-SCREEN END OF SCREEN 1001.
INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN

3
src/zabapgit_http.prog.abap
View File

@ -233,8 +233,7 @@ CLASS lcl_http_digest IMPLEMENTATION.
METHOD run.
DATA: lv_value TYPE string,
lv_response TYPE string,
DATA: lv_response TYPE string,
lv_method TYPE string,
lv_cnonce TYPE string,
lv_uri TYPE string,

37
src/zabapgit_object_doma.prog.abap
View File

@ -52,9 +52,9 @@ CLASS lcl_object_doma IMPLEMENTATION.
METHOD lif_object~has_changed_since.
DATA: lv_date TYPE dats,
lv_time TYPE tims,
lv_ts TYPE timestamp.
DATA: lv_date TYPE dats,
lv_time TYPE tims,
lv_ts TYPE timestamp.
SELECT SINGLE as4date as4time FROM dd01l
INTO (lv_date, lv_time)
@ -212,13 +212,13 @@ CLASS lcl_object_doma IMPLEMENTATION.
METHOD serialize_texts.
DATA: lv_name TYPE ddobjname,
lv_index TYPE i,
ls_dd01v TYPE dd01v,
lt_dd07v TYPE TABLE OF dd07v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd01_texts TYPE tt_dd01_texts,
lt_dd07_texts TYPE tt_dd07_texts.
DATA: lv_name TYPE ddobjname,
lv_index TYPE i,
ls_dd01v TYPE dd01v,
lt_dd07v TYPE TABLE OF dd07v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd01_texts TYPE tt_dd01_texts,
lt_dd07_texts TYPE tt_dd07_texts.
FIELD-SYMBOLS: <lang> LIKE LINE OF lt_i18n_langs,
<dd07v> LIKE LINE OF lt_dd07v,
@ -228,7 +228,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
lv_name = ms_item-obj_name.
" Collect additional languages
SELECT DISTINCT ddlanguage as langu INTO TABLE lt_i18n_langs
SELECT DISTINCT ddlanguage AS langu INTO TABLE lt_i18n_langs
FROM dd01v
WHERE domname = lv_name
AND ddlanguage <> mv_language. " Skip master lang - it was serialized already
@ -277,12 +277,12 @@ CLASS lcl_object_doma IMPLEMENTATION.
METHOD deserialize_texts.
DATA: lv_name TYPE ddobjname,
ls_dd01v_tmp TYPE dd01v,
lt_dd07v_tmp TYPE TABLE OF dd07v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd01_texts TYPE tt_dd01_texts,
lt_dd07_texts TYPE tt_dd07_texts.
DATA: lv_name TYPE ddobjname,
ls_dd01v_tmp TYPE dd01v,
lt_dd07v_tmp TYPE TABLE OF dd07v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd01_texts TYPE tt_dd01_texts,
lt_dd07_texts TYPE tt_dd07_texts.
FIELD-SYMBOLS: <lang> LIKE LINE OF lt_i18n_langs,
<dd07v> LIKE LINE OF it_dd07v,
@ -300,7 +300,8 @@ CLASS lcl_object_doma IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD07_TEXTS'
CHANGING cg_data = lt_dd07_texts ).
SORT: lt_i18n_langs, lt_dd07_texts BY ddlanguage. " Optimization
SORT lt_i18n_langs.
SORT lt_dd07_texts BY ddlanguage. " Optimization
LOOP AT lt_i18n_langs ASSIGNING <lang>.

24
src/zabapgit_object_dtel.prog.abap
View File

@ -207,12 +207,12 @@ CLASS lcl_object_dtel IMPLEMENTATION.
METHOD serialize_texts.
DATA: lv_name TYPE ddobjname,
lv_index TYPE i,
ls_dd04v TYPE dd04v,
ls_tpara TYPE tpara,
lt_dd04_texts TYPE tt_dd04_texts,
lt_i18n_langs TYPE TABLE OF langu.
DATA: lv_name TYPE ddobjname,
lv_index TYPE i,
ls_dd04v TYPE dd04v,
ls_tpara TYPE tpara,
lt_dd04_texts TYPE tt_dd04_texts,
lt_i18n_langs TYPE TABLE OF langu.
FIELD-SYMBOLS: <lang> LIKE LINE OF lt_i18n_langs,
<dd04_text> TYPE ty_dd04_texts.
@ -258,10 +258,10 @@ CLASS lcl_object_dtel IMPLEMENTATION.
METHOD deserialize_texts.
DATA: lv_name TYPE ddobjname,
ls_dd04v_tmp TYPE dd04v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd04_texts TYPE tt_dd04_texts.
DATA: lv_name TYPE ddobjname,
ls_dd04v_tmp TYPE dd04v,
lt_i18n_langs TYPE TABLE OF langu,
lt_dd04_texts TYPE tt_dd04_texts.
FIELD-SYMBOLS: <lang> LIKE LINE OF lt_i18n_langs,
<dd04_text> TYPE ty_dd04_texts.
@ -273,7 +273,9 @@ CLASS lcl_object_dtel IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD04_TEXTS'
CHANGING cg_data = lt_dd04_texts ).
SORT: lt_i18n_langs, lt_dd04_texts BY ddlanguage. " Optimization
SORT lt_i18n_langs.
SORT lt_dd04_texts BY ddlanguage. " Optimization
LOOP AT lt_i18n_langs ASSIGNING <lang>.
" Data element description

1
src/zabapgit_object_enhs.prog.abap
View File

@ -171,7 +171,6 @@ CLASS lcl_object_enhs IMPLEMENTATION.
METHOD lif_object~delete.
DATA: lv_spot_name TYPE enhspotname,
lv_message TYPE string,
lx_root TYPE REF TO cx_root,
li_spot_ref TYPE REF TO if_enh_spot_tool,
lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def.

9
src/zabapgit_objects.prog.abap
View File

@ -339,8 +339,6 @@ CLASS lcl_objects_files IMPLEMENTATION.
lv_data TYPE xstring,
lv_abap TYPE string.
FIELD-SYMBOLS: <ls_abap> LIKE LINE OF mt_files.
lv_filename = filename( iv_extra = iv_extra
iv_ext = 'abap' ). "#EC NOTEXT
@ -1124,6 +1122,13 @@ CLASS lcl_objects_program IMPLEMENTATION.
lcx_exception=>raise( 'PROG, error inserting' ).
ENDIF.
IF is_progdir-varcl = space AND ls_progdir_new = abap_true.
* function module UPDATE_PROGDIR does not update VARCL
UPDATE progdir SET varcl = is_progdir-varcl
WHERE name = ls_progdir_new-name
AND state = ls_progdir_new-state.
ENDIF.
lcl_objects_activation=>add( iv_type = 'REPS'
iv_name = is_progdir-name ).

3
src/zabapgit_unit_test.prog.abap
View File

@ -1806,8 +1806,7 @@ CLASS ltcl_file_status IMPLEMENTATION.
FIELD-SYMBOLS: <local> LIKE LINE OF lt_local,
<remote> LIKE LINE OF lt_remote,
<result> LIKE LINE OF lt_results,
<state> LIKE LINE OF lt_state,
<tadir> LIKE LINE OF lt_tadir.
<state> LIKE LINE OF lt_state.
"STATE FILE SHA1
_append_state 'zclass1.clas.xml' 'C1_F1'.

5
src/zabapgit_view_repo.prog.abap
View File

@ -611,8 +611,8 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION.
ENDMETHOD. "get_item_icon
METHOD render_item.
DATA: lv_link TYPE string,
ls_file LIKE LINE OF is_item-files.
DATA: lv_link TYPE string.
CREATE OBJECT ro_html.
@ -674,7 +674,6 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION.
METHOD render_item_command.
DATA: lv_difflink TYPE string,
lv_text TYPE string,
ls_file LIKE LINE OF is_item-files.
CREATE OBJECT ro_html.