246 lines
8.6 KiB
ABAP
246 lines
8.6 KiB
ABAP
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(<ls_sum>)
|
|
WITH TABLE KEY driver_id = is_driver-driver_id.
|
|
IF sy-subrc = 0.
|
|
<ls_sum>-trips = <ls_sum>-trips + 1.
|
|
<ls_sum>-km = <ls_sum>-km + is_trip-km.
|
|
<ls_sum>-fare = <ls_sum>-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 = 2
|
|
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.
|