I_EmployeeHomeAddress

@AbapCatalog.sqlViewName: 'IEMPLHOMEADDRSS' 
@EndUserText.label: 'Employee Home Address'
@VDM.viewType: #BASIC

@ClientHandling.algorithm: #SESSION_VARIABLE 
@ObjectModel.usageType.dataClass: #MASTER 
@ObjectModel.usageType.serviceQuality: #C 
@ObjectModel.usageType.sizeCategory: #XXL
@AccessControl.personalData.blocking: #REQUIRED
@AccessControl.authorizationCheck: #CHECK

//.....................................................................................................................

// This CDS view is OBSOLETE and should not be used anymore. This CDS view shall not return any records.

// Hence this View shall be deprecated.

//......................................................................................................................


define view I_EmployeeHomeAddress  

as select from adcp as AddrPointer
  
//    inner join adcp as AddrPointer on Employee.Person = AddrPointer.persnumber   

    inner join I_Address as Address on AddrPointer.addrnumber =  Address.AddressID   
    inner join but020 as AddressAdmin on Address.AddressID = AddressAdmin.addrnumber      

    association [0..1] to P_EmplPrivCommData as commdata on  Address.AddressID = commdata.AddressID and 
                                                             AddrPointer.persnumber   = commdata.Person
    association [0..1] to I_Region as _Region on $projection.Region = _Region.Region and 
                                                             $projection.Country = _Region.Country     
    association [0..1] to I_Country as _Country on $projection.Country = _Country.Country 
    association[0..1] to I_Employee as _Employee
                                        on $projection.Person = _Employee.Person    

    association[0..1] to I_BusinessPartner as _BusinessPartner on AddressAdmin.partner = _BusinessPartner.BusinessPartner                                        
    { 
    key  _Employee.PersonnelNumber, //Internal Stable ID

    key  AddressAdmin.addr_valid_from   as ValidityStartDate,       
         _Employee.EmployeeInternalID             as EmployeeInternalID,    // Bu Partner

         AddressAdmin.partner as BusinessPartner,
                                         
         _Employee.Employee,                                        //Ext Pernr

         _Employee.FullName,
         
              
         AddressAdmin.addr_valid_to     as ValidityEndDate,    
         Address.Country,
         Address.Region,
         Address.CityName,
         Address.HomeCityName,
         Address.District,
         Address.PostalCode,
         Address.StreetName,
         Address.StreetPrefixName,
         Address.StreetSuffixName,
         Address.AdditionalStreetPrefixName,
         Address.AdditionalStreetSuffixName,
         Address.HouseNumber,
         Address.HouseNumberSupplementText,
         Address.CareOfName,
         
         AddrPointer.persnumber as Person,
//         commdata.Person as Person,

         commdata.DestinationLocationCountry,     
         commdata.PhoneNumber,
         commdata.PhoneNumberExtension,
         commdata.MblPhoneDestinationLocCountry,
         commdata.MobilePhoneNumber,
         commdata.DefaultEmailAddress,
 
         _Region,
         _Country,
         '0060' as AuthorizationGroup ,
         _BusinessPartner         
  }                                      
  
  where _Employee.PersonnelNumber is initial and _Employee.PersonnelNumber is not initial