ABAP Cloud Environment

1" CDS Entity — Business Partner extension
2@AccessControl.authorizationCheck: #CHECK
3@EndUserText.label: 'Enhanced Business Partner'
4define root view entity ZDEWA_I_BUSPARTNER
5  as select from I_BusinessPartner
6{
7  key BusinessPartner,
8      BusinessPartnerFullName,
9      BusinessPartnerIsBlocked,
10      " Virtual element for calculated field
11      @ObjectModel.virtualElement: true
12      @ObjectModel.virtualElementCalculatedBy: 'ABAP:ZDEWA_BP_CALC'
13      cast( '' as dewa_partner_tier ) as PartnerTier,
14      CreatedByUser,
15      CreationDate
16}
17
18" RAP Behavior Definition
19managed implementation in class zbp_dewa_buspartner unique;
20strict;
21
22define behavior for ZDEWA_I_BUSPARTNER alias BusinessPartner
23persistent table zdewa_bp_ext
24lock master
25authorization master ( instance )
26{
27  create;
28  update;
29  delete;
30  field ( readonly ) BusinessPartner;
31
32  action updateTier result [1] $self;
33
34  mapping for zdewa_bp_ext
35  {
36    BusinessPartner = business_partner;
37    PartnerTier = partner_tier;
38  }
39}