P_WorkPackageList

@VDM.private: true
@VDM.viewType: #COMPOSITE
@AbapCatalog.sqlViewName: 'PWORKPACKAGELIST'
@AccessControl.authorizationCheck: #NOT_REQUIRED
@ClientHandling.algorithm: #SESSION_VARIABLE
@AbapCatalog.compiler.compareFilter:true

// This CDS view projects the list of WorkPackages from CPM and PPM projects


define view P_WorkPackageList
  as select distinct from  I_WorkPackage                 as WorkPackage
    inner join             I_EngagementProjFinancialPlan as FinancialPlan             on FinancialPlan.EngagementProjFinPlanUUID = WorkPackage.EngagementProjFinPlanUUID
    left outer to one join I_EngmntProjectSupplyData     as EngagementProjectSupplyData on  EngagementProjectSupplyData.WorkPackage          =  WorkPackage.WorkPackage
                                                                                   
  association [1] to I_EngagementProject as _EngagementProject on _EngagementProject.EngagementProjectUUID = FinancialPlan.EngagementProjectUUID
{
  _EngagementProject.EngagementProject           as Project,
  _EngagementProject.EngagementProjectType       as EngagementProjectType,
  _EngagementProject.EngagementProjectServiceOrg as EngagementProjectServiceOrg,
  _EngagementProject.EngagementProjectCategory   as EngagementProjectCategory,
  _EngagementProject.ControllingArea             as ControllingArea,
  _EngagementProject.ProfitCenter                as ProfitCenter,
  hextobin('00000000000000000000000000000000')   as ProjectElementUUID,
  WorkPackage.WorkPackage                        as WorkPackage,
  WorkPackage.WorkPackageName                    as WorkPackageName,
  WorkPackage._WBSElement.WBSElementInternalID   as WBSElementInternalID,
  WorkPackage.WorkPackageStartDate               as WorkPackageStartDate,
  WorkPackage.WorkPackageEndDate                 as WorkPackageEndDate,
  _EngagementProject.CompanyCode                 as CompanyCode,
  cast('          ' as kostlv preserving type )          as ResponsibleCostCenter,
  cast('    ' as werks_d preserving type )               as Plant,
  cast('       ' as profidproj preserving type )         as ProjectProfileCode,
  cast('  ' as ps_prart preserving type )                as EnterpriseProjectType,
  cast('                ' as fm_farea preserving type )  as FunctionalArea,
  EngagementProjectSupplyData.EmploymentInternalID as EmploymentInternalID,
  _EngagementProject.RestrictedTimePosting       as TimePostingIsRestricted
}
where
  _EngagementProject.EngagementProjectStage = 'P003' // In Execution


union

select from  I_EnterpriseProjectElement as WorkPackage
  inner join I_EnterpriseProject as EnterpriseProject on WorkPackage.ProjectUUID = EnterpriseProject.ProjectUUID
{
  EnterpriseProject.Project                                 as Project,
  cast('    ' as /cpd/eng_mp_type preserving type )         as EngagementProjectType,
  cast('     ' as /cpd/pws_ws_org_unit_id preserving type ) as EngagementProjectServiceOrg,
  cast('' as /cpd/eng_proj_type preserving type )           as EngagementProjectCategory,
  WorkPackage.ControllingArea                               as ControllingArea,
  WorkPackage.ProfitCenter                                  as ProfitCenter,
  WorkPackage.ProjectElementUUID                            as ProjectElementUUID,
  WorkPackage.ProjectElement                                as WorkPackage,
  WorkPackage.ProjectElementDescription                     as WorkPackageName,
  WorkPackage.WBSElementInternalID                          as WBSElementInternalID,
  WorkPackage.PlannedStartDate                              as WorkPackageStartDate,
  WorkPackage.PlannedEndDate                                as WorkPackageEndDate,
  EnterpriseProject.CompanyCode                             as CompanyCode,
  EnterpriseProject.ResponsibleCostCenter                   as ResponsibleCostCenter,
  EnterpriseProject.Plant                                   as Plant,
  EnterpriseProject.ProjectProfileCode                      as ProjectProfileCode,
  EnterpriseProject.EnterpriseProjectType                   as EnterpriseProjectType,
  EnterpriseProject.FunctionalArea                          as FunctionalArea,
  cast('00000000' as hrobjid preserving type )              as EmploymentInternalID,
  cast('' as /cpd/restrict_time_posting preserving type )   as TimePostingIsRestricted
}
where
  WorkPackage.ProcessingStatus = '10' and // Released

  // Filter PPM projects (To avoid duplicates in case in future CPM and PPM projects are merged)

  EnterpriseProject.ProjectProfileCode = 'YP02' and
  EnterpriseProject.ProjectProfileCode = 'YP03' and 
  EnterpriseProject.ProjectProfileCode = 'YP04' and 
  EnterpriseProject.ProjectProfileCode = 'YP05'