I_PurContrValidityStatus

@AbapCatalog.sqlViewName: 'IPURCONTVALSTS'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Purchase Contract Validity Status'

@VDM.viewType: #COMPOSITE
@ObjectModel.usageType.serviceQuality: #D
@ObjectModel.usageType.sizeCategory: #L
@ObjectModel.usageType.dataClass: #MIXED

@AccessControl.personalData.blocking: #('TRANSACTIONAL_DATA')
@ClientHandling.algorithm: #SESSION_VARIABLE
define view I_PurContrValidityStatus
  as select from P_PurContrCalcValidityStatus
{
  key PurchaseContract,
      ValidityStartDate,
      ValidityEndDate,
     // PurContrValidityTotalDays,

     //PurContrValidityThresholdValue, 


      case
        when  ValidityStartDate > $session.system_date or (ValidityStartDate is initial and ValidityEndDate >  $session.system_date  )
          then 'V'
        when ValidityEndDate < $session.system_date 
          then 'E'
        when TimeVarianceInDays < 30 
          then 'A'
          else 'V'       
      end                                                 as PurchaseContractValidityStatus,     
        
      cast( case 
        when ValidityEndDate < $session.system_date
          then 1
        when TimeVarianceInDays < 30
          then 2
          else 3 
      end   as mm_oa_validity_criticality preserving  type)      as PurContrStatusCriticality,
      
      ActivePurchasingDocument
}