P_ChmlCmplncInfoAssgdPCTx

@EndUserText.label: 'Assoc. Tox. Information Property'
--                  for Unpackaged Product
@AbapCatalog:
{
  -- SQL view name (16 characters)
  sqlViewName: 'PCCIASGDTX',

  --If it's true, the filter conditions are compared and, if they match, the associated join expression is evaluated only once
  compiler.compareFilter: true,
  preserveKey: true
}

--Access Control: Authorizations Checks
@AccessControl:
{
   authorizationCheck: #NOT_REQUIRED
}

--Client Handling of the view
@ClientHandling.algorithm: #SESSION_VARIABLE

--VDM view type
@VDM.viewType: #CONSUMPTION
@VDM.private: true

define view P_ChmlCmplncInfoAssgdPCTx
  --Select data from basic view 'Chemical Compliance Information'
  as select from           I_ChmlCmplncInfo  as ChemicalComplianceInfo

    inner join             I_PCPrptyRootType as _PCPrptyRootType on _PCPrptyRootType.DomainValue = 'EHFNDD_TX'

  --Join data from physical chemical propertes with status In Process
    left outer to one join I_PCTxProperty    as ToxInProcess     on  ChemicalComplianceInfo.ChmlCmplncInfoUUID = ToxInProcess.ChmlCmplncInfoUUID
                                                                 and ToxInProcess.PCPrptyProcgSts              = 'IP'

  --Join data from physical chemical propertes with status Released
    left outer to one join I_PCTxProperty    as ToxReleased      on  ChemicalComplianceInfo.ChmlCmplncInfoUUID = ToxReleased.ChmlCmplncInfoUUID
                                                                 and ToxReleased.PCPrptyProcgSts               = 'RE'

  --Dummy constant selection to solve issues with case-statements with constants (not null-preserving)
  association [1..1] to P_CChmlCmplConstants as _Constants on _Constants.Constant1 = _Constants.Constant1

{
      --UUID of chemical compliance information
  key ChemicalComplianceInfo.ChmlCmplncInfoUUID                                 as ChmlCmplncInfoUUID,
  
      --Property Type
  key _PCPrptyRootType.PCPrptyRootType                                          as PCPrptyRootType,

      --UUID of in process version
      ToxInProcess.PCTxPrptyUUID                                                as PCPrptyInProcessUUID,

      --Status In Process
      ToxInProcess.PCPrptyProcgSts                                              as PCPrptyInProcProcgSts,

      --Is Active entity
      cast(_Constants[inner].ConstantTrue as sdraft_is_active preserving type ) as PCPrptyInProcIsActive,

      --UUID of released version
      ToxReleased.PCTxPrptyUUID                                                 as PCPrptyReleasedUUID,

      --Status Released
      ToxReleased.PCPrptyProcgSts                                               as PCPrptyReldProcgSts,

      --Released By User
      ToxReleased.ReleasedByUser                                                as ReleasedByUser,

      --Is Active entity
      cast(_Constants[inner].ConstantTrue as sdraft_is_active preserving type ) as PCPrptyReldIsActive,

      --Navigation Link UUID
      case
        when ToxInProcess.PCPrptyProcgSts = 'IP' then
          ToxInProcess.PCTxPrptyUUID
        when ToxReleased.PCPrptyProcgSts = 'RE' then
          ToxReleased.PCTxPrptyUUID
      end                                                                       as PCPrptyNavgnLinkUUID,

      --Active Indicator
      case
        when ToxInProcess.PCPrptyProcgSts = 'IP'
          then cast(_Constants[inner].ConstantTrue as sdraft_is_active preserving type )
        when ToxReleased.PCPrptyProcgSts = 'RE'
          then cast(_Constants[inner].ConstantTrue as sdraft_is_active preserving type )
      end                                                                       as PCPrptyIsActive
}