88 lines
1.9 KiB
ABAP
88 lines
1.9 KiB
ABAP
CLASS {{p}}pest_fee DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC.
|
|
|
|
PUBLIC SECTION.
|
|
TYPES ty_pest TYPE c LENGTH 4.
|
|
TYPES ty_fee TYPE p LENGTH 8 DECIMALS 2.
|
|
|
|
METHODS calculate_fee
|
|
IMPORTING iv_pest_type TYPE ty_pest
|
|
iv_area TYPE i
|
|
iv_urgent TYPE abap_bool
|
|
iv_contract TYPE abap_bool
|
|
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}pest_fee IMPLEMENTATION.
|
|
METHOD calculate_fee.
|
|
DATA lv_base TYPE ty_fee.
|
|
DATA lv_area_fee TYPE ty_fee.
|
|
DATA lv_area_fee2 TYPE ty_fee.
|
|
DATA lv_total TYPE ty_fee.
|
|
DATA lv_discount TYPE ty_fee.
|
|
DATA lv_steps TYPE i.
|
|
DATA lv_rest TYPE i.
|
|
DATA lv_dummy TYPE i.
|
|
|
|
" get the base fee
|
|
IF iv_pest_type = 'RATS'.
|
|
lv_base = 120.
|
|
ELSEIF iv_pest_type = 'MICE'.
|
|
lv_base = 55.
|
|
ELSEIF iv_pest_type = 'WASP'.
|
|
lv_base = 150.
|
|
ELSEIF iv_pest_type = 'ANTS'.
|
|
lv_base = 80.
|
|
ELSE.
|
|
lv_base = 0.
|
|
ENDIF.
|
|
|
|
IF lv_base = 0.
|
|
rv_fee = 0.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
" area surcharge
|
|
lv_area_fee = 0.
|
|
IF iv_area > 100.
|
|
lv_rest = iv_area - 100.
|
|
lv_steps = lv_rest DIV 50.
|
|
IF lv_rest MOD 50 <> 0.
|
|
lv_steps = lv_steps + 1.
|
|
ENDIF.
|
|
lv_area_fee = lv_steps * 15.
|
|
ENDIF.
|
|
|
|
lv_total = lv_base + lv_area_fee.
|
|
|
|
" urgent jobs cost more
|
|
IF iv_urgent = 'X'.
|
|
lv_total = lv_total + 45.
|
|
ENDIF.
|
|
|
|
" contract customers get a discount
|
|
IF iv_contract = 'X'.
|
|
lv_area_fee2 = 0.
|
|
IF iv_area > 100.
|
|
lv_rest = iv_area - 100.
|
|
lv_steps = lv_rest DIV 50.
|
|
IF lv_rest MOD 50 <> 0.
|
|
lv_steps = lv_steps + 1.
|
|
ENDIF.
|
|
lv_area_fee2 = lv_steps * 15.
|
|
ENDIF.
|
|
lv_discount = ( lv_base + lv_area_fee2 ) * 10 / 100.
|
|
lv_total = lv_total - lv_discount.
|
|
ENDIF.
|
|
|
|
IF lv_total < 50.
|
|
lv_total = 50.
|
|
ENDIF.
|
|
|
|
rv_fee = lv_total.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|