REPORT {{p}}taxi_day. DATA gv_base TYPE {{p}}driver-base_code. PARAMETERS p_from TYPE d OBLIGATORY. PARAMETERS p_to TYPE d OBLIGATORY. SELECT-OPTIONS s_base FOR gv_base. CLASS lcl_report DEFINITION FINAL. PUBLIC SECTION. TYPES ty_amount TYPE p LENGTH 8 DECIMALS 2. TYPES: BEGIN OF ty_line, driver_id TYPE {{p}}driver-driver_id, driver_name TYPE {{p}}driver-driver_name, base_code TYPE {{p}}driver-base_code, trips TYPE i, km TYPE ty_amount, fare TYPE ty_amount, avg_fare TYPE ty_amount, END OF ty_line, tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY. TYPES tt_base TYPE RANGE OF {{p}}driver-base_code. METHODS collect IMPORTING iv_from TYPE d iv_to TYPE d it_base TYPE tt_base RETURNING VALUE(rt_lines) TYPE tt_line. METHODS display CHANGING ct_lines TYPE tt_line. PRIVATE SECTION. TYPES: BEGIN OF ty_driver, driver_id TYPE {{p}}driver-driver_id, driver_name TYPE {{p}}driver-driver_name, base_code TYPE {{p}}driver-base_code, END OF ty_driver, tt_driver TYPE SORTED TABLE OF ty_driver WITH UNIQUE KEY driver_id. TYPES: BEGIN OF ty_trip, driver_id TYPE {{p}}trip-driver_id, km TYPE {{p}}trip-km, fare TYPE {{p}}trip-fare, END OF ty_trip, tt_trip TYPE STANDARD TABLE OF ty_trip WITH EMPTY KEY. TYPES: BEGIN OF ty_sum, driver_id TYPE {{p}}driver-driver_id, driver_name TYPE {{p}}driver-driver_name, base_code TYPE {{p}}driver-base_code, trips TYPE i, km TYPE ty_amount, fare TYPE ty_amount, END OF ty_sum, tt_sum TYPE SORTED TABLE OF ty_sum WITH UNIQUE KEY driver_id. METHODS read_trips IMPORTING iv_from TYPE d iv_to TYPE d RETURNING VALUE(rt_trips) TYPE tt_trip. METHODS read_drivers IMPORTING it_trips TYPE tt_trip RETURNING VALUE(rt_drivers) TYPE tt_driver. METHODS base_matches IMPORTING is_driver TYPE ty_driver it_base TYPE tt_base RETURNING VALUE(rv_matches) TYPE abap_bool. METHODS add_trip IMPORTING is_trip TYPE ty_trip is_driver TYPE ty_driver CHANGING ct_sum TYPE tt_sum. METHODS build_lines IMPORTING it_sum TYPE tt_sum RETURNING VALUE(rt_lines) TYPE tt_line. ENDCLASS. CLASS lcl_report IMPLEMENTATION. METHOD collect. DATA(lt_trips) = read_trips( iv_from = iv_from iv_to = iv_to ). IF lt_trips IS INITIAL. RETURN. ENDIF. DATA(lt_drivers) = read_drivers( lt_trips ). DATA lt_sum TYPE tt_sum. LOOP AT lt_trips INTO DATA(ls_trip). READ TABLE lt_drivers INTO DATA(ls_driver) WITH TABLE KEY driver_id = ls_trip-driver_id. IF sy-subrc <> 0. CONTINUE. ENDIF. IF base_matches( is_driver = ls_driver it_base = it_base ) = abap_false. CONTINUE. ENDIF. add_trip( EXPORTING is_trip = ls_trip is_driver = ls_driver CHANGING ct_sum = lt_sum ). ENDLOOP. rt_lines = build_lines( lt_sum ). ENDMETHOD. METHOD read_trips. SELECT driver_id, km, fare FROM {{p}}trip WHERE trip_date >= @iv_from AND trip_date <= @iv_to INTO TABLE @rt_trips. ENDMETHOD. METHOD read_drivers. DATA lt_ids TYPE RANGE OF {{p}}driver-driver_id. lt_ids = VALUE #( FOR ls_trip IN it_trips ( sign = 'I' option = 'EQ' low = ls_trip-driver_id ) ). SELECT driver_id, driver_name, base_code FROM {{p}}driver WHERE driver_id IN @lt_ids INTO TABLE @rt_drivers. ENDMETHOD. METHOD base_matches. IF it_base IS INITIAL. rv_matches = abap_true. RETURN. ENDIF. IF is_driver-base_code IN it_base. rv_matches = abap_true. ELSE. rv_matches = abap_false. ENDIF. ENDMETHOD. METHOD add_trip. READ TABLE ct_sum ASSIGNING FIELD-SYMBOL() WITH TABLE KEY driver_id = is_driver-driver_id. IF sy-subrc = 0. -trips = -trips + 1. -km = -km + is_trip-km. -fare = -fare + is_trip-fare. ELSE. INSERT VALUE #( driver_id = is_driver-driver_id driver_name = is_driver-driver_name base_code = is_driver-base_code trips = 1 km = is_trip-km fare = is_trip-fare ) INTO TABLE ct_sum. ENDIF. ENDMETHOD. METHOD build_lines. DATA lv_avg_fare TYPE ty_amount. LOOP AT it_sum INTO DATA(ls_sum). lv_avg_fare = ls_sum-fare / ls_sum-trips. INSERT VALUE #( driver_id = ls_sum-driver_id driver_name = ls_sum-driver_name base_code = ls_sum-base_code trips = ls_sum-trips km = ls_sum-km fare = ls_sum-fare avg_fare = lv_avg_fare ) INTO TABLE rt_lines. ENDLOOP. SORT rt_lines BY fare DESCENDING driver_id 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->collect( iv_from = p_from iv_to = p_to it_base = s_base[] ). 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_driver FOR TESTING. METHODS base_filter FOR TESTING. METHODS orphan_trip FOR TESTING. ENDCLASS. CLASS ltc_report IMPLEMENTATION. METHOD class_setup. go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}TRIP' ) ( '{{P}}DRIVER' ) ) ). DATA lt_driver TYPE STANDARD TABLE OF {{p}}driver WITH EMPTY KEY. lt_driver = VALUE #( ( driver_id = 'D1' driver_name = 'Anna' base_code = 'NORTH' ) ( driver_id = 'D2' driver_name = 'Ben' base_code = 'SOUTH' ) ). go_env->insert_test_data( lt_driver ). DATA lt_trip TYPE STANDARD TABLE OF {{p}}trip WITH EMPTY KEY. lt_trip = VALUE #( ( trip_id = 1 driver_id = 'D1' trip_date = '20260110' km = '10.00' fare = '30.00' ) ( trip_id = 2 driver_id = 'D1' trip_date = '20260111' km = '5.00' fare = '15.00' ) ( trip_id = 3 driver_id = 'D2' trip_date = '20260110' km = '8.00' fare = '40.00' ) ( trip_id = 4 driver_id = 'D9' trip_date = '20260110' km = '1.00' fare = '5.00' ) ). go_env->insert_test_data( lt_trip ). ENDMETHOD. METHOD class_teardown. go_env->destroy( ). ENDMETHOD. METHOD totals_per_driver. DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101' iv_to = '20260131' it_base = VALUE #( ) ). cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ). cl_abap_unit_assert=>assert_equals( exp = 'D1' act = lt_lines[ 1 ]-driver_id ). cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_lines[ 1 ]-trips ). cl_abap_unit_assert=>assert_equals( exp = CONV lcl_report=>ty_amount( 45 ) act = lt_lines[ 1 ]-fare ). ENDMETHOD. METHOD base_filter. DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101' iv_to = '20260131' it_base = VALUE #( ( sign = 'I' option = 'EQ' low = 'NORTH' ) ) ). cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ). cl_abap_unit_assert=>assert_equals( exp = 'D1' act = lt_lines[ 1 ]-driver_id ). ENDMETHOD. METHOD orphan_trip. DATA(lt_lines) = NEW lcl_report( )->collect( iv_from = '20260101' iv_to = '20260131' it_base = VALUE #( ) ). cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ). ENDMETHOD. ENDCLASS.