23 lines
1020 B
Plaintext
23 lines
1020 B
Plaintext
@AccessControl.authorizationCheck: #NOT_REQUIRED
|
|
@EndUserText.label: 'Berth fee'
|
|
define view entity {{P}}I_BERTH_FEE
|
|
as select from {{p}}berth as berth
|
|
left outer join {{p}}pier as pier on pier.pier_code = berth.pier_code
|
|
{
|
|
key berth.berth_id as berth_id,
|
|
berth.boat_name as boat_name,
|
|
case
|
|
when berth.length_m < 8 then 'SMALL'
|
|
when berth.length_m <= 15 then 'MEDIUM'
|
|
else 'LARGE'
|
|
end as size_class,
|
|
cast( berth.length_m * 100 as abap.int4 ) as length_cm,
|
|
cast( round( ( pier.base_fee + berth.length_m * pier.rate_per_m
|
|
+ case when berth.shore_power = 'Y'
|
|
then pier.power_fee
|
|
else cast( 0 as abap.dec( 10, 2 ) )
|
|
end )
|
|
* berth.stay_days, 2 )
|
|
as abap.dec( 15, 2 ) ) as total_fee
|
|
}
|