I_PPM_MostCriticalProject

@EndUserText.label: 'My Projects - Critical'
@VDM.viewType: #COMPOSITE
@AbapCatalog.sqlViewName: 'IPPMMOSTCRITPRO'
@AbapCatalog.compiler.compareFilter: true

@ObjectModel.usageType.serviceQuality: #X
// size L because of underlying data to be searched

@ObjectModel.usageType.sizeCategory:  #L
@ObjectModel.usageType.dataClass:  #MIXED

@ClientHandling.algorithm: #SESSION_VARIABLE

@AccessControl.authorizationCheck: #PRIVILEGED_ONLY
@AccessControl.personalData.blocking: #NOT_REQUIRED

@ObjectModel.semanticKey:  [ 'Project' ]
@ObjectModel.representativeKey: 'ProjectUUID'
@ObjectModel.alternativeKey: [{
    id: 'ProjectSummaryTaskUUID',
    element: ['ProjectSummaryTaskUUID'],
    uniqueness: #UNIQUE
}]

@Metadata.allowExtensions: true
@VDM.lifecycle.contract.type:  #SAP_INTERNAL_API

define view I_PPM_MostCriticalProject as select from I_PPM_ProjectSummaryTask as Project

    // retrieve portfolio info

    left outer join I_PPM_ItemInfo as Item
                    on ( Project.ProjectUUID = Item.ProjectUUID )

    // retrieve Milestone info

    left outer join I_PPM_ProjectMilestEssent as milestEssent
                    on ( Project.ProjectUUID = milestEssent.ProjectUUID )
    left outer join I_PPM_Task as MilestEssentTask
                    on ( MilestEssentTask.TaskUUID = milestEssent.TaskUUID )

    // Retrieve current phase

//    left outer join I_PPM_ProjectPhaseCurrent as PhaseCurrent

//                    on ( Project.ProjectUUID = PhaseCurrent.ProjectUUID )


//    left outer join I_PPM_Task as PhaseCurrentTask

//                    on ( PhaseCurrentTask.TaskUUID = PhaseCurrent.TaskUUID )

//    left outer join I_PPM_Text as PhaseCurrentTextUserLang

//                    on ( PhaseCurrentTextUserLang.LanguageCode = $session.system_language )

//                   and ( PhaseCurrentTextUserLang.ReferencedObjectUUID = PhaseCurrent.TaskUUID )


//    left outer join I_PPM_Text as PhaseCurrentTextMasterLang

//                    on (PhaseCurrentTextMasterLang.LanguageCode = Project.MasterLanguage )

//                   and ( PhaseCurrentTextMasterLang.ReferencedObjectUUID = PhaseCurrent.TaskUUID )


    // Severity

    left outer join I_PPM_ObjectSeverity as Severity
                    on ( Project.ProjectSummaryTaskUUID = Severity.ReferencedObjectUUID )

    left outer join I_PPM_Text as NameUserLanguage
                 on ( NameUserLanguage.LanguageCode = $session.system_language )
                and ( NameUserLanguage.ReferencedObjectUUID = Project.ProjectSummaryTaskUUID )

     // My Project Indicator

    left outer join I_PPM_IsMyProject as IsMyProject
                    on Project.ProjectUUID = IsMyProject.ProjectUUID

    // My Project as Substitute Indicator

    left outer join I_PPM_IsMyProjectAsSubstitute as IsMyProjectAsSubstitute
                    on Project.ProjectUUID = IsMyProjectAsSubstitute.ProjectUUID

    left outer join I_EPPMGlobalSetting as _GlobalSetting on _GlobalSetting.EPPMUsageArea = '0007' and _GlobalSetting.EPPMGlobalSettingsCode = '0053'

    association [0..1] to I_PPM_ProjectPhaseCurrent as _ProjectPhaseCurrent
                      on $projection.ProjectUUID      = _ProjectPhaseCurrent.ProjectUUID

{
    @Consumption.semanticObject: 'EnterpriseProject'
    key Project.ProjectUUID,

    Project.ProjectSummaryTaskUUID,

    // fields only used by navigation

    Item.PortfolioItemUUID,
    Item.PortfolioUUID,

    Project.ProjectProcessingStatus,

    NameUserLanguage.ObjectName as ProjectNameUserLanguage,

    ProjectName as ProjectNameMasterLanguage,

    @EndUserText: { label: 'Project name', quickInfo: 'Project name' }

    cast( case
           when NameUserLanguage.ObjectName > '' then
                NameUserLanguage.ObjectName
           else ProjectName
    end as /s4ppm/tv_project_name preserving type ) as ProjectName,

    Project,

    ProjectType,

//    ProjectTypeName,


//    cast( case

//           when PhaseCurrentTextUserLang.ObjectName > '' then

//                PhaseCurrentTextUserLang.ObjectName

//           else PhaseCurrentTask.TaskName

//           end

//    as /s4ppm/tv_description preserving type ) as CurrentPhaseName,

//

//    PhaseCurrentTextUserLang.ObjectName as CurrentPhaseNameUserLanguage,

//

//// replaced by primary DB fallback in 1911

////    PhaseCurrentTextMasterLang.ObjectName as CurrentPhaseNameMasterLanguage,

//    PhaseCurrentTask.TaskName as CurrentPhaseNameMasterLanguage,

//

//    @Semantics.businessDate.to: true

////

//    PhaseCurrentTask.LatestFinishDate as CurrentPhaseEndDate,


    @Semantics.businessDate.at: true
// r

      MilestEssentTask.LatestFinishDate as LaunchDate,

    // criticality

    Severity.CriticalityCode,

    // Severtiy

    // @ObjectModel.foreignKey.association: '_SeverityText' // only on UI layer to avoid ATC errors

    @ObjectModel.text.association: '_SeverityText'
    Severity.Severity,
    Severity._SeverityText,

    _GlobalSetting.EPPMSettingsDefaultValue,

    _ProjectPhaseCurrent,

    Project._AuthUser,
    Project._AuthSubst,
    Project._AuthRole,
    Project._AuthGroup

} where (
// All active Status: Partially Released, Released, Released (Processing has begun), Locked, Locked (Released First)

 ProjectProcessingStatus between '10' and '21'
        ) and Project.ProjectVersionNumber = '' // active projects do not have a version!

        and ( IsMyProject.IsMyProject = 'X' // only show 'My' or MeAsSubstitute

            or IsMyProjectAsSubstitute.IsMyProject = 'X' )