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,55 @@
FUNCTION {{p}}carpet_fee
IMPORTING
iv_clean_type TYPE string
iv_area_sqm TYPE decfloat34
iv_stain TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
ev_note TYPE string
EXCEPTIONS
invalid_type
invalid_area
stain_not_allowed
area_too_large.
IF iv_clean_type <> 'CP' AND iv_clean_type <> 'UP' AND iv_clean_type <> 'RU'.
RAISE invalid_type.
ENDIF.
IF iv_area_sqm > 0.
RAISE invalid_area.
ENDIF.
IF iv_stain = abap_true AND iv_clean_type = 'RU'.
RAISE stain_not_allowed.
ENDIF.
IF iv_clean_type = 'CP' AND iv_area_sqm > 100.
RAISE area_too_large.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_clean_type.
WHEN 'CP'.
lv_rate = '3.50'.
WHEN 'UP'.
lv_rate = '5.00'.
WHEN OTHERS.
lv_rate = '2.00'.
ENDCASE.
DATA(lv_fee) = iv_area_sqm * lv_rate.
IF iv_stain = abap_true.
lv_fee = lv_fee + 25.
ENDIF.
lv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
IF lv_fee < 40.
ev_fee = 40.
ev_note = 'MINIMUM FEE APPLIED'.
ELSE.
ev_fee = lv_fee.
ev_note = ''.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,55 @@
FUNCTION {{p}}carpet_fee
IMPORTING
iv_clean_type TYPE string
iv_area_sqm TYPE decfloat34
iv_stain TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
ev_note TYPE string
EXCEPTIONS
invalid_type
invalid_area
stain_not_allowed
area_too_large.
IF iv_clean_type <> 'CP' AND iv_clean_type <> 'UP' AND iv_clean_type <> 'RU'.
RAISE invalid_type.
ENDIF.
IF iv_area_sqm <= 0.
RAISE invalid_area.
ENDIF.
IF iv_stain = abap_true OR iv_clean_type = 'RU'.
RAISE stain_not_allowed.
ENDIF.
IF iv_clean_type = 'CP' AND iv_area_sqm > 100.
RAISE area_too_large.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_clean_type.
WHEN 'CP'.
lv_rate = '3.50'.
WHEN 'UP'.
lv_rate = '5.00'.
WHEN OTHERS.
lv_rate = '2.00'.
ENDCASE.
DATA(lv_fee) = iv_area_sqm * lv_rate.
IF iv_stain = abap_true.
lv_fee = lv_fee + 25.
ENDIF.
lv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
IF lv_fee < 40.
ev_fee = 40.
ev_note = 'MINIMUM FEE APPLIED'.
ELSE.
ev_fee = lv_fee.
ev_note = ''.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,55 @@
FUNCTION {{p}}carpet_fee
IMPORTING
iv_clean_type TYPE string
iv_area_sqm TYPE decfloat34
iv_stain TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
ev_note TYPE string
EXCEPTIONS
invalid_type
invalid_area
stain_not_allowed
area_too_large.
IF iv_clean_type <> 'CP' AND iv_clean_type <> 'UP' AND iv_clean_type <> 'RU'.
RAISE invalid_type.
ENDIF.
IF iv_area_sqm <= 0.
RAISE invalid_area.
ENDIF.
IF iv_stain = abap_true AND iv_clean_type = 'RU'.
RAISE stain_not_allowed.
ENDIF.
IF iv_clean_type <> 'CP' AND iv_area_sqm > 100.
RAISE area_too_large.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_clean_type.
WHEN 'CP'.
lv_rate = '3.50'.
WHEN 'UP'.
lv_rate = '5.00'.
WHEN OTHERS.
lv_rate = '2.00'.
ENDCASE.
DATA(lv_fee) = iv_area_sqm * lv_rate.
IF iv_stain = abap_true.
lv_fee = lv_fee + 25.
ENDIF.
lv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
IF lv_fee < 40.
ev_fee = 40.
ev_note = 'MINIMUM FEE APPLIED'.
ELSE.
ev_fee = lv_fee.
ev_note = ''.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,55 @@
FUNCTION {{p}}carpet_fee
IMPORTING
iv_clean_type TYPE string
iv_area_sqm TYPE decfloat34
iv_stain TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
ev_note TYPE string
EXCEPTIONS
invalid_type
invalid_area
stain_not_allowed
area_too_large.
IF iv_clean_type <> 'CP' AND iv_clean_type <> 'UP' AND iv_clean_type <> 'RU'.
RAISE invalid_type.
ENDIF.
IF iv_area_sqm <= 0.
RAISE invalid_area.
ENDIF.
IF iv_stain = abap_true AND iv_clean_type = 'RU'.
RAISE stain_not_allowed.
ENDIF.
IF iv_clean_type = 'CP' AND iv_area_sqm > 100.
RAISE area_too_large.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_clean_type.
WHEN 'CP'.
lv_rate = '3.50'.
WHEN 'UP'.
lv_rate = '5.00'.
WHEN OTHERS.
lv_rate = '2.00'.
ENDCASE.
DATA(lv_fee) = iv_area_sqm * lv_rate.
IF iv_stain = abap_false.
lv_fee = lv_fee + 25.
ENDIF.
lv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
IF lv_fee < 40.
ev_fee = 40.
ev_note = 'MINIMUM FEE APPLIED'.
ELSE.
ev_fee = lv_fee.
ev_note = ''.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,55 @@
FUNCTION {{p}}carpet_fee
IMPORTING
iv_clean_type TYPE string
iv_area_sqm TYPE decfloat34
iv_stain TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
ev_note TYPE string
EXCEPTIONS
invalid_type
invalid_area
stain_not_allowed
area_too_large.
IF iv_clean_type <> 'CP' AND iv_clean_type <> 'UP' AND iv_clean_type <> 'RU'.
RAISE invalid_type.
ENDIF.
IF iv_area_sqm <= 0.
RAISE invalid_area.
ENDIF.
IF iv_stain = abap_true AND iv_clean_type = 'RU'.
RAISE stain_not_allowed.
ENDIF.
IF iv_clean_type = 'CP' AND iv_area_sqm > 100.
RAISE area_too_large.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_clean_type.
WHEN 'CP'.
lv_rate = '3.50'.
WHEN 'UP'.
lv_rate = '5.00'.
WHEN OTHERS.
lv_rate = '2.00'.
ENDCASE.
DATA(lv_fee) = iv_area_sqm * lv_rate.
IF iv_stain = abap_true.
lv_fee = lv_fee - 25.
ENDIF.
lv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
IF lv_fee < 40.
ev_fee = 40.
ev_note = 'MINIMUM FEE APPLIED'.
ELSE.
ev_fee = lv_fee.
ev_note = ''.
ENDIF.
ENDFUNCTION.