54 lines
1.2 KiB
ABAP
54 lines
1.2 KiB
ABAP
FUNCTION {{p}}mkt_stall_fee
|
|
IMPORTING
|
|
iv_stall_size TYPE string
|
|
iv_days TYPE i
|
|
iv_power TYPE abap_bool
|
|
EXPORTING
|
|
ev_fee TYPE decfloat34
|
|
EXCEPTIONS
|
|
invalid_days
|
|
invalid_size.
|
|
|
|
CONSTANTS c_small TYPE decfloat34 VALUE '12.00'.
|
|
CONSTANTS c_medium TYPE decfloat34 VALUE '20.00'.
|
|
CONSTANTS c_large TYPE decfloat34 VALUE '35.00'.
|
|
CONSTANTS c_power TYPE decfloat34 VALUE '2.50'.
|
|
CONSTANTS c_rebate TYPE decfloat34 VALUE '15'.
|
|
CONSTANTS c_hundred TYPE decfloat34 VALUE '100'.
|
|
|
|
DATA lv_daily_fee TYPE decfloat34.
|
|
DATA lv_total_fee TYPE decfloat34.
|
|
DATA lv_reduction TYPE decfloat34.
|
|
|
|
ev_fee = 0.
|
|
|
|
IF iv_days < 1.
|
|
RAISE invalid_days.
|
|
ENDIF.
|
|
|
|
CASE iv_stall_size.
|
|
WHEN 'S'.
|
|
lv_daily_fee = c_small.
|
|
WHEN 'M'.
|
|
lv_daily_fee = c_medium.
|
|
WHEN 'L'.
|
|
lv_daily_fee = c_large.
|
|
WHEN OTHERS.
|
|
RAISE invalid_size.
|
|
ENDCASE.
|
|
|
|
IF iv_power = abap_true.
|
|
lv_daily_fee = lv_daily_fee - c_power.
|
|
ENDIF.
|
|
|
|
lv_total_fee = lv_daily_fee * iv_days.
|
|
|
|
IF iv_days >= 5.
|
|
lv_reduction = round( val = lv_total_fee * c_rebate / c_hundred dec = 2 ).
|
|
ev_fee = lv_total_fee - lv_reduction.
|
|
ELSE.
|
|
ev_fee = lv_total_fee.
|
|
ENDIF.
|
|
|
|
ENDFUNCTION.
|