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,74 @@
CLASS {{p}}move_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
CONSTANTS:
c_base_fee TYPE ty_price VALUE '250.00',
c_volume_fee TYPE ty_price VALUE '40.00',
c_distance_fee TYPE ty_price VALUE '1.20',
c_floor_fee TYPE ty_price VALUE '15.00',
c_packing_fee TYPE ty_price VALUE '180.00',
c_weekend_rate TYPE ty_price VALUE '0.12'.
METHODS calculate
IMPORTING iv_distance_km TYPE i
iv_volume_m3 TYPE i
iv_floor TYPE i
iv_packing TYPE abap_bool
iv_weekend TYPE abap_bool
RETURNING VALUE(rv_price) TYPE ty_price.
PRIVATE SECTION.
METHODS subtotal
IMPORTING iv_distance_km TYPE i
iv_volume_m3 TYPE i
iv_floor TYPE i
iv_packing TYPE abap_bool
RETURNING VALUE(rv_subtotal) TYPE ty_price.
METHODS distance_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_price.
METHODS floor_surcharge
IMPORTING iv_floor TYPE i
RETURNING VALUE(rv_surcharge) TYPE ty_price.
METHODS weekend_surcharge
IMPORTING iv_subtotal TYPE ty_price
RETURNING VALUE(rv_surcharge) TYPE ty_price.
ENDCLASS.
CLASS {{p}}move_pricer IMPLEMENTATION.
METHOD calculate.
DATA(lv_subtotal) = subtotal( iv_distance_km = iv_distance_km
iv_volume_m3 = iv_volume_m3
iv_floor = iv_floor
iv_packing = iv_packing ).
rv_price = lv_subtotal.
IF iv_weekend = abap_true.
rv_price = rv_price + weekend_surcharge( lv_subtotal ).
ENDIF.
ENDMETHOD.
METHOD subtotal.
rv_subtotal = c_base_fee + iv_volume_m3 * c_volume_fee
+ distance_fee( iv_distance_km )
+ floor_surcharge( iv_floor ).
IF iv_packing = abap_true.
rv_subtotal = rv_subtotal + c_packing_fee.
ENDIF.
ENDMETHOD.
METHOD distance_fee.
rv_fee = iv_distance_km * c_distance_fee.
ENDMETHOD.
METHOD floor_surcharge.
IF iv_floor > 0.
rv_surcharge = iv_floor * c_floor_fee.
ENDIF.
ENDMETHOD.
METHOD weekend_surcharge.
rv_surcharge = round( val = iv_subtotal / c_weekend_rate dec = 2 ).
ENDMETHOD.
ENDCLASS.