I_ChmlCmplncSuplrMatlEnhanced

--Label of view
-- e.g. display as filter name in the consumption
@EndUserText.label: 'Chemical Compliance Supplier Material Assignment Enhanced'

@AbapCatalog:
{
  -- SQL view name (16 characters)
  sqlViewName: 'ICCSMASSENHCD',

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

--Access Control: Authorizations Checks
@AccessControl:
{
  authorizationCheck: #CHECK,
  // blocking of personal data required because of link to business partner / supplier

  personalData.blocking: #REQUIRED
}

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

--VDM view type
@VDM.viewType: #COMPOSITE


@ObjectModel:
{

  --Performance Annotations
  usageType:
  {
    dataClass: #MASTER,
    sizeCategory: #L,
    serviceQuality: #B
  }
}

define view I_ChmlCmplncSuplrMatlEnhanced
  --Select data from Supplier Material Assignment
  as select from I_ChmlCmplncSuplrMatlAssgmt as _SuplrMatlAssgmt 
  
//    --Select data from business partner

//  join to I_ChmlSuplrMatl as ChemicalSupplierMaterial   

//  I_BusinessPartner             as BusinessPartner

//  --join data to supplier link

//    inner join   I_Supplier_to_BusinessPartner as SupplierLink on BusinessPartner.BusinessPartnerUUID = SupplierLink.BusinessPartnerUUID  


{
      --UUID of assignment
  key ChmlCmplncSuplrMatlAssgmtUUID,

      --UUID of chemical compliance info
      ChmlCmplncInfoUUID,

      --UUID of Supplier Material
      ChmlSuplrMatlUUID,

      --Supplier Status per chemical compliance information
      ChmlSuplrMatlSuplrSts,
      
      _SuplrMatlAssgmt._SupplierMaterial.BusinessPartnerSupplier as BusinessPartnerSupplier,
      _SuplrMatlAssgmt._SupplierMaterial._BusinessPartner.BusinessPartnerUUID as BusinessPartnerUUID,
      
      /* Associations */
      _ChmlCmplncInfo,
      _SupplierMaterial,

      _SupplierStatus
}