R_WBSElementTP

@AbapCatalog.sqlViewName: 'RWBSELEMENTP'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'TP view for WBSElement for Project API'
@VDM.viewType: #TRANSACTIONAL
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API
@ClientHandling.algorithm: #SESSION_VARIABLE


@ObjectModel.usageType: {
    sizeCategory: #L,
    dataClass:  #TRANSACTIONAL,
    serviceQuality: #C
}

define view R_WBSElementTP as select from I_WBSElementData_2
 association to parent R_ProjectTP as _Project on $projection.ProjectInternalID = _Project.ProjectInternalID
// DPP Changes

  // Person in Responsible for Project

 association [0..1] to I_ProjectResponsiblePerson   as _ResponsiblePerson          on  $projection.ResponsiblePerson = _ResponsiblePerson.ResponsiblePerson
  // Project Applicant

 association [0..1] to I_ProjectApplicant           as _ProjectApplicant           on  $projection.ApplicantCode = _ProjectApplicant.ApplicantCode

 association [0..1] to I_WBSElementShortText             as _WBSElementShortText             on $projection.WBSElementObject = _WBSElementShortText.WBSElementObject
                                                                                       and _WBSElementShortText.Language = $session.system_language

 association [0..1] to I_WBSElementHierarchyData    as _WBSElementHierarchyData    on  $projection.WBSElementInternalID = _WBSElementHierarchyData.WBSElementInternalID
 ---Extension Association
 association [1..1] to E_WBSElement_2 as _Extension on $projection.WBSElementInternalID = _Extension.WBSElementInternalID
{
   //I_WBSELEMENTDATA

    key WBSElementInternalID,
    @ObjectModel.text.element: 'WBSDescription'
    case WBSElementExternalID
    when ''
    then cast( WBSElement as ps_posid_edit preserving type )
    else WBSElementExternalID
    end as WBSElementExternalID,
    WBSElementShortID,
    @Semantics.text: true
    WBSDescription,
    @Semantics.text: true
    I_WBSElementData_2._WBSElementShortText.LanguageBasedShortText as WBSElementLangBsdDescription,
    //_WBSElementShortText.WBSElementLangBsdDescription,

    ResponsiblePerson,
    ResponsiblePersonName,
    ApplicantCode,
    ApplicantName,
    cast( CompanyCode as bukrs preserving type ) as CompanyCode,
    BusinessArea,
    cast( ControllingArea as ps_s4_kokrs preserving type ) as ControllingArea,
    FunctionalArea,
    ProfitCenter,
    ResponsibleCostCenter,
    Plant,
    FreeDefinedTableFieldSemantic,
    FactoryCalendar,
    PriorityCode,
    Currency,
    CostingSheet,
    CostCenter,
    RequestingCostCenter,
    ProjectInternalID,
    WBSElementIsBillingElement,
    WBSElementObject,
    InvestmentProfile,
    WBSIsStatisticalWBSElement,
    WBSIsAccountAssignmentElement,
    ProjectType,
    WBSElementIsPlanningElement,
    WorkCenterLocation,
    ResultAnalysisInternalID,
    TaxJurisdiction,
    cast( FunctionalLocation as tplnr_unconverted preserving type ) as FunctionalLocation,
    CreatedByUser,
    CreationDate,
    LastChangedByUser,
    LastChangeDate,
    RespCostCenterControllingArea,
    WBSIsMarkedForIntegratedPlng,
    Equipment,
    ProjectObjectChangeNumber,
    WBSElementHierarchyLevel,
    OverheadCode,
    ReferenceElement,
    ProjInterestCalcProfile,
    ProgressAnlysAggregationWeight,
    ReqgCostCenterControllingArea,
    Language,
    IsMarkedForDeletion,
    WBSElementIsGroupingWBSElement,
    WBSElementIsUsedInProjSmmry,
    CostingVariant,
    BasicStartDate,
    ForecastedStartDate,
    ActualStartDate,
    BasicEndDate,
    ForecastedEndDate,
    ActualEndDate,
    BasicDuration,
    BasicDurationUnit,
    ForecastedDuration,
    ForecastedDurationUnit,
    ActualDuration,
    ActualDurationUnit,
    SchedldBasicEarliestStartDate,
    ScheduledBasicLatestEndDate,
    SchedldFcstdEarliestStartDate,
    LatestSchedldFcstdEndDate,
    TentativeActualStartDate,
    TentativeActualEndDate,
    JointVenture,
    JointVentureCostRecoveryCode,
    JointVentureEquityType,
    JntVntrProjectType,
    JntIntrstBillgClass,
    JntIntrstBillgSubClass,
    SubProject,
    InvestmentReason,
    InvestmentScale,
    EnvironmentalInvestmentReason,
    RequestingCompanyCode,
    NetworkAssignmentType,
    CostObject,
    BillingPlan,
    ControllingObjectClass,

    _WBSElementHierarchyData.WBSElementParentInternalID,
    _WBSElementHierarchyData.WBSElementChildInternalID,
    _WBSElementHierarchyData.LeftSiblingWBSElmntInternalID,
    _WBSElementHierarchyData.RightSiblingWBSElmntInternalID,

    FreeDefinedAttribute01,
    FreeDefinedAttribute02,
    FreeDefinedAttribute03,
    FreeDefinedAttribute04,

    FreeDefinedQuantity1,
    FreeDefinedQuantity1Unit,

    FreeDefinedQuantity2,
    FreeDefinedQuantity2Unit,

    FreeDefinedAmount1,
    FreeDefinedAmount1Currency,

    FreeDefinedAmount2,
    FreeDefinedAmount2Currency,
    FreeDefinedDate1,
    FreeDefinedDate2,
    FreeDefinedIndicator1,
    FreeDefinedIndicator2,
    /* Associations */
    _Project,
    _ResponsiblePerson,
    _ProjectApplicant
}
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_PROJECTOBJECTSHORTTEXT",
"I_WBSELEMENTDATA_2",
"I_WBSELEMENTHIERARCHYDATA"
],
"ASSOCIATED":
[
"E_WBSELEMENT_2",
"I_PROJECTAPPLICANT",
"I_PROJECTRESPONSIBLEPERSON",
"I_WBSELEMENTHIERARCHYDATA",
"I_WBSELEMENTSHORTTEXT",
"R_PROJECTTP"
],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/