I_Relstratclass

@AbapCatalog.sqlViewName: 'IRELCLASS'
@AbapCatalog.compiler.compareFilter: true
@ObjectModel.compositionRoot: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Manage Class Basic View'
@ObjectModel.createEnabled: true
@ObjectModel.deleteEnabled: true
@ObjectModel.updateEnabled: true
@VDM.viewType: #BASIC

@ObjectModel.usageType.serviceQuality:#B
@ObjectModel.usageType.sizeCategory:#M
@ObjectModel.usageType.dataClass:#MASTER
@ClientHandling.algorithm: #SESSION_VARIABLE
@Metadata.ignorePropagatedAnnotations:true
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API


define view I_Relstratclass
 as select from klah
  association [0..*] to I_Relstartcharinclass as _Relstartcharinclass on $projection.InternalClassNumber = _Relstartcharinclass.InternalClassNumber
  association [1..*] to I_Relclassdescription as _Text                on $projection.InternalClassNumber = _Text.InternalClassNumber                                                                     

{
  key clint                   as InternalClassNumber,
      class                   as ClassNumber,
      statu                   as OriginalStatusText,
      vondt                   as ValidityStartDate,
      bisdt                   as ValidityEndDate,
      //vondt                   as ValidFrom,

      //bisdt                   as ValidTo,

      aname                   as CreatedByUser,
      vname                   as LastChangedByUser,
      klart                   as ClassTypeName,
      klah.bgrkp              as RelStrgyClAuthorizationGroup,
     // klah.bgrkp              as AuthorizationGroup,

      _Text.ClassDescription  as ClassDescription,      

      @ObjectModel.association.type:  [ #TO_COMPOSITION_CHILD ]
      _Relstartcharinclass,
      _Text      
}
where
  klart = '032' and class <> 'R2R_CL_REL_CEKKO'