P_ProjectCostObject

@AbapCatalog.sqlViewName: 'PPROJCOSTOBJ'
@ClientHandling.algorithm: #SESSION_VARIABLE
@VDM.private:true
@VDM.viewType: #COMPOSITE
@AccessControl.authorizationCheck: #NOT_REQUIRED
define view P_ProjectCostObject
  as select from I_WBSElement as WBSObject                                                      //SAP Note 3413353

{
  WBSObject.WBSElementInternalID                                      as WBSElementInternalID,
  WBSObject.ProjectInternalID                                         as ProjectInternalID,
  WBSObject.WBSElement                                                as WBSElement,
  WBSObject.WBSDescription                                            as WBSDescription,
  WBSObject.WBSElementObject                                          as WBSElementObject,
  WBSObject.ResponsiblePerson                                         as ResponsiblePerson,
  WBSObject.ResponsiblePersonName                                     as ResponsiblePersonName,
  WBSObject.ApplicantCode                                             as ApplicantCode,
  WBSObject.ApplicantName                                             as ApplicantName,
  WBSObject.CompanyCode                                               as CompanyCode,
  WBSObject.BusinessArea                                              as BusinessArea,
  WBSObject.ControllingArea                                           as ControllingArea,
  WBSObject.ProfitCenter                                              as ProfitCenter,
  WBSObject.ProjectType                                               as ProjectType,
  WBSObject.ReqgCostCenterControllingArea                             as ReqgCostCenterControllingArea,
  WBSObject.RequestingCostCenter                                      as RequestingCostCenter,
  WBSObject.RespCostCenterControllingArea                             as RespCostCenterControllingArea,
  WBSObject.ResponsibleCostCenter                                     as ResponsibleCostCenter,
  WBSObject.PriorityCode                                              as PriorityCode,
  WBSObject.Currency                                                  as Currency,
  WBSObject.Plant                                                     as Plant,
  WBSObject.FreeDefinedAttribute01                                    as FreeDefinedAttribute01,
  WBSObject.FreeDefinedAttribute02                                    as FreeDefinedAttribute02,
  WBSObject.FreeDefinedAttribute03                                    as FreeDefinedAttribute03,
  WBSObject.FreeDefinedAttribute04                                    as FreeDefinedAttribute04,
  WBSObject.FreeDefinedIndicator1                                     as FreeDefinedIndicator1,
  WBSObject.FreeDefinedIndicator2                                     as FreeDefinedIndicator2,
  WBSObject.FunctionalArea                                            as FunctionalArea,
  WBSObject.BasicStartDate                                            as BasicStartDate,
  WBSObject.ActualStartDate                                           as ActualStartDate,
  WBSObject.BasicEndDate                                              as BasicEndDate,
  WBSObject.ActualEndDate                                             as ActualEndDate,
  WBSObject.SchedldBasicEarliestStartDate                             as SchedldBasicEarliestStartDate,
  WBSObject.ScheduledBasicLatestEndDate                               as ScheduledBasicLatestEndDate,
  WBSObject.SchedldBasicLatestStartDate                               as SchedldBasicLatestStartDate,
  WBSObject.SchedldBasicEarliestEndDate                               as SchedldBasicEarliestEndDate,
  WBSObject.ControllingObjectClass                                    as ControllingObjectClass,
  WBSObject.WBSElementHierarchyLevel                                  as WBSElementHierarchyLevel,
  WBSObject._Project.Project                                          as Project,                      //SAP Note 3413353-->

  WBSObject._Project.ProjectDescription                               as ProjectDescription,
  WBSObject._Project.ProjectObject                                    as ProjectObject,
  //WBSObject.ObjectType                                                as ObjectType,

  WBSObject.WBSElementInternalID                                      as ObjectInternalID,
  //WBSObject.Object                                                    as Object,

  //WBSObject.WBSElement                                                as WBSElement,

  //  WBSObject._ObjTypeText[1:Language = $session.system_language].txt60 as ObjectTypeName,

  cast('' as abap.numc( 10 ))                                         as OrderID,
  cast('' as abap.char( 4 ))                                          as NetworkActivity,
  WBSObject.WBSElementObject                                          as ControllingObject,
  WBSObject.WBSDescription                                            as WBSDescription1,
  WBSObject._Project.Currency                                         as ControllingAreaCurrency,
  WBSObject.Currency                                                  as ControllingObjectCurrency,
  cast('WBS' as abap.char(3))                                         as ObjectSource                  //SAP Note 3413353<--

}
union select from P_Orderobject as OrderObject
{
  OrderObject.WBSElementInternalID                                      as WBSElementInternalID,
  OrderObject.ProjectInternalID                                         as ProjectInternalID,
  OrderObject.WBSElement                                                as WBSElement,
  OrderObject.WBSDescription                                            as WBSDescription,
  OrderObject.WBSElementObject                                          as WBSElementObject,
  OrderObject.ResponsiblePerson                                         as ResponsiblePerson,
  OrderObject.ResponsiblePersonName                                     as ResponsiblePersonName,
  OrderObject.ApplicantCode                                             as ApplicantCode,
  OrderObject.ApplicantName                                             as ApplicantName,
  OrderObject.CompanyCode                                               as CompanyCode,
  OrderObject.BusinessArea                                              as BusinessArea,
  OrderObject.ControllingArea                                           as ControllingArea,
  OrderObject.ProfitCenter                                              as ProfitCenter,
  OrderObject.ProjectType                                               as ProjectType,
  OrderObject.ReqgCostCenterControllingArea                             as ReqgCostCenterControllingArea,
  OrderObject.RequestingCostCenter                                      as RequestingCostCenter,
  OrderObject.RespCostCenterControllingArea                             as RespCostCenterControllingArea,
  OrderObject.ResponsibleCostCenter                                     as ResponsibleCostCenter,
  OrderObject.PriorityCode                                              as PriorityCode,
  OrderObject.Currency                                                  as Currency,
  OrderObject.Plant                                                     as Plant,
  OrderObject.FreeDefinedAttribute01                                    as FreeDefinedAttribute01,
  OrderObject.FreeDefinedAttribute02                                    as FreeDefinedAttribute02,
  OrderObject.FreeDefinedAttribute03                                    as FreeDefinedAttribute03,
  OrderObject.FreeDefinedAttribute04                                    as FreeDefinedAttribute04,
  OrderObject.FreeDefinedIndicator1                                     as FreeDefinedIndicator1,
  OrderObject.FreeDefinedIndicator2                                     as FreeDefinedIndicator2,
  OrderObject.FunctionalArea                                            as FunctionalArea,
  OrderObject.BasicStartDate                                            as BasicStartDate,
  OrderObject.ActualStartDate                                           as ActualStartDate,
  OrderObject.BasicEndDate                                              as BasicEndDate,
  OrderObject.ActualEndDate                                             as ActualEndDate,
  OrderObject.SchedldBasicEarliestStartDate                             as SchedldBasicEarliestStartDate,
  OrderObject.ScheduledBasicLatestEndDate                               as ScheduledBasicLatestEndDate,
  OrderObject.SchedldBasicLatestStartDate                               as SchedldBasicLatestStartDate,
  OrderObject.SchedldBasicEarliestEndDate                               as SchedldBasicEarliestEndDate,
  OrderObject.ControllingObjectClass                                    as ControllingObjectClass,
  OrderObject.WBSElementHierarchyLevel                                  as WBSElementHierarchyLevel,
  OrderObject.Project                                                   as Project,
  OrderObject.ProjectDescription                                        as ProjectDescription,
  OrderObject.ProjectObject                                             as ProjectObject,
  //OrderObject.ObjectType                                                as ObjectType,

  /*case when OrderObject.ObjectType = 'NV'
  then (concat(OrderObject.ProjectNetworkInternalID, concat(' &@', OrderObject.NetworkActivityInternalID)))
  else OrderObject.ProjectNetworkInternalID
  end                                                                   as ObjectInternalID,
  cast('' as abap.numc( 8 ))                                            as ObjectInternalID,
  case when OrderObject.ObjectType = 'NV'
  then (concat(OrderObject.OrderID, concat(' &@', OrderObject.NetworkActivity)))
  else OrderObject.OrderID
  end                                                                   as Object,*/
  cast('' as abap.numc( 8 ))                                            as ObjectInternalID,
  OrderObject.OrderID                                                   as OrderID,
  OrderObject.NetworkActivity                                           as NetworkActivity,
  //  OrderObject._ObjTypeText[1:Language = $session.system_language].txt60 as ObjectTypeName,

  OrderObject.NetworkActivityObject                                                     as ControllingObject,
  OrderObject.NetworkActivityDescription                                                     as WBSDescription1,
  OrderObject.ControllingAreaCurrency                                   as ControllingAreaCurrency,
  OrderObject.NetworkActivityCurrency                                   as ControllingObjectCurrency,
  cast('ORO' as abap.char(3))                                           as ObjectSource                //SAP Note 3413353


}
union select from P_OrderCategoryObject as OrderCategory
{
  OrderCategory.WBSElementInternalID                                                                                as WBSElementInternalID,
  OrderCategory.ProjectInternalID                                                                                   as ProjectInternalID,
  OrderCategory.WBSElement                                                                                          as WBSElement,
  OrderCategory.WBSDescription                                                                                      as WBSDescription,
  OrderCategory.WBSElementObject                                                                                    as WBSElementObject,
  OrderCategory.ResponsiblePerson                                                                                   as ResponsiblePerson,
  OrderCategory.ResponsiblePersonName                                                                               as ResponsiblePersonName,
  OrderCategory.ApplicantCode                                                                                       as ApplicantCode,
  OrderCategory.ApplicantName                                                                                       as ApplicantName,
  OrderCategory.CompanyCode                                                                                         as CompanyCode,
  OrderCategory.BusinessArea                                                                                        as BusinessArea,
  OrderCategory.ControllingArea                                                                                     as ControllingArea,
  OrderCategory.ProfitCenter                                                                                        as ProfitCenter,
  OrderCategory.ProjectType                                                                                         as ProjectType,
  OrderCategory.ReqgCostCenterControllingArea                                                                       as ReqgCostCenterControllingArea,
  OrderCategory.RequestingCostCenter                                                                                as RequestingCostCenter,
  OrderCategory.RespCostCenterControllingArea                                                                       as RespCostCenterControllingArea,
  OrderCategory.ResponsibleCostCenter                                                                               as ResponsibleCostCenter,
  OrderCategory.PriorityCode                                                                                        as PriorityCode,
  OrderCategory.Currency                                                                                            as Currency,
  OrderCategory.Plant                                                                                               as Plant,
  OrderCategory.FreeDefinedAttribute01                                                                              as FreeDefinedAttribute01,
  OrderCategory.FreeDefinedAttribute02                                                                              as FreeDefinedAttribute02,
  OrderCategory.FreeDefinedAttribute03                                                                              as FreeDefinedAttribute03,
  OrderCategory.FreeDefinedAttribute04                                                                              as FreeDefinedAttribute04,
  OrderCategory.FreeDefinedIndicator1                                                                               as FreeDefinedIndicator1,
  OrderCategory.FreeDefinedIndicator2                                                                               as FreeDefinedIndicator2,
  OrderCategory.FunctionalArea                                                                                      as FunctionalArea,
  OrderCategory.BasicStartDate                                                                                      as BasicStartDate,
  OrderCategory.ActualStartDate                                                                                     as ActualStartDate,
  OrderCategory.BasicEndDate                                                                                        as BasicEndDate,
  OrderCategory.ActualEndDate                                                                                       as ActualEndDate,
  OrderCategory.SchedldBasicEarliestStartDate                                                                       as SchedldBasicEarliestStartDate,
  OrderCategory.ScheduledBasicLatestEndDate                                                                         as ScheduledBasicLatestEndDate,
  OrderCategory.SchedldBasicLatestStartDate                                                                         as SchedldBasicLatestStartDate,
  OrderCategory.SchedldBasicEarliestEndDate                                                                         as SchedldBasicEarliestEndDate,
  OrderCategory.ControllingObjectClass                                                                              as ControllingObjectClass,
  OrderCategory.WBSElementHierarchyLevel                                                                            as WBSElementHierarchyLevel,
  OrderCategory.Project                                                                                             as Project,
  OrderCategory.ProjectDescription                                                                                  as ProjectDescription,
  OrderCategory.ProjectObject                                                                                       as ProjectObject,
  //OrderCategory.ObjectType                                                                                          as ObjectType,

  cast('' as abap.numc( 8 ))                                                                                        as ObjectInternalID,
  OrderCategory.OrderID, //                                                                                               as Object,

  cast('' as abap.char( 4 ))                                                                                        as NetworkActivity,
  //  OrderCategory._OrderCategoryText[1:Language = $session.system_language].OrderCategoryName                         as ObjectTypeName,

 OrderCategory.ControllingObject                                                                                               as ControllingObject,
  OrderCategory.OrderDescription                                                                                               as WBSDescription1,
  //OrderCategory.autyp as OrderCategoryType,

  OrderCategory.ControllingAreaCurrency                                                                             as ControllingAreaCurrency,
  OrderCategory.ControllingObjectCurrency,
  cast('OCB' as abap.char(3))                                                                                       as ObjectSource      //SAP Note 3413353

}
union select from P_OrderItemCategoryObj as OrderItemCategory
{
  OrderItemCategory.WBSElementInternalID                                                                                  as WBSElementInternalID,
  OrderItemCategory.ProjectInternalID                                                                                     as ProjectInternalID,
  OrderItemCategory.WBSElement                                                                                            as WBSElement,
  OrderItemCategory.WBSDescription                                                                                        as WBSDescription,
  OrderItemCategory.WBSElementObject                                                                                      as WBSElementObject,
  OrderItemCategory.ResponsiblePerson                                                                                     as ResponsiblePerson,
  OrderItemCategory.ResponsiblePersonName                                                                                 as ResponsiblePersonName,
  OrderItemCategory.ApplicantCode                                                                                         as ApplicantCode,
  OrderItemCategory.ApplicantName                                                                                         as ApplicantName,
  OrderItemCategory.CompanyCode                                                                                           as CompanyCode,
  OrderItemCategory.BusinessArea                                                                                          as BusinessArea,
  OrderItemCategory.ControllingArea                                                                                       as ControllingArea,
  OrderItemCategory.ProfitCenter                                                                                          as ProfitCenter,
  OrderItemCategory.ProjectType                                                                                           as ProjectType,
  OrderItemCategory.ReqgCostCenterControllingArea                                                                         as ReqgCostCenterControllingArea,
  OrderItemCategory.RequestingCostCenter                                                                                  as RequestingCostCenter,
  OrderItemCategory.RespCostCenterControllingArea                                                                         as RespCostCenterControllingArea,
  OrderItemCategory.ResponsibleCostCenter                                                                                 as ResponsibleCostCenter,
  OrderItemCategory.PriorityCode                                                                                          as PriorityCode,
  OrderItemCategory.Currency                                                                                              as Currency,
  OrderItemCategory.Plant                                                                                                 as Plant,
  OrderItemCategory.FreeDefinedAttribute01                                                                                as FreeDefinedAttribute01,
  OrderItemCategory.FreeDefinedAttribute02                                                                                as FreeDefinedAttribute02,
  OrderItemCategory.FreeDefinedAttribute03                                                                                as FreeDefinedAttribute03,
  OrderItemCategory.FreeDefinedAttribute04                                                                                as FreeDefinedAttribute04,
  OrderItemCategory.FreeDefinedIndicator1                                                                                 as FreeDefinedIndicator1,
  OrderItemCategory.FreeDefinedIndicator2                                                                                 as FreeDefinedIndicator2,
  OrderItemCategory.FunctionalArea                                                                                        as FunctionalArea,
  OrderItemCategory.BasicStartDate                                                                                        as BasicStartDate,
  OrderItemCategory.ActualStartDate                                                                                       as ActualStartDate,
  OrderItemCategory.BasicEndDate                                                                                          as BasicEndDate,
  OrderItemCategory.ActualEndDate                                                                                         as ActualEndDate,
  OrderItemCategory.SchedldBasicEarliestStartDate                                                                         as SchedldBasicEarliestStartDate,
  OrderItemCategory.ScheduledBasicLatestEndDate                                                                           as ScheduledBasicLatestEndDate,
  OrderItemCategory.SchedldBasicLatestStartDate                                                                           as SchedldBasicLatestStartDate,
  OrderItemCategory.SchedldBasicEarliestEndDate                                                                           as SchedldBasicEarliestEndDate,
  OrderItemCategory.ControllingObjectClass                                                                                as ControllingObjectClass,
  OrderItemCategory.WBSElementHierarchyLevel                                                                              as WBSElementHierarchyLevel,
  OrderItemCategory.Project                                                                                               as Project,
  OrderItemCategory.ProjectDescription                                                                                    as ProjectDescription,
  OrderItemCategory.ProjectObject                                                                                         as ProjectObject,
  //OrderItemCategory.ObjectType                                                                                            as ObjectType,

  cast(' ' as abap.numc( 8 ))                                                                                             as ObjectInternalID,
  OrderItemCategory.OrderID, //                                                                                                 as Object,

  // OrderItemCategory._OrderCategoryText[1:Language = $session.system_language].OrderCategoryName                          as ObjectTypeName,

  cast('' as abap.char( 4 ))                                                                                              as NetworkActivity,
  OrderItemCategory.ControllingObject                                                                                                 as ControllingObject,
  OrderItemCategory.OrderDescription                                                                                                 as WBSDescription1,
  //OrderItemCategory.dauty as OrderCategoryType,

  OrderItemCategory.ControllingAreaCurrency                                                                               as ControllingAreaCurrency,
  ControllingObjectCurrency,
  cast('OIC' as abap.char(3))                                                                                             as ObjectSource   //SAP Note 3413353

}