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

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 * 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.21.5'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.21.6'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * 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. SELECTION-SCREEN BEGIN OF SCREEN 1001.
* dummy for triggering screen * dummy for triggering screen on Java SAP GUI
SELECTION-SCREEN END OF SCREEN 1001. SELECTION-SCREEN END OF SCREEN 1001.
INCLUDE zabapgit_password_dialog. " !!! Contains SELECTION SCREEN 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. METHOD run.
DATA: lv_value TYPE string, DATA: lv_response TYPE string,
lv_response TYPE string,
lv_method TYPE string, lv_method TYPE string,
lv_cnonce TYPE string, lv_cnonce TYPE string,
lv_uri TYPE string, lv_uri TYPE string,

5
src/zabapgit_object_doma.prog.abap
View File

@ -228,7 +228,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
lv_name = ms_item-obj_name. lv_name = ms_item-obj_name.
" Collect additional languages " 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 FROM dd01v
WHERE domname = lv_name WHERE domname = lv_name
AND ddlanguage <> mv_language. " Skip master lang - it was serialized already AND ddlanguage <> mv_language. " Skip master lang - it was serialized already
@ -300,7 +300,8 @@ CLASS lcl_object_doma IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD07_TEXTS' io_xml->read( EXPORTING iv_name = 'DD07_TEXTS'
CHANGING cg_data = lt_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>. LOOP AT lt_i18n_langs ASSIGNING <lang>.

4
src/zabapgit_object_dtel.prog.abap
View File

@ -273,7 +273,9 @@ CLASS lcl_object_dtel IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'DD04_TEXTS' io_xml->read( EXPORTING iv_name = 'DD04_TEXTS'
CHANGING cg_data = lt_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>. LOOP AT lt_i18n_langs ASSIGNING <lang>.
" Data element description " 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. METHOD lif_object~delete.
DATA: lv_spot_name TYPE enhspotname, DATA: lv_spot_name TYPE enhspotname,
lv_message TYPE string,
lx_root TYPE REF TO cx_root, lx_root TYPE REF TO cx_root,
li_spot_ref TYPE REF TO if_enh_spot_tool, li_spot_ref TYPE REF TO if_enh_spot_tool,
lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def. 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_data TYPE xstring,
lv_abap TYPE string. lv_abap TYPE string.
FIELD-SYMBOLS: <ls_abap> LIKE LINE OF mt_files.
lv_filename = filename( iv_extra = iv_extra lv_filename = filename( iv_extra = iv_extra
iv_ext = 'abap' ). "#EC NOTEXT iv_ext = 'abap' ). "#EC NOTEXT
@ -1124,6 +1122,13 @@ CLASS lcl_objects_program IMPLEMENTATION.
lcx_exception=>raise( 'PROG, error inserting' ). lcx_exception=>raise( 'PROG, error inserting' ).
ENDIF. 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' lcl_objects_activation=>add( iv_type = 'REPS'
iv_name = is_progdir-name ). 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, FIELD-SYMBOLS: <local> LIKE LINE OF lt_local,
<remote> LIKE LINE OF lt_remote, <remote> LIKE LINE OF lt_remote,
<result> LIKE LINE OF lt_results, <result> LIKE LINE OF lt_results,
<state> LIKE LINE OF lt_state, <state> LIKE LINE OF lt_state.
<tadir> LIKE LINE OF lt_tadir.
"STATE FILE SHA1 "STATE FILE SHA1
_append_state 'zclass1.clas.xml' 'C1_F1'. _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 ENDMETHOD. "get_item_icon
METHOD render_item. 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. CREATE OBJECT ro_html.
@ -674,7 +674,6 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION.
METHOD render_item_command. METHOD render_item_command.
DATA: lv_difflink TYPE string, DATA: lv_difflink TYPE string,
lv_text TYPE string,
ls_file LIKE LINE OF is_item-files. ls_file LIKE LINE OF is_item-files.
CREATE OBJECT ro_html. CREATE OBJECT ro_html.