diff --git a/src/ui/zcl_abapgit_gui_page.clas.abap b/src/ui/zcl_abapgit_gui_page.clas.abap index f235a9928..8be6a9cd0 100644 --- a/src/ui/zcl_abapgit_gui_page.clas.abap +++ b/src/ui/zcl_abapgit_gui_page.clas.abap @@ -36,6 +36,8 @@ CLASS zcl_abapgit_gui_page DEFINITION PUBLIC ABSTRACT zcx_abapgit_exception . PRIVATE SECTION. + TYPES: ty_time TYPE p LENGTH 10 DECIMALS 2. + DATA mo_settings TYPE REF TO zcl_abapgit_settings . DATA mx_error TYPE REF TO zcx_abapgit_exception . DATA mo_exception_viewer TYPE REF TO zcl_abapgit_exception_viewer . @@ -53,6 +55,8 @@ CLASS zcl_abapgit_gui_page DEFINITION PUBLIC ABSTRACT RETURNING VALUE(ri_html) TYPE REF TO zif_abapgit_html . METHODS footer + IMPORTING + !iv_time TYPE ty_time RETURNING VALUE(ri_html) TYPE REF TO zif_abapgit_html . METHODS render_link_hints @@ -108,7 +112,8 @@ CLASS zcl_abapgit_gui_page IMPLEMENTATION. ri_html->add( '' ). ri_html->add( '' ). ri_html->add( |
{ zif_abapgit_version=>c_abap_version }
| ). ri_html->add( '' ). @@ -313,10 +318,16 @@ CLASS zcl_abapgit_gui_page IMPLEMENTATION. METHOD zif_abapgit_gui_renderable~render. - DATA: li_script TYPE REF TO zif_abapgit_html. + DATA: + li_script TYPE REF TO zif_abapgit_html, + lv_start TYPE i, + lv_end TYPE i, + lv_total TYPE ty_time. gui_services( )->register_event_handler( me ). + GET RUN TIME FIELD lv_start. + " Real page CREATE OBJECT ri_html TYPE zcl_abapgit_html. @@ -335,7 +346,10 @@ CLASS zcl_abapgit_gui_page IMPLEMENTATION. ii_html = ri_html iv_part_category = c_html_parts-hidden_forms ). - ri_html->add( footer( ) ). + GET RUN TIME FIELD lv_end. + lv_total = ( lv_end - lv_start ) / 1000 / 1000. + + ri_html->add( footer( lv_total ) ). li_script = scripts( ).