@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Berth fee'
define view entity {{P}}I_BERTH_FEE
  as select from {{p}}berth as berth
    inner 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 <= 16 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
}