R_MaintenanceChecklistTP

@AccessControl.authorizationCheck: #MANDATORY
@EndUserText.label: 'Manage Inspection Checklists TP'
@VDM.viewType: #TRANSACTIONAL
@VDM.usage.type: [#TRANSACTIONAL_PROCESSING_SERVICE]
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API
@ObjectModel.sapObjectNodeType.name: 'InspectionLot'
@ObjectModel.usageType: {serviceQuality: #C, sizeCategory: #L, dataClass: #TRANSACTIONAL}
define root view entity R_MaintenanceChecklistTP
  as select from I_MaintOrderInspectionLot
  association [0..1] to I_MaintenanceOrder            as _MaintenanceOrder            on  $projection.MaintenanceOrder = _MaintenanceOrder.MaintenanceOrder
  association [0..1] to I_MaintenanceOrderOperation   as _MaintenanceOrderOp          on  $projection.MaintenanceBusinessSubobject = _MaintenanceOrderOp.MaintOrderOperationInternalID
  association [1..1] to I_MaintOrderTechObj           as _OrderTechnicalObject        on  $projection.MaintenanceOrder = _OrderTechnicalObject.MaintenanceOrder
  association [0..1] to I_Plant                       as _Plant                       on  $projection.Plant = _Plant.Plant
  association [0..1] to I_WorkCenter                  as _OperationWorkCenter         on  $projection.operationworkcenterinternalid = _OperationWorkCenter.WorkCenterInternalID
                                                                                      and $projection.operationworkcentertypecode = _OperationWorkCenter.WorkCenterTypeCode
  association [0..1] to I_MaintenanceChecklistType    as _ChecklistType               on  $projection.maintoperationalchecklisttype      = _ChecklistType.MaintOperationalChecklistType
  association [1..1] to I_InspectionLotAggregate      as _InspLotAgg                  on  $projection.InspectionLot = _InspLotAgg.InspectionLot
  association [1..1] to I_InspectionLot               as _InspectionLot               on  $projection.InspectionLot = _InspectionLot.InspectionLot
  association [1..1] to I_OperationStandardText       as _OperationStandardText       on  $projection.operationstandardtextcode = _OperationStandardText.OperationStandardTextCode
  association [0..1] to C_InspUsgDescCF               as _CalFields                   on  $projection.InspectionLot = _CalFields.InspectionLot
  association [0..1] to I_InspectionLotStatus         as _InspLotStatusLocked         on  $projection.StatusObject            = _InspLotStatusLocked.StatusObject
                                                                                      and _InspLotStatusLocked.StatusCode     = 'I0043'
  association [0..1] to I_InspectionLotTypeText       as _InspectionLotTypeText       on  $projection.InspectionLotType = _InspectionLotTypeText.InspectionLotType
  association [0..1] to I_BillOfOperationsChangeState as _BillOfOperationsChangeState on  $projection.billofoperationstype    = _BillOfOperationsChangeState.BillOfOperationsType
                                                                                      and $projection.billofoperationsgroup   = _BillOfOperationsChangeState.BillOfOperationsGroup
                                                                                      and $projection.billofoperationsvariant = _BillOfOperationsChangeState.BillOfOperationsVariant
  association [0..1] to I_BillOfOperationsUsage       as _BillOfOperationsUsage       on  $projection.billofoperationsusage = _BillOfOperationsUsage.BillOfOperationsUsage
  association [0..1] to I_User                        as _CreatedByUser               on  _CreatedByUser.UserID = $projection.InspectionLotCreatedBy
  association [0..1] to I_User                        as _LastChangedByUser           on  _LastChangedByUser.UserID = $projection.InspectionLotChangedBy
  association [0..*] to I_TechObjAuthznGrpText        as _AuthorizationGroup          on  _AuthorizationGroup.TechObjAuthorizationGroup = $projection.authorizationgroup
  association [0..1] to I_Indicator                   as _IsLocked                    on  $projection.IsLocked = _IsLocked.IndicatorValue
{
  key InspectionLot,
  key MaintenanceOrder,
  key cast(_MaintenanceOrderOp.MaintenanceOrderOperation as maintenanceorderoperation preserving type)                                                                                               as MaintenanceOrderOperation,
      _MaintenanceOrderOp.MaintOperationalChecklistType,
      MaintenanceBusinessSubobject,
      Plant,
      InspectionLotType,
      @Semantics.text: true
      _InspectionLotTypeText[1:Language=$session.system_language].InspectionLotTypeText                                                                                                              as InspectionLotTypeText,
      InspectionLotText,
      InspectionLotObjectText,
      Equipment,
      FunctionalLocation,
      MainChecklistIsDeactivated,
      cast( case when MainChecklistIsDeactivated = 'X'
      then 'Deactivated'
      else 'Activated' end as char15 )                                                                                                                                                               as ActivationStatusName,

      case MainChecklistIsDeactivated
         when 'X' then 1
         else 3
        end                                                                                                                                                                                          as ActivationStatusCriticality,

      // If Equipment is available in inspection lot, Technical Object will hold Equipment,

      // otherwise will hold Functional Location Data

      case when Equipment = '' then
                  cast( FunctionalLocation as eams_tec_obj )
             else cast( Equipment as eams_tec_obj ) end                                                                                                                                              as TechnicalObject,
      // Technical Object Type : If Equipment is available in inspection lot, Technical Object will hold Equipment,

      // otherwise will hold Functional Location Data

      cast( case when Equipment = '' and FunctionalLocation = '' then ''
            else case when Equipment = '' then 'EAMS_FL'
            else 'EAMS_EQUI' end end as eams_tec_obj_type_value )                                                                                                                                    as TechObjIsEquipOrFuncnlLoc,

      //Total Characteristics Count in a Inspection Lot

      _InspLotAgg.InspCharacteristicCount,
      //Characteristics Count in a Inspection Lot for Micro Chart

      _InspLotAgg.InspCharAcceptedCount,
      _InspLotAgg.InspCharRejectedCount,
      _InspLotAgg.InspCharOpenCount,

      //Order Description as a Text

      @Semantics.text: true
      _MaintenanceOrderOp._MaintenanceOrder.MaintenanceOrderDesc,
      //Operation Description as a Text

      _MaintenanceOrderOp.OperationDescription,
      //Plant Description as a Text

      _Plant.PlantName,
      //AuthorizationGroup

      _OrderTechnicalObject._TechnicalObject.AuthorizationGroup,

      //Usage Decision Fields

      case
        when _InspLotUsageDecision.InspLotUsageDecisionValuation = 'A' or _InspLotUsageDecision.InspLotUsageDecisionValuation = 'R'
              then cast(_InspLotUsageDecision.InspLotUsageDecisionValuation as qbewertung)
        else cast(' ' as qbewertung)
       end                                                                                                                                                                                           as InspLotUsageDecisionValuation,

      //Usage Decision Valuation as a Text

      @Semantics.text: true
      _InspLotUsageDecision._UsageDecisionValuation._Text[1:Language=$session.system_language].InspLotUsgeDcsnValuationText,
      @Semantics.text: true
      _InspLotUsageDecision._UsageDecisionCode._Text[1:Language=$session.system_language].UsageDecisionCodeText,
      _InspLotUsageDecision.InspectionLotUsageDecisionCode,
      @EndUserText: { label: 'Criticality for Usage Decision Code', quickInfo: 'Criticality for Usage Decision Code' }
      case _InspLotUsageDecision.InspLotUsageDecisionValuation
       when 'A' then 3
       when 'R' then 1
       else 0
      end                                                                                                                                                                                            as UsageDecisionCodeCriticality,

      //Schedule Start date and end date

      _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartDate,
      _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartTime,
      cast( case when _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartTime = '240000' and _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartDate <> '00000000'
                   then dats_tims_to_tstmp(dats_add_days( _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartDate, 1, 'NULL'), cast( '000000' as abap.tims ),
                     abap_system_timezone($session.client,'NULL'), $session.client, 'NULL' )
                  else dats_tims_to_tstmp(_MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartDate, _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicStartTime,
                         abap_system_timezone($session.client,'NULL'), $session.client, 'NULL' )
                         end as timestamp preserving type )                                                                                                                                          as MaintOrdSchedBscStartDateTime,
      _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicEndDate,
      _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicEndTime,
      cast(dats_tims_to_tstmp( _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicEndDate,
      _MaintenanceOrderOp._MaintenanceOrder.ScheduledBasicEndTime,
      abap_system_timezone($session.client,'NULL'), $session.client,'NULL') as timestamp)                                                                                                            as MaintOrdSchedldBscEndDateTime,

      //Is Locked Field, Behind the IDMS Business Feature

      @Feature: 'BF:EAM_IDMS'
      @Consumption.filter.multipleSelections: false
      @Consumption.filter.selectionType: #SINGLE
      @EndUserText: { label: 'Is Locked', quickInfo: 'Is the Inspection Lot Locked' }
      @ObjectModel.foreignKey.association: '_IsLocked'
      cast( case when _InspLotStatusLocked.StatusCode is not null
        then 'X' else ''
       end  as xfeld )                                                                                                                                                                               as IsLocked,
      StatusObject,

      //Order Related Fields

      MaintenancePlanningPlant,
      _MaintenanceOrder._MaintenancePlanningPlant.PlantName                                                                                                                                          as MaintenancePlanningPlantName,
      MaintenanceOrderType,
      @Semantics.text:true
      _MaintenanceOrder._MaintenanceOrderType._Text[1: Language=$session.system_language].OrderTypeName,
      _MaintenanceOrder._MaintenancePlan.MaintenancePlan,
      @Semantics.text:true
      _MaintenanceOrder._MaintenancePlan.MaintenancePlanDesc                                                                                                                                         as MaintenancePlanDesc,
      _MaintenanceOrder._MaintenancePlan._MaintenanceItem.MaintenanceItem,
      @Semantics.text:true
      _MaintenanceOrder._MaintenancePlan._MaintenanceItem.MaintenanceItemDescription,
      _MaintenanceOrder.MaintenanceActivityType,
      @Semantics.text:true
      _MaintenanceOrder._MaintenanceActivityType._Text[1: Language=$session.system_language].MaintenanceActivityTypeName,
      _MaintenanceOrder.MaintenancePlannerGroup,
      @Semantics.text:true
      _MaintenanceOrder._MaintenancePlannerGroup.MaintenancePlannerGroupName,
      _MaintenanceOrder.MainWorkCenter,
      _MaintenanceOrder._MainWorkCenter._Text[1:Language = $session.system_language].WorkCenterText                                                                                                  as WorkCenterText,
      _MaintenanceOrder.MainWorkCenterPlant,
      _MaintenanceOrder._MainWorkCenter._Plant.PlantName                                                                                                                                             as WorkCenterPlantName,

      //Operation Related Fields

      _MaintenanceOrderOp.OperationWorkCenterInternalID,
      _MaintenanceOrderOp.OperationWorkCenterTypeCode,
      _MaintenanceOrderOp.Plant                                                                                                                                                                      as OperationWorkCenterPlant,
      _MaintenanceOrderOp.OperationControlKey,
      @Semantics.text:true
      _MaintenanceOrderOp._OperationControlKey._Text[1:Language=$session.system_language].OperationControlProfileName,
      _MaintenanceOrderOp.OperationStandardTextCode,

      //Inspection Lot Related Fields

      InspectionLotCreatedOn,
      InspectionLotCreatedOnTime,
      cast(dats_tims_to_tstmp( InspectionLotCreatedOn,
      InspectionLotCreatedOnTime,
      abap_system_timezone($session.client,'NULL'), $session.client,'NULL') as timestamp)                                                                                                            as InspectionLotCreateDateTime,
      @Semantics.user.createdBy: true
      InspectionLotCreatedBy,
      InspectionLotChangeDate,
      InspectionLotChangeTime,
      cast(dats_tims_to_tstmp( InspectionLotChangeDate,
      InspectionLotChangeTime,
      abap_system_timezone($session.client,'NULL'), $session.client,'NULL') as timestamp)                                                                                                            as InspectionLotChangeDateTime,
      @Semantics.user.lastChangedBy: true
      InspectionLotChangedBy,
      _CalFields._InspLotUsgeDcsn.InspectionLotQualityScore,
      _InspectionLot.Material,
       @Semantics.text:true
      _InspectionLot._Material._Text[1:Language = $session.system_language].MaterialName                                                                                                             as MaterialName,
      _InspectionLot.Supplier,
       @Semantics.text:true
      _InspectionLot._Supplier.SupplierName,
      _InspectionLot.BillOfOperationsGroup,
      _InspectionLot.BillOfOperationsVariant,
      _InspectionLot.BillOfOperationsType,
      _InspectionLot.BillOfOperationsUsage,
      _InspectionLot.Plant                                                                                                                                                                           as InspectionLotPlant,
      _InspectionLot._Plant.PlantName                                                                                                                                                                as InspectionLotPlantName,
      _InspectionLot._FunctionalLocation._FunctionalLocationLabel.FunctionalLocationLabelName                                                                                                        as InspLotFunctionalLocation,
      _InspectionLot.Equipment                                                                                                                                                                       as InspectionLotEquipment,
      _InspectionLot._Equipment._EquipmentText[1:Language=$session.system_language].EquipmentName,
      _InspectionLot._FunctionalLocation._FunctionalLocationText[1:Language=$session.system_language].FunctionalLocationName                                                                         as InspLotFunctionalLocationName,
      cast ( _CalFields.InspLotCompltnStatus as vdm_insplotcompltnstatus preserving type )                                                                                                           as InspLotCompltnStatus,
      _CalFields._InspLotCompltnStatusText[1:Language = $session.system_language].InspLotCompltnStatusText,

      //Make association public

      _OrderTechnicalObject,
      _OperationStandardText,
      _InspectionLot,
      _ChecklistType,
      _OperationWorkCenter,
      _CreatedByUser,
      _LastChangedByUser,
      _AuthorizationGroup,
      _BillOfOperationsChangeState,
      _BillOfOperationsUsage,
      _IsLocked
}
where
      MaintenanceBusinessSubobject                  <> ' '
  and _MaintenanceOrderOp.MaintenanceOrderOperation <> ' '