26 lines
806 B
ABAP
26 lines
806 B
ABAP
INTERFACE {{p}}if_tent_hire PUBLIC.
|
|
TYPES ty_amount TYPE p LENGTH 15 DECIMALS 2.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_rate_s,
|
|
rate_day TYPE ty_amount VALUE '45.00',
|
|
setup_fee TYPE ty_amount VALUE '30.00',
|
|
END OF c_rate_s,
|
|
BEGIN OF c_rate_m,
|
|
rate_day TYPE ty_amount VALUE '68.00',
|
|
setup_fee TYPE ty_amount VALUE '40.00',
|
|
END OF c_rate_m,
|
|
BEGIN OF c_rate_l,
|
|
rate_day TYPE ty_amount VALUE '95.00',
|
|
setup_fee TYPE ty_amount VALUE '55.00',
|
|
END OF c_rate_l,
|
|
c_vat TYPE ty_amount VALUE '0.19',
|
|
c_discount TYPE ty_amount VALUE '0.10',
|
|
c_long_rental_days TYPE i VALUE 5.
|
|
|
|
METHODS calculate_fee
|
|
IMPORTING iv_tent_size TYPE string
|
|
iv_days TYPE i
|
|
RETURNING VALUE(rv_fee) TYPE ty_amount.
|
|
ENDINTERFACE.
|