V_COEP_SASCB_VIEW

@AbapCatalog.sqlViewName: 'V_COEP_SASCB'
@EndUserText.label: 'COEP simple as simple can be'

@ClientHandling.algorithm: #SESSION_VARIABLE
@Metadata.ignorePropagatedAnnotations: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@ObjectModel.usageType.serviceQuality: #P
/*
    For selecting COEP entries with WRTTP=04 for version '000'  if and only if the consumer does NOT need:
    - TIMESTMP          generally not needed
    - OBJNRx x=1,2,3    ID's of the involved statistical objects
    - MUVFLG            information about the completeness of quantity data - generally not needed -> only needed as an intermediate step to COSP/COSS
    - ACCAS, CE4KEY or
            PCE4KEY     CO-PA object - added to COEP since sFIN 1.0
    - NO user defined fields added to ACDOCA/COEP by extensibility
*/

define view V_COEP_SASCB_VIEW as
   select    
          key rclnt    as mandt,
          key a.kokrs  as kokrs,         
          key co_belnr as belnr,    
          key co_buzei as buzei,
          budat,    
          poper as PERIO,
          
          wsl as WTGBTR, --- NOT TSL!
          case when ( rco_ocur = '' or t.xwbuk = 'X' ) then hsl else co_osl end as WOGBTR, --- 1. CO_OSL; 2. HSL 
          ksl   as WKGBTR, 
          kfsl  as WKFBTR,
          psl   as PAGBTR,
          pfsl  as PAFBTR,
--          vmsl  as MEGBTR,
--          vmfsl as MEFBTR,
          co_megbtr  as MEGBTR,
          co_mefbtr  as MEFBTR,          
          msl   as MBGBTR,
          mfsl  as MBFBTR,   
               
          '00'  as LEDNR,
          objnr,
          ryear as GJAHR,  --- gjahr as GJAHR
          
          '04'  as WRTTP,      
          '000' as VERSN,
          
          racct as KSTAR,     
          hrkft,
          vrgng,
          case when parobsrc = '1' then parob1 else case when parobsrc = '2' then paccasty else '' end end as PAROB,          
          parob1,
          uspob,
          rassc as VBUND,      
          sbusa as PARGB,   
          co_beknz as beknz,      
          rwcur as TWAER,
          case when ( rco_ocur is null or rco_ocur = '' ) then rhcur else rco_ocur end as OWAER,  --- 1. RCO_OCUR; 2.RHCUR           
--          rvunit as MEINH,
          co_meinh as MEINH,
          case when ( runit is null or runit = '' ) then '' else runit end as MEINB,       
          ' '      as mvflg,    
          sgtxt,
          co_refbz as refbz,     
          co_zlenr as zlenr,              
          co_buzei as BW_REFBZ,      
          gkont,
          gkoar,
          werks,
          matnr,
          rbest,
          ebeln,
          ebelp,
          zekkn,
          erlkz,
          pernr,
          '00'  as  BTRKL,         
          case when xpaobjnr_co_rel = 'X' then paobjnr else '0000000000' end as paobjnr,
          beltp,
          rbukrs as BUKRS, 
          rbusa  as GSBER,   
          rfarea as FKBER,   
          scope,
          logsyso,
          ''     as pkstar,
          pbukrs,
          sfarea as PFKBER, 
          pscope,
          logsysp,
          dabrz,    
          bwstrat,
          objnr_hk,      
          '0000000000000' as TIMESTMP,
          qmnum,
          rfund  as GEBER, 
          sfund  as PGEBER, 
          rgrant_nbr as GRANT_NBR,      
          sgrant_nbr as PGRANT_NBR,     
          case when ( vrgng = 'COIN' or vrgng = 'COIE' or vrgng = 'KZRI' or 
                      vrgng = 'INV1' or vrgng = 'INV2' or vrgng = 'INV3' or 
                      vrgng = 'INV4' or vrgng = 'INV5' or vrgng = 'INV6' ) 
               then a.buzei else '000' end as REFBZ_FI,
          segment,
          psegment,
          '0000000000' as posnr, -- not persisted in ACDOCA, POSNR was just used as BSEG-COEP link for logical document
          prctr,
          pprctr       as PPRCT,
          rbudget_pd   as BUDGET_PD,   
          sbudget_pd   as PBUDGET_PD, 
          cast(concat(substring(prodper,1,4),substring(prodper,5,2)) as abap.numc(6) ) as prodper, 
          
          ''    as objnr_n1,
          ''    as objnr_n2,
          ''    as objnr_n3,

          awtyp,
          replace( replace( concat( rpad( awref, 10, '€' ), aworg), '€', ' €' ), '€', ' ' ) as awkey,  
          awsys,
          rkcur as KWAER,
          
          accas,
          accasty,
           
          rcntr as KOSTL,
          lstar,
          aufnr,
          autyp,
          ps_posid as pspnr,
          ps_pspid as pspid,
          kdauf as vbeln,
          kdpos as vbposnr,
          '0000000000' as ce4key, 
          a.erkrs as erkrs,
          paccas,
          paccasty,
          scntr as PKOSTL,
          plstar,
          paufnr,
          pautyp,
          pps_posid as ppspnr,
          pps_pspid as ppspid,
          pkdauf as pvbeln,
          pkdpos as pvbposnr,
          '0000000000' as pce4key, 
          quant1,
          quant2,
          quant3,
          qunit1,
          qunit2,
          qunit3          
    from acdoca                    as a
    inner join   finsc_cmp_versnc  as v   on  v.mandt  = a.rclnt
                                         and  v.bukrs  = a.rbukrs
                                         and  v.rldnr  = a.rldnr
                                         and  v.versn  = '000'       
    inner join   tka01             as t   on  t.mandt  = a.rclnt  
                                         and  t.kokrs  = a.kokrs 
    where co_belnr <> '' and co_buzei <> '000'   
    and not ( accasty is null or accasty = '' )     
      ;
 /*+[internal] {
"BASEINFO":
{
"FROM":
[
"ACDOCA",
"FINSC_CMP_VERSNC",
"TKA01"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/