I_REObjectAssgmtIdnAddl

@AbapCatalog.sqlViewName: 'IREOBJASSGMTIDN'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED //#CHECK


@ClientHandling.algorithm: #SESSION_VARIABLE
@VDM.viewType : #COMPOSITE // BASIC

@Metadata.ignorePropagatedAnnotations: true

@AccessControl.personalData.blocking: #NOT_REQUIRED

@ObjectModel: {
//  representativeKey: 'RETermNumber',

  semanticKey: ['REStatusObjectSource', 'REObjectAssignmentType', 'REStatusObjectTarget', 'InternalRealEstateNumber' ],
  usageType.serviceQuality: #D,
  usageType.sizeCategory: #XL,
  usageType.dataClass: #MIXED
}
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API

@EndUserText.label: 'RE Obj Assgmt Identification Addl'
define view I_REObjectAssgmtIdnAddl as select from I_REObjectAssgmtHier {

  key       REStatusObjectSource,
  key       REObjectAssignmentType,
            @ObjectModel.text.element: ['REIdentification']
  key       REStatusObjectTarget,
  key       cast( concat( ValidityStartDate, ValidityEndDate ) as recadateperiod ) as ValidityStartEndDateValue,
      // new for TP composition purpose

  key       InternalRealEstateNumber,
  
            case REObjectTypeTarget
                when 'J4'
                  then  cast(
                        concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        _REContractSubject.REContractSubjectNumber,1 ) as recaident)
                  when 'IL'
                  then  cast(
                        concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        _REObjectGroup.REGroupNumber,1 ) as recaident)
                  when 'KS'
                  then  cast(
                        concat(concat(concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        SUBSTRING( REStatusObjectTarget, 3, 4),1 ),
                        '/'),
                        SUBSTRING( REStatusObjectTarget, 7, 10))
                        as recaident )
                  when 'OR'
                  then  cast(
                        concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        LTRIM(SUBSTRING( REStatusObjectTarget, 3, 12), '0'), 1)
                        as recaident  )
                  when 'PR'
                  then cast(concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                                _WBSElement.WBSElementExternalID, 1)
                                 as recaident )
//                  when 'IE'

//                  then  cast(

//                        concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,

//                        _TechnicalObject.TechnicalObjectLabel,1 ) as recaident)

//                  when 'IF'

//                  then  cast(

//                        concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,

//                        _TechnicalObject.TechnicalObjectLabel,1 ) as recaident)

                  when 'AN'
                  then  cast(
                        concat(concat(concat(concat(concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        SUBSTRING( REStatusObjectTarget, 3, 4),1 ),
                        '/'),
                        SUBSTRING( REStatusObjectTarget, 7, 12)),
                        '/'),
                        SUBSTRING( REStatusObjectTarget, 19, 4))
                        as recaident )
                  when 'OU'
                  then  cast(
                        concat(concat(concat(concat(concat_with_space(_REObjectTypeTargetText[1: Language = $session.system_language ].REObjectTypePrefix,
                        SUBSTRING( REStatusObjectTarget, 3, 2),1 ),
                        '/'),
                        SUBSTRING( REStatusObjectTarget, 5, 2)),
                        '/'),
                        SUBSTRING( REStatusObjectTarget, 7, 12))
                        as recaident )
                  else _REObjectTypeDetails.REIdentification
                end                                                                 as REIdentification  
}