56 lines
1.1 KiB
ABAP
56 lines
1.1 KiB
ABAP
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.
|