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
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions

View File

@@ -0,0 +1,44 @@
FUNCTION {{p}}repair_fee
IMPORTING
iv_repair_type TYPE string
iv_hours TYPE decfloat34
iv_parts_cost TYPE decfloat34
iv_member TYPE abap_bool
EXPORTING
ev_labour_fee TYPE decfloat34
ev_total_fee TYPE decfloat34
EXCEPTIONS
invalid_hours.
DATA lv_rate TYPE decfloat34.
DATA lv_discount TYPE decfloat34.
IF iv_hours < 0.
RAISE invalid_hours.
ENDIF.
CASE iv_repair_type.
WHEN 'BR'.
lv_rate = 60.
WHEN 'GE'.
lv_rate = 45.
WHEN 'WH'.
lv_rate = 30.
WHEN OTHERS.
lv_rate = 40.
ENDCASE.
ev_labour_fee = round( val = iv_hours * lv_rate dec = 2 ).
IF iv_member = abap_true.
lv_discount = round( val = ev_labour_fee * 10 / 100 dec = 2 ).
ev_labour_fee = ev_labour_fee - lv_discount.
ENDIF.
ev_total_fee = ev_labour_fee + iv_parts_cost.
IF ev_total_fee < 25.
ev_total_fee = 25.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,73 @@
CLASS {{p}}t21_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS fee_of
IMPORTING
iv_type TYPE string
iv_hours TYPE decfloat34
iv_parts TYPE decfloat34
iv_member TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_total) TYPE decfloat34.
METHODS brake_fee FOR TESTING.
METHODS minimum_fee FOR TESTING.
METHODS member_fee FOR TESTING.
METHODS negative_hours FOR TESTING.
ENDCLASS.
CLASS {{p}}t21_test IMPLEMENTATION.
METHOD fee_of.
DATA lv_labour TYPE decfloat34.
CALL FUNCTION '{{P}}REPAIR_FEE'
EXPORTING
iv_repair_type = iv_type
iv_hours = iv_hours
iv_parts_cost = iv_parts
iv_member = iv_member
IMPORTING
ev_labour_fee = lv_labour
ev_total_fee = rv_total
EXCEPTIONS
invalid_hours = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD brake_fee.
DATA lv_exp TYPE decfloat34.
lv_exp = '110.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp
act = fee_of( iv_type = 'BR' iv_hours = '1.5' iv_parts = '20' ) ).
ENDMETHOD.
METHOD minimum_fee.
DATA lv_exp TYPE decfloat34.
lv_exp = '25.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp
act = fee_of( iv_type = 'WH' iv_hours = '0.5' iv_parts = '1' ) ).
ENDMETHOD.
METHOD member_fee.
DATA lv_exp TYPE decfloat34.
lv_exp = '101.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_exp
act = fee_of( iv_type = 'BR' iv_hours = '1.5' iv_parts = '20' iv_member = abap_true ) ).
ENDMETHOD.
METHOD negative_hours.
DATA lv_total TYPE decfloat34.
CALL FUNCTION '{{P}}REPAIR_FEE'
EXPORTING
iv_repair_type = 'BR'
iv_hours = '-1'
iv_parts_cost = '0'
iv_member = abap_false
IMPORTING
ev_total_fee = lv_total
EXCEPTIONS
invalid_hours = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
ENDMETHOD.
ENDCLASS.