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

Merged branch t339_diffsort into master

Browse Source
This commit is contained in:
atsy 2016-09-12 22:58:04 +03:00
commit a0a02cb4da
1 changed files with 35 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/zabapgit_page_main.prog.abap
View File

@ -21,11 +21,14 @@ CLASS lcl_gui_page_main DEFINITION FINAL INHERITING FROM lcl_gui_page_super.
show TYPE string VALUE 'show' ##NO_TEXT, show TYPE string VALUE 'show' ##NO_TEXT,
END OF c_actions. END OF c_actions.
CONSTANTS: c_default_sortkey TYPE i VALUE 9999.
TYPES: BEGIN OF ty_repo_item, TYPES: BEGIN OF ty_repo_item,
obj_type TYPE tadir-object, obj_type TYPE tadir-object,
obj_name TYPE tadir-obj_name, obj_name TYPE tadir-obj_name,
is_first TYPE abap_bool, is_first TYPE abap_bool,
files TYPE tt_repo_files, files TYPE tt_repo_files,
sortkey TYPE i,
END OF ty_repo_item. END OF ty_repo_item.
TYPES tt_repo_items TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY. TYPES tt_repo_items TYPE STANDARD TABLE OF ty_repo_item WITH DEFAULT KEY.
@ -196,6 +199,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
_add ' padding-right: 1em;'. _add ' padding-right: 1em;'.
_add '}'. _add '}'.
_add '.repo_tab tr.unsupported { color: lightgrey; }'. _add '.repo_tab tr.unsupported { color: lightgrey; }'.
_add '.repo_tab tr.modified { background: #fbf7e9; }'.
_add '.repo_tab tr.firstrow td { border-top: 0px; }'. _add '.repo_tab tr.firstrow td { border-top: 0px; }'.
_add '.repo_tab td.files span { display: block; }'. _add '.repo_tab td.files span { display: block; }'.
_add '.repo_tab td.cmd span { display: block; }'. _add '.repo_tab td.cmd span { display: block; }'.
@ -351,11 +355,11 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
DATA: lo_repo_online TYPE REF TO lcl_repo_online, DATA: lo_repo_online TYPE REF TO lcl_repo_online,
lt_tadir TYPE ty_tadir_tt, lt_tadir TYPE ty_tadir_tt,
ls_repo_item TYPE ty_repo_item,
ls_file TYPE ty_repo_file, ls_file TYPE ty_repo_file,
lt_results TYPE ty_results_tt. lt_results TYPE ty_results_tt.
FIELD-SYMBOLS: <ls_result> LIKE LINE OF lt_results, FIELD-SYMBOLS: <ls_result> LIKE LINE OF lt_results,
<ls_repo_item> LIKE LINE OF et_repo_items,
<ls_tadir> LIKE LINE OF lt_tadir. <ls_tadir> LIKE LINE OF lt_tadir.
@ -364,13 +368,12 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
IF io_repo->is_offline( ) = abap_true. IF io_repo->is_offline( ) = abap_true.
lt_tadir = lcl_tadir=>read( io_repo->get_package( ) ). lt_tadir = lcl_tadir=>read( io_repo->get_package( ) ).
LOOP AT lt_tadir ASSIGNING <ls_tadir>. LOOP AT lt_tadir ASSIGNING <ls_tadir>.
CLEAR ls_repo_item. APPEND INITIAL LINE TO et_repo_items ASSIGNING <ls_repo_item>.
IF sy-tabix = 1. IF sy-tabix = 1.
ls_repo_item-is_first = abap_true. <ls_repo_item>-is_first = abap_true.
ENDIF. ENDIF.
ls_repo_item-obj_type = <ls_tadir>-object. <ls_repo_item>-obj_type = <ls_tadir>-object.
ls_repo_item-obj_name = <ls_tadir>-obj_name. <ls_repo_item>-obj_name = <ls_tadir>-obj_name.
APPEND ls_repo_item TO et_repo_items.
ENDLOOP. ENDLOOP.
ELSE. ELSE.
@ -379,12 +382,10 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lt_results = lo_repo_online->status( eo_log ). lt_results = lo_repo_online->status( eo_log ).
LOOP AT lt_results ASSIGNING <ls_result>. LOOP AT lt_results ASSIGNING <ls_result>.
AT NEW obj_name. "obj_type + obj_name AT NEW obj_name. "obj_type + obj_name
CLEAR ls_repo_item. APPEND INITIAL LINE TO et_repo_items ASSIGNING <ls_repo_item>.
IF sy-tabix = 1. <ls_repo_item>-obj_type = <ls_result>-obj_type.
ls_repo_item-is_first = abap_true. <ls_repo_item>-obj_name = <ls_result>-obj_name.
ENDIF. <ls_repo_item>-sortkey = c_default_sortkey. " Default sort key
ls_repo_item-obj_type = <ls_result>-obj_type.
ls_repo_item-obj_name = <ls_result>-obj_name.
ENDAT. ENDAT.
IF <ls_result>-filename IS NOT INITIAL. IF <ls_result>-filename IS NOT INITIAL.
@ -392,14 +393,29 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
ls_file-filename = <ls_result>-filename. ls_file-filename = <ls_result>-filename.
ls_file-is_changed = boolc( NOT <ls_result>-match = abap_true ). ls_file-is_changed = boolc( NOT <ls_result>-match = abap_true ).
ls_file-remote_only = <ls_result>-remote_only. ls_file-remote_only = <ls_result>-remote_only.
APPEND ls_file TO ls_repo_item-files. APPEND ls_file TO <ls_repo_item>-files.
IF ls_file-is_changed = abap_true.
<ls_repo_item>-sortkey = 2. " Changed files
ENDIF.
ENDIF. ENDIF.
AT END OF obj_name. "obj_type + obj_name AT END OF obj_name. "obj_type + obj_name
APPEND ls_repo_item TO et_repo_items. IF <ls_repo_item>-obj_type IS INITIAL.
<ls_repo_item>-sortkey = 0. "Virtual objects
ELSEIF lines( <ls_repo_item>-files ) = 0.
<ls_repo_item>-sortkey = 1. "New object to commit
ENDIF.
ENDAT. ENDAT.
ENDLOOP. ENDLOOP.
SORT et_repo_items BY sortkey obj_type obj_name ASCENDING.
READ TABLE et_repo_items ASSIGNING <ls_repo_item> INDEX 1.
IF sy-subrc IS INITIAL.
<ls_repo_item>-is_first = abap_true.
ENDIF. ENDIF.
ENDIF.
ENDMETHOD. ENDMETHOD.
@ -419,6 +435,9 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
IF is_item-obj_name IS INITIAL. IF is_item-obj_name IS INITIAL.
lv_trclass = lv_trclass && ' unsupported' ##NO_TEXT. lv_trclass = lv_trclass && ' unsupported' ##NO_TEXT.
ENDIF. ENDIF.
IF is_item-sortkey > 0 AND is_item-sortkey < c_default_sortkey.
lv_trclass = lv_trclass && ' modified' ##NO_TEXT.
ENDIF.
IF lv_trclass IS NOT INITIAL. IF lv_trclass IS NOT INITIAL.
SHIFT lv_trclass LEFT DELETING LEADING space. SHIFT lv_trclass LEFT DELETING LEADING space.
lv_trclass = | class="{ lv_trclass }"|. lv_trclass = | class="{ lv_trclass }"|.