107 lines
4.2 KiB
ABAP
107 lines
4.2 KiB
ABAP
REPORT {{p}}walker_stats.
|
|
|
|
DATA gv_walker TYPE {{p}}walk-walker.
|
|
DATA gv_date TYPE {{p}}walk-walk_date.
|
|
|
|
SELECT-OPTIONS s_date FOR gv_date.
|
|
SELECT-OPTIONS s_walker FOR gv_walker.
|
|
|
|
CLASS lcl_report DEFINITION FINAL.
|
|
PUBLIC SECTION.
|
|
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
|
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
|
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
|
|
|
METHODS select_totals
|
|
IMPORTING it_date TYPE tt_date
|
|
it_walker TYPE tt_walker
|
|
RETURNING VALUE(rt_lines) TYPE tt_line.
|
|
|
|
METHODS display
|
|
CHANGING ct_lines TYPE tt_line.
|
|
ENDCLASS.
|
|
|
|
CLASS lcl_report IMPLEMENTATION.
|
|
METHOD select_totals.
|
|
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
|
FROM {{p}}walk
|
|
WHERE walk_date IN @it_date
|
|
AND walker IN @it_walker
|
|
AND status <> 'F'
|
|
GROUP BY walker
|
|
HAVING COUNT( * ) >= 2
|
|
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
|
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
|
ENDMETHOD.
|
|
|
|
METHOD display.
|
|
TRY.
|
|
cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
|
|
CHANGING t_table = ct_lines ).
|
|
lo_alv->display( ).
|
|
CATCH cx_salv_msg INTO DATA(lx_error).
|
|
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
|
|
ENDTRY.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|
|
|
|
START-OF-SELECTION.
|
|
DATA(go_report) = NEW lcl_report( ).
|
|
DATA(gt_lines) = go_report->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
|
go_report->display( CHANGING ct_lines = gt_lines ).
|
|
|
|
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
|
|
CLASS-METHODS class_setup.
|
|
CLASS-METHODS class_teardown.
|
|
METHODS totals_per_walker FOR TESTING.
|
|
METHODS excludes_single FOR TESTING.
|
|
METHODS ignores_cancelled FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
CLASS ltc_report IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
|
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
|
lt_walk = VALUE #(
|
|
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
|
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
|
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
|
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
|
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
|
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
|
go_env->insert_test_data( lt_walk ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD totals_per_walker.
|
|
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
|
ENDMETHOD.
|
|
|
|
METHOD excludes_single.
|
|
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
|
it_date = VALUE #( )
|
|
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD ignores_cancelled.
|
|
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
|
it_date = VALUE #( )
|
|
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|