Pipeline controller: plan 2 (hard +, error +50 %), backlog throttle, 2 trajectory workers, stop rules, summaries every 50; budget reserve

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 13:35:54 +02:00
parent 1c4667a0fc
commit 13360292dd
781 changed files with 50211 additions and 22 deletions

View File

@@ -0,0 +1,54 @@
CLASS {{p}}scaffold_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES {{p}}if_hire_fee.
PRIVATE SECTION.
TYPES ty_exact TYPE p LENGTH 15 DECIMALS 5.
CONSTANTS:
c_daily_rate TYPE {{p}}if_hire_fee=>ty_amount VALUE '4.20',
c_express_percent TYPE i VALUE 12,
c_discount_percent TYPE i VALUE 6,
c_long_hire_days TYPE i VALUE 30.
METHODS base_fee
IMPORTING iv_days TYPE i
iv_parts TYPE i
RETURNING VALUE(rv_fee) TYPE {{p}}if_hire_fee=>ty_amount.
METHODS express_surcharge
IMPORTING iv_base TYPE {{p}}if_hire_fee=>ty_amount
RETURNING VALUE(rv_surcharge) TYPE {{p}}if_hire_fee=>ty_amount.
METHODS long_hire_discount
IMPORTING iv_base TYPE {{p}}if_hire_fee=>ty_amount
RETURNING VALUE(rv_discount) TYPE {{p}}if_hire_fee=>ty_amount.
ENDCLASS.
CLASS {{p}}scaffold_fee IMPLEMENTATION.
METHOD {{p}}if_hire_fee~calculate_fee.
DATA(lv_base) = base_fee( iv_days = iv_days iv_parts = iv_parts ).
DATA(lv_fee) = lv_base.
IF iv_express = abap_true.
lv_fee = lv_fee + express_surcharge( lv_base ).
ENDIF.
IF iv_days > c_long_hire_days.
rs_result-discount = long_hire_discount( lv_base ).
lv_fee = lv_fee - rs_result-discount.
ENDIF.
rs_result-fee = lv_fee.
ENDMETHOD.
METHOD base_fee.
rv_fee = iv_days * iv_parts * c_daily_rate.
ENDMETHOD.
METHOD express_surcharge.
DATA(lv_amount) = CONV ty_exact( iv_base ) * c_express_percent / 100.
rv_surcharge = round( val = lv_amount dec = 2 mode = 'CEILING' ).
ENDMETHOD.
METHOD long_hire_discount.
DATA(lv_amount) = CONV ty_exact( iv_base ) * c_discount_percent / 100.
rv_discount = round( val = lv_amount dec = 2 mode = 'HALF_UP' ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,52 @@
CLASS ltc_scaffold_fee DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}scaffold_fee.
METHODS setup.
METHODS base_fee_only FOR TESTING.
METHODS express_surcharge_rounds_up FOR TESTING.
METHODS discount_on_long_hire FOR TESTING.
METHODS no_discount_on_short_hire FOR TESTING.
ENDCLASS.
CLASS ltc_scaffold_fee IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}scaffold_fee( ).
ENDMETHOD.
METHOD base_fee_only.
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
iv_days = 3 iv_parts = 2 iv_express = abap_false ).
lv_exp = '25.20'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
lv_exp = '0.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
ENDMETHOD.
METHOD express_surcharge_rounds_up.
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
iv_days = 2 iv_parts = 1 iv_express = abap_true ).
lv_exp = '9.41'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
ENDMETHOD.
METHOD discount_on_long_hire.
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
iv_days = 31 iv_parts = 5 iv_express = abap_false ).
lv_exp = '39.06'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
lv_exp = '611.94'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
ENDMETHOD.
METHOD no_discount_on_short_hire.
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
iv_days = 30 iv_parts = 1 iv_express = abap_false ).
lv_exp = '0.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
ENDMETHOD.
ENDCLASS.