R_RSHPersonAssignmentTP

@AccessControl.authorizationCheck: #MANDATORY
@EndUserText.label: 'Maint Order Op assigned to Person TP'
@ObjectModel.usageType.dataClass: #TRANSACTIONAL
@ObjectModel.usageType.serviceQuality: #C
@ObjectModel.usageType.sizeCategory: #L
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API
@VDM.viewType: #TRANSACTIONAL
define view entity R_RSHPersonAssignmentTP
  as select from kbed as _Split
    inner join   afvc as _MaintenanceOrderOperation on  _MaintenanceOrderOperation.aufpl = _Split.aufpl
                                                    and _MaintenanceOrderOperation.aplzl = _Split.aplzl
  //    association [0..1] to afvc                 as _MaintenanceOrderOperation on  _MaintenanceOrderOperation.aufpl = Split.aufpl

  //                                               and _MaintenanceOrderOperation.aplzl = Split.aplzl


  // Since AFKO has the key AUFNR and the key is not used as reference in the other tables KBED and AFVC, we need to disable the cardinality check / warning

  /*+[hideWarning] { "IDS" : [ "CARDINALITY_CHECK" ] } */
  association [0..1] to afko                 as _Order               on  _Order.bedid = _Split.bedid

  // Included for DCL checks on

  // - order type

  // - maintenance plant, planner group

  // - equipment plant

  // - functional location plant

  association [0..1] to I_MaintenanceOrder   as _MaintenanceOrder    on  $projection.MaintenanceOrder = _MaintenanceOrder.MaintenanceOrder

  association [0..1] to kbez                 as _SplitPlanningValues on  _SplitPlanningValues.bedid = _Split.bedid
                                                                     and _SplitPlanningValues.bedzl = _Split.bedzl
                                                                     and _SplitPlanningValues.canum = _Split.canum
  association [0..1] to afvc                 as _SuperiorOperation   on  _SuperiorOperation.aufpl = _MaintenanceOrderOperation.aufpl
                                                                     and _SuperiorOperation.aplzl = _MaintenanceOrderOperation.sumnr
  association        to parent R_RSHPersonTP as _Person              on  $projection.MaintWorkCenterPersonID = _Person.MaintWorkCenterPersonID

{

  key _Split.bedid                                                                                                                                                  as CapacityRequirement,
  key _Split.bedzl                                                                                                                                                  as CapacityRequirementItem,
  key _Split.canum                                                                                                                                                  as CapacityRqmtItemCapacity,

      _Order.aufpl                                                                                                                                                  as MaintOrderRoutingNumber,
      _MaintenanceOrderOperation.aplzl                                                                                                                              as MaintOrderOperationCounter,

      _Order.aufnr                                                                                                                                                  as MaintenanceOrder,
      cast(  coalesce( _SuperiorOperation.vornr, _MaintenanceOrderOperation.vornr ) as maintenanceorderoperation    preserving type )                               as MaintenanceOrderOperation,
      cast( case when  _MaintenanceOrderOperation.sumnr = '00000000' then '' else _MaintenanceOrderOperation.vornr end as vdm_vornr preserving type )               as MaintenanceOrderSubOperation,
      _MaintenanceOrderOperation.ltxa1                                                                                                                                      as OperationDescription,
      _Split.split                                                                                                                                                  as AssignedMaintOpSplitNumber,

      @ObjectModel.filter.transformedBy: 'ABAP:CL_RSH_PERSON_ASG_F_EXIT'
      _Split.pernr                                                                                                                                                  as MaintWorkCenterPersonID,

      _Split.fstad                                                                                                                                                  as AssignedMaintOpStartDate,
      _Split.fstau                                                                                                                                                  as AssignedMaintOpStartTime,

      _Split.fendd                                                                                                                                                  as AssignedMaintOpEndDate,
      _Split.fendu                                                                                                                                                  as AssignedMaintOpEndTime,

      // Use date and time and system time zone and create a TIMESTAMP (which is in UTC)

      // BADI call will not be required post this conversion.

      case when _Split.fstau = '240000'
      then  cast(dats_tims_to_tstmp( _Split.fstad, cast('235959' as tims), abap_system_timezone( $session.client,'NULL'), $session.client,'NULL') as timestamp preserving type)
      else
      cast(dats_tims_to_tstmp( _Split.fstad, _Split.fstau,abap_system_timezone( $session.client,'NULL'), $session.client,'NULL') as timestamp preserving type) end  as AssignedMaintOpStartDateTime,

      case when _Split.fendu = '240000'
      then  cast(dats_tims_to_tstmp( _Split.fendd, cast('235959' as tims), abap_system_timezone( $session.client,'NULL'), $session.client,'NULL') as timestamp preserving type)
      else
      cast(dats_tims_to_tstmp( _Split.fendd, _Split.fendu, abap_system_timezone( $session.client,'NULL'), $session.client,'NULL') as timestamp preserving type) end as AssignedMaintOpEndDateTime,

      _SplitPlanningValues.arbei                                                                                                                                    as AssignedMaintOpWork,
      _SplitPlanningValues.arbeh                                                                                                                                    as AssignedMaintOpWorkUnit,
      _SplitPlanningValues.dauno                                                                                                                                    as AssignedMaintOpDuration,
      _SplitPlanningValues.daune                                                                                                                                    as AssignedMaintOpDurationUnit,

      //    _Order,

      _MaintenanceOrder,
      //    _MaintenanceOrder.MaintenanceOrder,

      //    _MaintenanceOrder.MaintenancePlanningPlant,

      _Person

}
where
      _Order.plnaw = 'I'
  and _Split.pernr is not initial;