7510131a7d
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
128 lines
4.8 KiB
ABAP
128 lines
4.8 KiB
ABAP
REPORT {{p}}fleet_dist.
|
|
|
|
TYPES:
|
|
BEGIN OF ty_line,
|
|
veh_id TYPE {{p}}veh-veh_id,
|
|
depot TYPE {{p}}veh-depot,
|
|
distance TYPE i,
|
|
readings TYPE i,
|
|
END OF ty_line,
|
|
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
|
tt_depot TYPE RANGE OF {{p}}veh-depot.
|
|
|
|
DATA gv_depot TYPE {{p}}veh-depot.
|
|
|
|
PARAMETERS p_from TYPE d OBLIGATORY.
|
|
PARAMETERS p_to TYPE d OBLIGATORY.
|
|
SELECT-OPTIONS s_depot FOR gv_depot.
|
|
|
|
CLASS lcl_report DEFINITION FINAL.
|
|
PUBLIC SECTION.
|
|
METHODS select_distances
|
|
IMPORTING iv_from TYPE d
|
|
iv_to TYPE d
|
|
it_depot TYPE tt_depot
|
|
RETURNING VALUE(rt_lines) TYPE tt_line.
|
|
METHODS display
|
|
CHANGING ct_lines TYPE tt_line.
|
|
PRIVATE SECTION.
|
|
TYPES:
|
|
BEGIN OF ty_raw,
|
|
veh_id TYPE {{p}}veh-veh_id,
|
|
depot TYPE {{p}}veh-depot,
|
|
max_odo TYPE {{p}}odom-odometer,
|
|
min_odo TYPE {{p}}odom-odometer,
|
|
readings TYPE i,
|
|
END OF ty_raw,
|
|
tt_raw TYPE STANDARD TABLE OF ty_raw WITH EMPTY KEY.
|
|
ENDCLASS.
|
|
|
|
CLASS lcl_report IMPLEMENTATION.
|
|
METHOD select_distances.
|
|
DATA lt_raw TYPE tt_raw.
|
|
SELECT v~veh_id, v~depot, MAX( o~odometer ) AS max_odo, MIN( o~odometer ) AS min_odo,
|
|
COUNT( * ) AS readings
|
|
FROM {{p}}veh AS v
|
|
INNER JOIN {{p}}odom AS o ON o~veh_id = v~veh_id
|
|
WHERE o~read_date >= @iv_from
|
|
AND o~read_date <= @iv_to
|
|
AND v~depot IN @it_depot
|
|
GROUP BY v~veh_id, v~depot
|
|
HAVING COUNT( * ) >= 3
|
|
INTO CORRESPONDING FIELDS OF TABLE @lt_raw.
|
|
LOOP AT lt_raw ASSIGNING FIELD-SYMBOL(<ls_raw>).
|
|
APPEND VALUE #( veh_id = <ls_raw>-veh_id
|
|
depot = <ls_raw>-depot
|
|
distance = <ls_raw>-max_odo - <ls_raw>-min_odo
|
|
readings = <ls_raw>-readings ) TO rt_lines.
|
|
ENDLOOP.
|
|
SORT rt_lines BY distance DESCENDING veh_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->select_distances( iv_from = p_from iv_to = p_to it_depot = s_depot[] ).
|
|
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 distances_per_vehicle FOR TESTING.
|
|
METHODS depot_filter FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
CLASS ltc_report IMPLEMENTATION.
|
|
METHOD class_setup.
|
|
go_env = cl_osql_test_environment=>create(
|
|
i_dependency_list = VALUE #( ( '{{P}}VEH' ) ( '{{P}}ODOM' ) ) ).
|
|
DATA lt_veh TYPE STANDARD TABLE OF {{p}}veh WITH EMPTY KEY.
|
|
lt_veh = VALUE #( ( veh_id = 'V1' depot = 'D1' )
|
|
( veh_id = 'V2' depot = 'D2' )
|
|
( veh_id = 'V3' depot = 'D2' ) ).
|
|
go_env->insert_test_data( lt_veh ).
|
|
DATA lt_odom TYPE STANDARD TABLE OF {{p}}odom WITH EMPTY KEY.
|
|
lt_odom = VALUE #( ( read_id = 1 veh_id = 'V1' read_date = '20260101' odometer = 100 )
|
|
( read_id = 2 veh_id = 'V1' read_date = '20260110' odometer = 400 )
|
|
( read_id = 3 veh_id = 'V2' read_date = '20260105' odometer = 50 )
|
|
( read_id = 4 veh_id = 'V3' read_date = '20260102' odometer = 200 )
|
|
( read_id = 5 veh_id = 'V3' read_date = '20260112' odometer = 500 )
|
|
( read_id = 6 veh_id = 'V3' read_date = '20260122' odometer = 900 ) ).
|
|
go_env->insert_test_data( lt_odom ).
|
|
ENDMETHOD.
|
|
|
|
METHOD class_teardown.
|
|
go_env->destroy( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD distances_per_vehicle.
|
|
DATA(lt_lines) = NEW lcl_report( )->select_distances(
|
|
iv_from = '20260101' iv_to = '20260131' it_depot = VALUE #( ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'V3' act = lt_lines[ 1 ]-veh_id ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 700 act = lt_lines[ 1 ]-distance ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = lt_lines[ 1 ]-readings ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 300 act = lt_lines[ 2 ]-distance ).
|
|
ENDMETHOD.
|
|
|
|
METHOD depot_filter.
|
|
DATA(lt_lines) = NEW lcl_report( )->select_distances(
|
|
iv_from = '20260101' iv_to = '20260131'
|
|
it_depot = VALUE #( ( sign = 'I' option = 'EQ' low = 'D2' ) ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'V3' act = lt_lines[ 1 ]-veh_id ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|