P_ProjSettlmtRuleProjBasicData

@AbapCatalog.viewEnhancementCategory: [#NONE]
@AccessControl.authorizationCheck: #NOT_REQUIRED 
@EndUserText.label: 'Settlement Rule for Project'
@Metadata.ignorePropagatedAnnotations: true
@ObjectModel.usageType:{
  serviceQuality: #X,
  sizeCategory: #S,
  dataClass: #MIXED
}

@VDM: {
  viewType: #COMPOSITE,
  private: true
}

define view entity P_ProjSettlmtRuleProjBasicData as
select from I_WBSElementBasicData
  left outer to one join I_ProjectBasicData on  I_ProjectBasicData.Project = I_WBSElementBasicData.WBSElement
                                            and I_ProjectBasicData.ProjectExternalID = I_WBSElementBasicData.WBSElementExternalID

  association [0..1] to I_WBSElementData_2 as _WBSElementData on _WBSElementData.WBSElementInternalID = $projection.WBSElementInternalID

// WBS Element 

{
  key I_WBSElementBasicData.WBSElementObject as ControllingObject,
   'PR' as ControllingObjectType,
    cast(I_WBSElementBasicData.WBSElementExternalID as fco_psr_object_name) as ControllingObjectExternalID,  
    I_WBSElementBasicData.WBSDescription as ControllingObjectDescription,
    I_WBSElementBasicData._Project.ProjectProfileCode,
    I_WBSElementBasicData.CompanyCode,
    I_WBSElementBasicData.ControllingArea,
    I_WBSElementBasicData.ProfitCenter,
    I_WBSElementBasicData.WBSElementIsBillingElement,
    I_WBSElementBasicData.WBSIsAccountAssignmentElement,
    _WBSElementData.WBSElementIsPlanningElement,
    _WBSElementData.WBSIsStatisticalWBSElement,
    I_WBSElementBasicData.CostCenter as ActualPostedCostCenter,
    I_WBSElementBasicData.ResponsibleCostCenter,
    I_WBSElementBasicData.Plant,
    I_WBSElementBasicData.ProjectType,
    I_WBSElementBasicData.CreatedByUser as SenderCreatedByUser,   
    I_WBSElementBasicData.CreationDate as SenderCreationDate,
    I_WBSElementBasicData.LastChangedByUser as SenderLastChangedByUser,
    I_WBSElementBasicData.LastChangeDate as SenderLastChangedDate,
    I_WBSElementBasicData.EntProjIsSettlmtRuleInherited,
    I_WBSElementBasicData.WBSElementInternalID,
    I_ProjectBasicData.ProjectInternalID,
    I_ProjectBasicData.FunctionalArea,
    I_ProjectBasicData.ProjectCurrency,
    I_ProjectBasicData.PlannedStartDate,
    I_ProjectBasicData.PlannedEndDate,
    I_WBSElementBasicData.WBSDescription,
    I_WBSElementBasicData.WBSElementExternalID,
    _WBSElementData._Project.ProjectDescription,
    _WBSElementData._Project.ProjectExternalID
} where I_ProjectBasicData.ProjectInternalID is null
    and (
      I_WBSElementBasicData._Project.ProjectProfileCode = 'YP02'
      or I_WBSElementBasicData._Project.ProjectProfileCode = 'YP03'
      or I_WBSElementBasicData._Project.ProjectProfileCode = 'YP05'
    )

union

select from I_WBSElementBasicData
  inner join I_ProjectBasicData on I_ProjectBasicData.Project = I_WBSElementBasicData.WBSElement
                                and I_ProjectBasicData.ProjectExternalID = I_WBSElementBasicData.WBSElementExternalID

  association [0..1] to I_WBSElementData_2 as _WBSElementData on _WBSElementData.WBSElementInternalID = $projection.WBSElementInternalID
  association [1] to I_ProjectData_2 as _ProjectData on _ProjectData.ProjectInternalID = $projection.ProjectInternalID
                                  
// PROJECT                                      

{
  key I_WBSElementBasicData.WBSElementObject as ControllingObject,
   'PD' as ControllingObjectType,
    cast(I_WBSElementBasicData.WBSElementExternalID as fco_psr_object_name) as ControllingObjectExternalID,
    I_ProjectBasicData.ProjectDescription as ControllingObjectDescription,
    I_ProjectBasicData.ProjectProfileCode,
    I_ProjectBasicData.CompanyCode,       
    I_ProjectBasicData.ControllingArea,
    I_ProjectBasicData.ProfitCenter,
    I_WBSElementBasicData.WBSElementIsBillingElement,
    I_WBSElementBasicData.WBSIsAccountAssignmentElement,
    _WBSElementData.WBSElementIsPlanningElement,
    _WBSElementData.WBSIsStatisticalWBSElement,
    I_WBSElementBasicData.CostCenter as ActualPostedCostCenter,
    I_WBSElementBasicData.ResponsibleCostCenter,
    I_ProjectBasicData.Plant,
    I_WBSElementBasicData.ProjectType,
    _ProjectData.CreatedByUser as SenderCreatedByUser,   
    _ProjectData.CreationDate as SenderCreationDate,
    _ProjectData.LastChangedByUser as SenderLastChangedByUser,
    _ProjectData.LastChangeDate as SenderLastChangedDate,
    I_WBSElementBasicData.EntProjIsSettlmtRuleInherited,
    I_WBSElementBasicData.WBSElementInternalID,
    I_ProjectBasicData.ProjectInternalID,
    I_ProjectBasicData.FunctionalArea,
    I_ProjectBasicData.ProjectCurrency,
    I_ProjectBasicData.PlannedStartDate,
    I_ProjectBasicData.PlannedEndDate,
    cast('' as ps_s4_post1) as WBSDescription,
    cast('' as ps_posid_edit) as WBSElementExternalID,
    _WBSElementData._Project.ProjectDescription,
    I_ProjectBasicData.ProjectExternalID
} where
  I_WBSElementBasicData.WBSIsStatisticalWBSElement <> 'X' 
    and (
        I_ProjectBasicData.ProjectProfileCode = 'YP02'
        or I_ProjectBasicData.ProjectProfileCode = 'YP03'
        or I_ProjectBasicData.ProjectProfileCode = 'YP05'
      )