R_REUseEnableLdngObjAssgmtTP

//@AbapCatalog.sqlViewName: 'RREUSELCOASSTP'

//@AbapCatalog.compiler.compareFilter: true

//@AbapCatalog.preserveKey: true

@AccessControl.authorizationCheck: #CHECK
@AccessControl.personalData.blocking: #BLOCKED_DATA_EXCLUDED

@VDM.viewType: #TRANSACTIONAL
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API
@VDM.usage.type: [ #TRANSACTIONAL_PROCESSING_SERVICE ]

@ObjectModel.representativeKey: 'REStatusObjectTarget'
@ObjectModel.semanticKey: ['REStatusObjectTarget', 'ValidityStartEndDateValue' ]
@ObjectModel.usageType.dataClass: #MASTER
@ObjectModel.usageType.serviceQuality: #C
@ObjectModel.usageType.sizeCategory: #L

@EndUserText.label: 'IntegrationObject Object Assignment TP'
//@ClientHandling.algorithm: #SESSION_VARIABLE

define view entity R_REUseEnableLdngObjAssgmtTP
//  as select from I_REObjectAssgmtHier as _REObjectAssgmt

  as select from I_REIntegObjectObjectAssgmt as _REObjectAssgmt
  association        to parent R_REIntegrationObjectTP as _REIntegrationObjectTP  on  $projection.InternalRealEstateNumber = _REIntegrationObjectTP.InternalRealEstateNumber
//  association [0..1] to I_REAccountingObject           as _REAccountingObject     on  $projection.REStatusObjectTarget = _REAccountingObject.REAccountingObject

  association [1..1] to I_REEntryValidity              as _REEntryValidity        on  $projection.REEntryValidity = _REEntryValidity.REEntryValidity
  association [1..1] to I_REObjectAssgmtHierAddl       as _REObjectAssgmtHierAddl on  $projection.REObjectAssignmentType    = _REObjectAssgmtHierAddl.REObjectAssignmentType
                                                                                  and $projection.REStatusObjectTarget      = _REObjectAssgmtHierAddl.REStatusObjectTarget
                                                                                  and $projection.REStatusObjectSource      = _REObjectAssgmtHierAddl.REStatusObjectSource
                                                                                  and $projection.InternalRealEstateNumber  = _REObjectAssgmtHierAddl.InternalRealEstateNumber
                                                                                  and $projection.ValidityStartEndDateValue = _REObjectAssgmtHierAddl.ValidityStartEndDateValue
  association [1..*] to I_REObjectTypeText             as _REObjectTypeText       on  _REObjectTypeText.Language               = $session.system_language
                                                                                  and (
                                                                                     _REObjectTypeText.RealEstateObjectType    = 'KS'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'OR'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'PR'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'IW'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'IB'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'IG'
                                                                                     or _REObjectTypeText.RealEstateObjectType = 'IM'
                                                                                   )
  association [0..1] to I_CostCenter                   as _CostCenter             on  $projection.REStatusObjectTarget =  _CostCenter.ObjectInternalID
                                                                                    and $projection.REObjectTypeTarget   =  'KS'
                                                                                    and (
//                                                                                     $projection.ValidityStartDate     <= _CostCenter.ValidityEndDate

//                                                                                     or $projection.ValidityEndDate    >= _CostCenter.ValidityStartDate

                                                                                          _CostCenter.ValidityStartDate            <= $session.system_date
                                                                                      and _CostCenter.ValidityEndDate              >= $session.system_date
                                                                                     )
  association [0..1] to I_WBSElementBasicData          as _WBSElement             on  $projection.REStatusObjectTarget = _WBSElement.WBSElementObject
                                                                                  and $projection.REObjectTypeTarget   = 'PR'
  association [0..1] to I_InternalOrder                as _InternalOrder          on  $projection.REStatusObjectTarget = _InternalOrder.ControllingObject
                                                                                    and $projection.REObjectTypeTarget   = 'OR'
  association [0..1] to I_REObjectTypeDetails          as _REObjectTypeDetails    on $projection.REStatusObjectTarget = _REObjectTypeDetails.REStatusObject
                                                                                    
{
  key InternalRealEstateNumber,
  key REObjectAssignmentType,
  key REStatusObjectTarget,
      //  key ValidityStartDate,

  key cast(concat(ValidityStartDate, ValidityEndDate ) as recadateperiod preserving type ) as ValidityStartEndDateValue,
      REStatusObjectTarget                                                                 as REStatusObjectTargetForEdit,
      @ObjectModel.virtualElement: true
      cast( '' as recaident ) as REIdentification, 
      @ObjectModel.virtualElement: true
      cast( '' as recaidentkey ) as REIdentificationKey, 
      REStatusObjectSource,
      @Semantics.businessDate.from: true
      cast( coalesce(ValidityStartDate, '00000000') as rebdvdmvalidfrom preserving type )  as ValidityStartDate,
      @Semantics.businessDate.to: true
      cast( coalesce(ValidityEndDate, '99991231') as rebdvdmvalidto preserving type )      as ValidityEndDate,
      //      REOnlyInfoAssgmt,

      REStatusObjectSourceIsArchived,
      //      REGenerationType,

      //      REIsMainAsset,

      //      REAssignmentHasMultiple,

      //      REObjectPossessionStartDate,

      //      REObjectPossessionEndDate,


      //      REGroupNumber,

      //      REObjectGroupName,


      REObjectTypeTarget,
      REIsLeadingObject,

      @ObjectModel.foreignKey.association: '_REEntryValidity'
      case
      //           when ValidityStartDate is initial then cast ('0' as recavdmentryvalidity)

          when ValidityStartDate is initial and ValidityEndDate is initial then cast (left('3',1) as recavdmentryvalidity preserving type )
          when ValidityStartDate > $session.system_date then cast (left('2',1) as recavdmentryvalidity preserving type )
          when ValidityStartDate <= $session.system_date and ValidityEndDate >= $session.system_date then cast(left('3',1) as recavdmentryvalidity preserving type )
          else cast (left('1',1) as recavdmentryvalidity preserving type)
      end                                                                                  as REEntryValidity,

      case
      //           when ValidityStartDate is initial then 0

          when ValidityStartDate is initial and ValidityEndDate is initial then 3
          when ValidityStartDate > $session.system_date then 2
          when ValidityStartDate <= $session.system_date and ValidityEndDate >= $session.system_date then 3
      else 1
      end                                                                                  as REEntryValidityCriticality,

//      _REObjectTypeDetails,

      _REObjectTypeTarget,
//

//      _REObjectAssignmentType,

      //      _REGenerationType,


      _REIntegrationObjectTP,

//      _REAccountingObject,

      _CostCenter,
      _WBSElement,
      _InternalOrder,      
      _REEntryValidity,
      _REObjectTypeDetails,
      _REObjectAssgmtHierAddl

}
where
      REObjectAssignmentType                      = 'IO'
  and REIsLeadingObject                           = 'X'