61 lines
1.6 KiB
ABAP
61 lines
1.6 KiB
ABAP
CLASS {{p}}bowling_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_bowling_fee.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES ty_rate TYPE p LENGTH 5 DECIMALS 2.
|
|
|
|
CONSTANTS:
|
|
c_lane_fee TYPE {{p}}if_bowling_fee=>ty_fee VALUE '12.00',
|
|
c_shoe_fee TYPE {{p}}if_bowling_fee=>ty_fee VALUE '2.50',
|
|
c_group_dis TYPE ty_rate VALUE '0.10',
|
|
c_large_dis TYPE ty_rate VALUE '0.20'.
|
|
|
|
METHODS lane_fee
|
|
IMPORTING iv_lanes TYPE i
|
|
iv_hours TYPE i
|
|
RETURNING VALUE(rv_fee) TYPE {{p}}if_bowling_fee=>ty_fee.
|
|
|
|
METHODS discount_rate
|
|
IMPORTING iv_lanes TYPE i
|
|
iv_hours TYPE i
|
|
RETURNING VALUE(rv_rate) TYPE ty_rate.
|
|
|
|
METHODS shoe_rental
|
|
IMPORTING iv_shoes TYPE i
|
|
RETURNING VALUE(rv_fee) TYPE {{p}}if_bowling_fee=>ty_fee.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}bowling_fee IMPLEMENTATION.
|
|
METHOD {{p}}if_bowling_fee~calculate_fee.
|
|
DATA(lv_lane_fee) = lane_fee( iv_lanes = iv_lanes iv_hours = iv_hours ).
|
|
lv_lane_fee = lv_lane_fee * ( 1 - discount_rate( iv_lanes = iv_lanes iv_hours = iv_hours ) ).
|
|
rv_fee = lv_lane_fee + shoe_rental( iv_shoes ).
|
|
ENDMETHOD.
|
|
|
|
METHOD lane_fee.
|
|
IF iv_lanes <= 0 OR iv_hours <= 0.
|
|
RETURN.
|
|
ENDIF.
|
|
rv_fee = c_lane_fee * iv_lanes * iv_hours.
|
|
ENDMETHOD.
|
|
|
|
METHOD discount_rate.
|
|
IF iv_lanes > 4 AND iv_hours > 3.
|
|
rv_rate = c_large_dis.
|
|
ELSEIF iv_lanes > 4.
|
|
rv_rate = c_group_dis.
|
|
ELSEIF iv_hours > 3.
|
|
rv_rate = c_large_dis.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
|
|
METHOD shoe_rental.
|
|
IF iv_shoes <= 0.
|
|
RETURN.
|
|
ENDIF.
|
|
rv_fee = c_shoe_fee * iv_shoes.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|