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

progress indicator when refreshing page

Browse Source
This commit is contained in:
Lars Hvam 2014-07-17 20:02:25 +02:00
parent cc0a196360
commit 5f2b42ea74
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
zabapgit.abap
View File

@ -2,7 +2,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/
CONSTANTS: gc_version TYPE string VALUE 'v0.x-alpha'. "#EC NOTEXT
CONSTANTS: gc_version TYPE string VALUE 'v0.1-alpha'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -4837,6 +4837,9 @@ CLASS lcl_gui IMPLEMENTATION.
METHOD render.
DATA: lt_repos TYPE tt_repos_sha1,
lv_text TYPE c LENGTH 100,
lv_pct TYPE i,
lv_f type f,
ls_repo LIKE LINE OF lt_repos.
@ -4863,6 +4866,14 @@ CLASS lcl_gui IMPLEMENTATION.
rv_html = rv_html && '<br><br><br>'.
LOOP AT lt_repos INTO ls_repo.
lv_f = ( sy-tabix / lines( lt_repos ) ) * 100.
lv_pct = lv_f.
lv_text = lcl_url=>name( ls_repo-url ).
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_pct
text = lv_text.
rv_html = rv_html && render_repo( ls_repo ).
ENDLOOP.
ENDIF.