Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions

View File

@@ -0,0 +1,69 @@
CLASS {{p}}tent_hire_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES {{p}}if_tent_hire.
PRIVATE SECTION.
TYPES ty_calc TYPE p LENGTH 15 DECIMALS 4.
METHODS get_rates
IMPORTING iv_tent_size TYPE string
EXPORTING ev_rate_day TYPE {{p}}if_tent_hire=>ty_amount
ev_setup_fee TYPE {{p}}if_tent_hire=>ty_amount
ev_found TYPE abap_bool.
METHODS apply_discount
IMPORTING iv_days TYPE i
CHANGING cv_amount TYPE ty_calc.
METHODS round_gross
IMPORTING iv_amount TYPE ty_calc
RETURNING VALUE(rv_fee) TYPE {{p}}if_tent_hire=>ty_amount.
ENDCLASS.
CLASS {{p}}tent_hire_fee IMPLEMENTATION.
METHOD {{p}}if_tent_hire~calculate_fee.
DATA lv_rate_day TYPE {{p}}if_tent_hire=>ty_amount.
DATA lv_setup_fee TYPE {{p}}if_tent_hire=>ty_amount.
DATA lv_found TYPE abap_bool.
get_rates(
EXPORTING iv_tent_size = iv_tent_size
IMPORTING ev_rate_day = lv_rate_day
ev_setup_fee = lv_setup_fee
ev_found = lv_found ).
IF lv_found = abap_false.
rv_fee = 0.
RETURN.
ENDIF.
DATA lv_net TYPE ty_calc.
lv_net = iv_days * lv_rate_day + lv_setup_fee.
apply_discount( EXPORTING iv_days = iv_days CHANGING cv_amount = lv_net ).
DATA(lv_gross) = lv_net * ( 1 + {{p}}if_tent_hire=>c_vat ).
rv_fee = round_gross( lv_gross ).
ENDMETHOD.
METHOD get_rates.
CASE to_upper( iv_tent_size ).
WHEN 'S'.
ev_rate_day = {{p}}if_tent_hire=>c_rate_s-rate_day.
ev_setup_fee = {{p}}if_tent_hire=>c_rate_s-setup_fee.
WHEN 'M'.
ev_rate_day = {{p}}if_tent_hire=>c_rate_m-rate_day.
ev_setup_fee = {{p}}if_tent_hire=>c_rate_m-setup_fee.
WHEN 'L'.
ev_rate_day = {{p}}if_tent_hire=>c_rate_l-rate_day.
ev_setup_fee = {{p}}if_tent_hire=>c_rate_l-setup_fee.
WHEN OTHERS.
ev_found = abap_false.
RETURN.
ENDCASE.
ev_found = abap_true.
ENDMETHOD.
METHOD apply_discount.
IF iv_days >= {{p}}if_tent_hire=>c_long_rental_days.
cv_amount = cv_amount * ( 1 - {{p}}if_tent_hire=>c_discount ).
ENDIF.
ENDMETHOD.
METHOD round_gross.
rv_fee = round( val = iv_amount dec = 2 ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,51 @@
CLASS ltc_tent_hire_fee DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}if_tent_hire.
METHODS setup.
METHODS small_tent_one_day FOR TESTING.
METHODS small_tent_five_days FOR TESTING.
METHODS medium_tent_three_days FOR TESTING.
METHODS large_tent_seven_days FOR TESTING.
METHODS unknown_size FOR TESTING.
ENDCLASS.
CLASS ltc_tent_hire_fee IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}tent_hire_fee( ).
ENDMETHOD.
METHOD small_tent_one_day.
" 1 * 45.00 + 30.00 = 75.00; plus 19% VAT = 89.25
cl_abap_unit_assert=>assert_equals(
exp = '89.25'
act = mo_cut->calculate_fee( iv_tent_size = 'S' iv_days = 1 ) ).
ENDMETHOD.
METHOD small_tent_five_days.
" 5 * 45.00 + 30.00 = 255.00; less 10% = 229.50; plus 19% VAT = 273.105
cl_abap_unit_assert=>assert_equals(
exp = '273.11'
act = mo_cut->calculate_fee( iv_tent_size = 'S' iv_days = 5 ) ).
ENDMETHOD.
METHOD medium_tent_three_days.
" 3 * 68.00 + 40.00 = 244.00; plus 19% VAT = 290.36
cl_abap_unit_assert=>assert_equals(
exp = '290.36'
act = mo_cut->calculate_fee( iv_tent_size = 'M' iv_days = 3 ) ).
ENDMETHOD.
METHOD large_tent_seven_days.
" 7 * 95.00 + 55.00 = 720.00; less 10% = 648.00; plus 19% VAT = 771.12
cl_abap_unit_assert=>assert_equals(
exp = '771.12'
act = mo_cut->calculate_fee( iv_tent_size = 'L' iv_days = 7 ) ).
ENDMETHOD.
METHOD unknown_size.
cl_abap_unit_assert=>assert_equals(
exp = '0.00'
act = mo_cut->calculate_fee( iv_tent_size = 'X' iv_days = 2 ) ).
ENDMETHOD.
ENDCLASS.