P_SapOfficeUserSearch

@AbapCatalog.sqlViewName: 'ESD_ADCPOCDS'  //  replaces the view ESD_ADCPO

@AbapCatalog.compiler.compareFilter: true
@AccessControl: {
  authorizationCheck: #CHECK,
  personalData.blocking: #REQUIRED
}
@VDM.private: true
@VDM.viewType: #BASIC
@ClientHandling.algorithm: #SESSION_VARIABLE


/* original definition of ESD_ADCPO:
ESD_ADCPO
    CLIENT      ADCP    CLIENT
    NAME_LAST   ADRP    NAME_LAST
    NAME_FIRST  ADRP    NAME_FIRST
    DEPARTMENT  ADCP    DEPARTMENT
    PERS_GROUP  ADRP    PERS_GROUP
    SO_KEY      ADCP    SO_KEY
join  ADCP CLIENT     = ADRP CLIENT
      ADCP PERSNUMBER = ADRP PERSNUMBER
where ADRP PERS_GROUP  EQ  'BC01'
*/

// This view is intended to limit the selection of SapOffice users to those who have 

// the authority (C_SHER_TD2) to view reports (ACTVT = 03).


// N3313799 16.03.2023: Only consider SOUD records where DELETED = false.


define view P_SapOfficeUserSearch
  as select distinct from adcp
    inner join            adrp   as _adrp  on _adrp.persnumber = adcp.persnumber
    inner join            soud   as _soud  on _soud.usradr = adcp.so_key and _soud.deleted = ' '
    inner join            SUSR_USERS_FOR_OBJECT_ACTVT(p_auth_object:'C_SHER_TD2', p_activity:'03') as _actvt on _soud.usrnam = _actvt.bname
{
  adcp.client       as CLIENT,
  _adrp.name_last   as NAME_LAST,
  _adrp.name_first  as NAME_FIRST,
  adcp.department   as DEPARTMENT,
  _adrp.pers_group  as PERS_GROUP,
  adcp.so_key       as SO_KEY  
}
where adcp.comp_pers = 'C';