106 lines
2.7 KiB
ABAP
106 lines
2.7 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.
|
|
|
|
PRIVATE SECTION.
|
|
CONSTANTS:
|
|
c_minimum_fee TYPE ty_fee VALUE '50.00',
|
|
c_urgent_fee TYPE ty_fee VALUE '45.00',
|
|
c_area_free TYPE i VALUE 100,
|
|
c_area_step TYPE i VALUE 50,
|
|
c_area_step_fee TYPE i VALUE 15,
|
|
c_discount_pct TYPE i VALUE 10.
|
|
|
|
METHODS base_fee
|
|
IMPORTING iv_pest_type TYPE ty_pest
|
|
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
|
|
|
METHODS area_surcharge
|
|
IMPORTING iv_area TYPE i
|
|
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
|
|
|
METHODS urgent_surcharge
|
|
IMPORTING iv_urgent TYPE abap_bool
|
|
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
|
|
|
METHODS contract_discount
|
|
IMPORTING iv_base TYPE ty_fee
|
|
iv_area_fee TYPE ty_fee
|
|
iv_contract TYPE abap_bool
|
|
RETURNING VALUE(rv_fee) TYPE ty_fee.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}pest_fee IMPLEMENTATION.
|
|
METHOD calculate_fee.
|
|
DATA(lv_base) = base_fee( iv_pest_type ).
|
|
IF lv_base = 0.
|
|
CLEAR rv_fee.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
DATA(lv_area_fee) = area_surcharge( iv_area ).
|
|
DATA(lv_gross) = lv_base + lv_area_fee + urgent_surcharge( iv_urgent ).
|
|
DATA(lv_discount) = contract_discount( iv_base = lv_base
|
|
iv_area_fee = lv_area_fee
|
|
iv_contract = iv_contract ).
|
|
|
|
rv_fee = lv_gross - lv_discount.
|
|
IF rv_fee < c_minimum_fee.
|
|
rv_fee = c_minimum_fee.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD base_fee.
|
|
CASE iv_pest_type.
|
|
WHEN 'RATS'.
|
|
rv_fee = 120.
|
|
WHEN 'MICE'.
|
|
rv_fee = 55.
|
|
WHEN 'WASP'.
|
|
rv_fee = 150.
|
|
WHEN 'ANTS'.
|
|
rv_fee = 80.
|
|
WHEN OTHERS.
|
|
CLEAR rv_fee.
|
|
ENDCASE.
|
|
ENDMETHOD.
|
|
|
|
METHOD area_surcharge.
|
|
DATA(lv_billable) = iv_area - c_area_free.
|
|
IF lv_billable <= 0.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
DATA(lv_steps) = ( lv_billable + c_area_step - 1 ) DIV c_area_step.
|
|
rv_fee = lv_steps * c_area_step_fee.
|
|
ENDMETHOD.
|
|
|
|
METHOD urgent_surcharge.
|
|
IF iv_urgent = abap_true.
|
|
rv_fee = c_urgent_fee.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD contract_discount.
|
|
IF iv_contract = abap_true.
|
|
RETURN.
|
|
ENDIF.
|
|
|
|
DATA(lv_discountable) = iv_base + iv_area_fee.
|
|
rv_fee = lv_discountable * c_discount_pct / 100.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|