CTSProjects

@AbapCatalog.sqlViewName: 'CTSPROJECTSV'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_ALLOWED
@EndUserText.label: 'CTS Projects'
// similar to CTSPROJ_F4 (all) or CTSPRJC_F4 (status <> R) but allows check of request client (TargetClient <> null)

define view CTSProjects
  as select from ctsproject as project
      inner join e070       as request  on project.trkorr     = request.trkorr
                                     //and project.srcsystem  = Left( request.trkorr, 3 )

                                       and request.trfunction = 'G'
 left outer join e070c      as rqclient on project.trkorr     = rqclient.trkorr
                                       and project.srcclient  = rqclient.client

//      inner join tadir as ObjectDirectory on  ObjectDirectory.pgmid    = 'HEAD'

//                                         and ObjectDirectory.object    = 'SYST'

//                                         and ObjectDirectory.obj_name  = ' '

//                                         and ObjectDirectory.srcsystem = project.srcsystem

{
  key project.externalps as ExternalProjectSystem,
  key project.externalid as ExternalProjectID,
  key project.srcclient  as SourceClient,
  key project.srcsystem  as SourceSystem,
      project.descriptn  as Description,
      project.trkorr     as RequestNumber,
      Left( project.trkorr, 3 ) as RequestNumberSystemPrefix,
      case request.trstatus when 'R' then ' '
                            when 'N' then ' '
                            when 'O' then ' '
                            else          'X' end as Modifiable,
      rqclient.tarclient as TargetClient
}
//where

//  (

//    project.srcclient   = $session.client

//  )

/*+[internal] {
"BASEINFO":
{
"FROM":
[
"CTSPROJECT",
"E070",
"E070C"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/