P_ChmlCmplncUse

@AbapCatalog:
{
  sqlViewName: 'PCCUSE',
  compiler.compareFilter: true,
  preserveKey: true
}

@AccessControl:
{
  authorizationCheck: #NOT_REQUIRED
}

@ClientHandling.algorithm: #SESSION_VARIABLE

@VDM.viewType: #CONSUMPTION
@VDM.private: true

define view P_ChmlCmplncUse
  as select from           I_ChmlCmplncInfoTP    as ChemicalComplianceInfo

    cross join             I_ProdCmplncLegalArea as ProdCmplncLegalArea

  --Join data from Use with status In Process
    left outer to one join I_ProdCmplncUse       as _ProdCmplncUseInProgress on  ChemicalComplianceInfo.ChmlCmplncInfoUUID      = _ProdCmplncUseInProgress.ChmlCmplncInfoUUID
                                                                             and _ProdCmplncUseInProgress.ProdCmplncLegalArea   = ProdCmplncLegalArea.ProdCmplncLegalArea
                                                                             and _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP'
  --Join data from Use with status Released
    left outer to one join I_ProdCmplncUse       as _ProdCmplncUseReleased   on  ChemicalComplianceInfo.ChmlCmplncInfoUUID    = _ProdCmplncUseReleased.ChmlCmplncInfoUUID
                                                                             and _ProdCmplncUseReleased.ProdCmplncLegalArea   = ProdCmplncLegalArea.ProdCmplncLegalArea
                                                                             and _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE'

  --Link to processing status
  association [0..1] to I_PCPrptyProcgSts     as _ProcessingStatus    on $projection.ProdCmplncUseProcgSts = _ProcessingStatus.PCPrptyProcgSts

  --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

  association [0..1] to I_ProdCmplncLegalArea as _ProdCmplncLegalArea on $projection.ProdCmplncLegalArea = _ProdCmplncLegalArea.ProdCmplncLegalArea

{
      @UI.hidden: true
  key ChemicalComplianceInfo.ChmlCmplncInfoUUID                                                                                                       as ChmlCmplncInfoUUID,

  key cast( coalesce( _ProdCmplncUseInProgress.ProdCmplncLegalArea, _ProdCmplncUseReleased.ProdCmplncLegalArea) as ehfnd_legal_area preserving type ) as ProdCmplncLegalArea,

      --Navigation Link UUID
      case
           when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP' then
             _ProdCmplncUseInProgress.ProdCmplncUseUUID
           when _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE' then
             _ProdCmplncUseReleased.ProdCmplncUseUUID
         end                                                                                                                                          as ProdCmplncUseUUID,

      --Delete allowed?
      case
        when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP' then
           _Constants.ConstantTrue
        when _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE' then
           _Constants.ConstantFalse
      end                                                                                                                                             as ProdCmplncUseDeleteIsAllwd,

      --Release allowed?
      case
        when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP' then
           _Constants.ConstantTrue
        when _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE' then
           _Constants.ConstantFalse
      end                                                                                                                                             as ProdCmplncUseReleaseIsAllwd,

      --Processing Status
      case
        when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP'
            and _ProdCmplncUseReleased.ProdCmplncUseProcgSts is null then
           _Constants.ConstantInitialVersion
        when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP' then
           _ProdCmplncUseInProgress.ProdCmplncUseProcgSts
        when _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE' then
          _ProdCmplncUseReleased.ProdCmplncUseProcgSts
      end                                                                                                                                             as ProdCmplncUseProcgSts,

      --Criticality
      case
        when _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP' then
           _Constants.Constant2
        when _ProdCmplncUseReleased.ProdCmplncUseProcgSts = 'RE' then
           _Constants.Constant3
      end                                                                                                                                             as ProdCmplncUseProcgStsCritlty,

      /* Associations */
      _ProcessingStatus,
      _ProdCmplncLegalArea

}
where
     _ProdCmplncUseInProgress.ProdCmplncUseProcgSts = 'IP'
  or _ProdCmplncUseReleased.ProdCmplncUseProcgSts   = 'RE'
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_CHMLCMPLNCINFOTP",
"I_PRODCMPLNCLEGALAREA",
"I_PRODCMPLNCUSE",
"P_CCHMLCMPLCONSTANTS"
],
"ASSOCIATED":
[
"I_PCPRPTYPROCGSTS",
"I_PRODCMPLNCLEGALAREA",
"P_CCHMLCMPLCONSTANTS"
],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/