55 lines
1.8 KiB
ABAP
55 lines
1.8 KiB
ABAP
CLASS {{p}}scaffold_fee DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_hire_fee.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES ty_exact TYPE p LENGTH 15 DECIMALS 5.
|
|
|
|
CONSTANTS:
|
|
c_daily_rate TYPE {{p}}if_hire_fee=>ty_amount VALUE '4.20',
|
|
c_express_percent TYPE i VALUE 12,
|
|
c_discount_percent TYPE i VALUE 6,
|
|
c_long_hire_days TYPE i VALUE 30.
|
|
|
|
METHODS base_fee
|
|
IMPORTING iv_days TYPE i
|
|
iv_parts TYPE i
|
|
RETURNING VALUE(rv_fee) TYPE {{p}}if_hire_fee=>ty_amount.
|
|
METHODS express_surcharge
|
|
IMPORTING iv_base TYPE {{p}}if_hire_fee=>ty_amount
|
|
RETURNING VALUE(rv_surcharge) TYPE {{p}}if_hire_fee=>ty_amount.
|
|
METHODS long_hire_discount
|
|
IMPORTING iv_base TYPE {{p}}if_hire_fee=>ty_amount
|
|
RETURNING VALUE(rv_discount) TYPE {{p}}if_hire_fee=>ty_amount.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}scaffold_fee IMPLEMENTATION.
|
|
METHOD {{p}}if_hire_fee~calculate_fee.
|
|
DATA(lv_base) = base_fee( iv_days = iv_days iv_parts = iv_parts ).
|
|
DATA(lv_fee) = lv_base.
|
|
IF iv_express = abap_true.
|
|
lv_fee = lv_fee + express_surcharge( lv_base ).
|
|
ENDIF.
|
|
IF iv_days > c_long_hire_days.
|
|
rs_result-discount = long_hire_discount( lv_base ).
|
|
lv_fee = lv_fee - rs_result-discount.
|
|
ENDIF.
|
|
rs_result-fee = lv_fee.
|
|
ENDMETHOD.
|
|
|
|
METHOD base_fee.
|
|
rv_fee = iv_days * iv_parts * c_daily_rate.
|
|
ENDMETHOD.
|
|
|
|
METHOD express_surcharge.
|
|
DATA(lv_amount) = CONV ty_exact( iv_base ) * c_express_percent / 100.
|
|
rv_surcharge = round( val = lv_amount dec = 2 mode = 'CEILING' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD long_hire_discount.
|
|
DATA(lv_amount) = CONV ty_exact( iv_base ) * c_discount_percent / 100.
|
|
rv_discount = round( val = lv_amount dec = 2 mode = 'HALF_UP' ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|