Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
149
tasks_gen/eval/G0190/faulty/m3_fleet_cost_old.prog.abap
Normal file
149
tasks_gen/eval/G0190/faulty/m3_fleet_cost_old.prog.abap
Normal file
@@ -0,0 +1,149 @@
|
||||
REPORT {{p}}fleet_cost_old.
|
||||
|
||||
PARAMETERS p_from TYPE d OBLIGATORY.
|
||||
PARAMETERS p_to TYPE d OBLIGATORY.
|
||||
|
||||
DATA gv_cat TYPE {{p}}vehicle-category.
|
||||
SELECT-OPTIONS s_cat FOR gv_cat.
|
||||
|
||||
CLASS lcl_fleet DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_line,
|
||||
vehicle_id TYPE {{p}}vehicle-vehicle_id,
|
||||
plate TYPE {{p}}vehicle-plate,
|
||||
category TYPE {{p}}vehicle-category,
|
||||
distance TYPE {{p}}trip-distance_km,
|
||||
fuel_cost TYPE {{p}}trip-toll_fee,
|
||||
toll_cost TYPE {{p}}trip-toll_fee,
|
||||
total_cost TYPE {{p}}trip-toll_fee,
|
||||
cost_per_km TYPE p LENGTH 15 DECIMALS 3,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_cat TYPE RANGE OF {{p}}vehicle-category.
|
||||
CLASS-METHODS select_costs
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
it_cat TYPE tt_cat
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
CLASS-METHODS show
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
PRIVATE SECTION.
|
||||
CLASS-METHODS cost_per_km
|
||||
IMPORTING is_line TYPE ty_line
|
||||
RETURNING VALUE(rv_value) TYPE ty_line-cost_per_km.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_fleet IMPLEMENTATION.
|
||||
METHOD select_costs.
|
||||
SELECT v~vehicle_id,
|
||||
v~plate,
|
||||
v~category,
|
||||
SUM( t~distance_km ) AS distance,
|
||||
SUM( t~fuel_liters * t~fuel_price ) AS fuel_cost,
|
||||
SUM( t~toll_fee ) AS toll_cost
|
||||
FROM {{p}}vehicle AS v
|
||||
INNER JOIN {{p}}trip AS t ON t~vehicle_id = v~vehicle_id
|
||||
WHERE t~trip_date BETWEEN @iv_from AND @iv_to
|
||||
AND v~category IN @it_cat
|
||||
GROUP BY v~vehicle_id, v~plate, v~category
|
||||
INTO TABLE @DATA(lt_sums).
|
||||
|
||||
LOOP AT lt_sums INTO DATA(ls_sum).
|
||||
DATA(ls_line) = VALUE ty_line(
|
||||
vehicle_id = ls_sum-vehicle_id
|
||||
plate = ls_sum-plate
|
||||
category = ls_sum-category
|
||||
distance = ls_sum-distance
|
||||
fuel_cost = ls_sum-fuel_cost
|
||||
toll_cost = ls_sum-toll_cost
|
||||
total_cost = ls_sum-fuel_cost + ls_sum-toll_cost ).
|
||||
ls_line-cost_per_km = cost_per_km( ls_line ).
|
||||
APPEND ls_line TO rt_lines.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_cost DESCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD cost_per_km.
|
||||
IF is_line-distance <= 0.
|
||||
rv_value = ROUND( val = is_line-total_cost / is_line-distance dec = 3 ).
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD show.
|
||||
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(gt_lines) = lcl_fleet=>select_costs( iv_from = p_from
|
||||
iv_to = p_to
|
||||
it_cat = s_cat[] ).
|
||||
lcl_fleet=>show( CHANGING ct_lines = gt_lines ).
|
||||
|
||||
CLASS ltc_fleet 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_vehicle FOR TESTING.
|
||||
METHODS period_filter FOR TESTING.
|
||||
METHODS category_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_fleet IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create(
|
||||
i_dependency_list = VALUE #( ( '{{P}}VEHICLE' ) ( '{{P}}TRIP' ) ) ).
|
||||
|
||||
DATA lt_vehicle TYPE STANDARD TABLE OF {{p}}vehicle WITH EMPTY KEY.
|
||||
lt_vehicle = VALUE #( ( vehicle_id = 'V1' plate = 'AAA' category = 'VAN' )
|
||||
( vehicle_id = 'V2' plate = 'BBB' category = 'TRUCK' ) ).
|
||||
go_env->insert_test_data( lt_vehicle ).
|
||||
|
||||
DATA lt_trip TYPE STANDARD TABLE OF {{p}}trip WITH EMPTY KEY.
|
||||
lt_trip = VALUE #( ( trip_id = 1 vehicle_id = 'V1' trip_date = '20260105'
|
||||
distance_km = 100 fuel_liters = 10 fuel_price = 2 toll_fee = 1 )
|
||||
( trip_id = 2 vehicle_id = 'V2' trip_date = '20260106'
|
||||
distance_km = 50 fuel_liters = 5 fuel_price = 2 toll_fee = 0 ) ).
|
||||
go_env->insert_test_data( lt_trip ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_vehicle.
|
||||
DATA(lt_lines) = lcl_fleet=>select_costs( iv_from = '20260101'
|
||||
iv_to = '20260131'
|
||||
it_cat = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V1' act = lt_lines[ 1 ]-vehicle_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}trip-toll_fee( 21 ) act = lt_lines[ 1 ]-total_cost ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V2' act = lt_lines[ 2 ]-vehicle_id ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD period_filter.
|
||||
DATA(lt_lines) = lcl_fleet=>select_costs( iv_from = '20260106'
|
||||
iv_to = '20260106'
|
||||
it_cat = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V2' act = lt_lines[ 1 ]-vehicle_id ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD category_filter.
|
||||
DATA(lt_lines) = lcl_fleet=>select_costs(
|
||||
iv_from = '20260101'
|
||||
iv_to = '20260131'
|
||||
it_cat = VALUE #( ( sign = 'I' option = 'EQ' low = 'TRUCK' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'V2' act = lt_lines[ 1 ]-vehicle_id ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user