I_ProjectResultAnalysisData

@AbapCatalog.sqlViewName: 'IPROJ_RA_DATA'
@AbapCatalog.compiler.compareFilter: true
@VDM.viewType: #BASIC
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Result Analysis Data for Projects'
@ClientHandling.algorithm: #SESSION_VARIABLE
@ObjectModel.usageType.serviceQuality: #D
@ObjectModel.usageType.sizeCategory: #L
@ObjectModel.usageType.dataClass: #MIXED

//Used by view  C_ProjectUnbilledRevenue and C_Project_All_UnbilledRevenue

//Selects from prps, proj, cosb, tka01, t001 and cokey


define view I_ProjectResultAnalysisData
  as

  select
    a.pspnr                                                 as WBSElementInternalID,
    a.posid                                                 as WBSElement,
    a.post1                                                 as WBSDescription,
    b.pspnr                                                 as ProjectInternalID,
    b.pspid                                                 as Project,
    b.post1                                                 as ProjectDescription,
    a.pbukr                                                 as CompanyCode,
    a.pgsbr                                                 as BusinessArea,
    a.pkokr                                                 as ControllingArea,
    a.prctr                                                 as ProfitCenter,
    a.abgsl                                                 as ResultAnalysisInternalID,
    a.werks                                                 as Plant,
    cast ( a.scope as scope preserving type )               as ControllingObjectClass,
    a.func_area                                             as FunctionalArea,
    d.pernr                                                 as PersonnelNumber,
    c.kstar                                                 as CostElement,
    c.gjahr                                                 as FiscalYear,
    f.waers                                                 as CompanyCodeCurrency,
    c.versn                                                 as ResultAnalysisVersion,
    cast ( c.abkat as abkat_no_conv preserving type )       as VarianceResultsAnlysCategory,
    case when e.xwbuk = ' ' then c.wkg001 else c.wog001 end as Period01AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg002 else c.wog002 end as Period02AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg003 else c.wog003 end as Period03AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg004 else c.wog004 end as Period04AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg005 else c.wog005 end as Period05AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg006 else c.wog006 end as Period06AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg007 else c.wog007 end as Period07AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg008 else c.wog008 end as Period08AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg009 else c.wog009 end as Period09AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg010 else c.wog010 end as Period10AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg011 else c.wog011 end as Period11AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg012 else c.wog012 end as Period12AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg013 else c.wog013 end as Period13AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg014 else c.wog014 end as Period14AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg015 else c.wog015 end as Period15AmountInCoCodeCrcy,
    case when e.xwbuk = ' ' then c.wkg016 else c.wog016 end as Period16AmountInCoCodeCrcy
  from              prps  as a
    inner join      proj  as b on  a.mandt = b.mandt
                               and a.psphi = b.pspnr
    inner join      cosb  as c on  a.mandt = c.mandt
                               and a.objnr = c.objnr
    inner join      tka01 as e on  a.mandt = e.mandt
                               and a.pkokr = e.kokrs
    inner join      t001  as f on  a.mandt = e.mandt
                               and a.pbukr = f.bukrs
    left outer join cokey as d on  a.mandt = d.mandt
                               and c.hrkft = d.hrkft
  where
    c.wrttp = '32';