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,77 @@
CLASS {{p}}locksmith_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES {{p}}if_locksmith_pricer.
ENDCLASS.
CLASS {{p}}locksmith_pricer IMPLEMENTATION.
METHOD {{p}}if_locksmith_pricer~calculate_price.
DATA lv_qty TYPE p LENGTH 9 DECIMALS 2.
DATA lv_rate TYPE p LENGTH 9 DECIMALS 2.
DATA lv_base TYPE p LENGTH 9 DECIMALS 2.
DATA lv_disc TYPE p LENGTH 9 DECIMALS 2.
DATA lv_hundred TYPE p LENGTH 9 DECIMALS 2.
lv_qty = iv_quantity.
lv_hundred = '100.00'.
IF iv_job_type = 'K'.
IF lv_qty < 1.
rv_price = '0.00'.
ELSE.
IF iv_key_type = 'S'.
lv_rate = '4.50'.
ELSEIF iv_key_type = 'Y'.
lv_rate = '9.80'.
ELSEIF iv_key_type = 'E'.
lv_rate = '24.00'.
ELSE.
lv_rate = '0.00'.
ENDIF.
IF lv_rate = 0.
rv_price = '0.00'.
ELSE.
lv_base = lv_rate * lv_qty.
IF lv_qty >= 20.
lv_disc = '20.00'.
ELSEIF lv_qty >= 5.
lv_disc = '10.00'.
ELSE.
lv_disc = '0.00'.
ENDIF.
rv_price = lv_base - lv_base * lv_disc / lv_hundred.
ENDIF.
ENDIF.
ELSEIF iv_job_type = 'L'.
IF iv_callout = 'W'.
rv_price = '179.00'.
ELSEIF iv_callout = 'A'.
rv_price = '149.00'.
ELSE.
rv_price = '89.00'.
ENDIF.
ELSEIF iv_job_type = 'R'.
IF lv_qty < 1.
rv_price = '0.00'.
ELSE.
IF iv_key_type = 'S'.
lv_rate = '6.00'.
ELSEIF iv_key_type = 'Y'.
lv_rate = '11.00'.
ELSEIF iv_key_type = 'E'.
lv_rate = '26.00'.
ELSE.
lv_rate = '0.00'.
ENDIF.
IF lv_rate = 0.
rv_price = '0.00'.
ELSE.
lv_base = '35.00'.
rv_price = lv_qty * ( lv_base + lv_rate ).
ENDIF.
ENDIF.
ELSE.
rv_price = '0.00'.
ENDIF.
ENDMETHOD.
ENDCLASS.