Fins_Rev_Rec_Acc_Pri_View

@AbapCatalog.sqlViewName: 'FINS_RR_ACC_PRI'
@ClientDependent: true
@AbapCatalog.compiler.compareFilter: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Accounting Principles for transaction based revenue recogn.'

@ObjectModel.usageType.serviceQuality: #B
@ObjectModel.usageType.sizeCategory: #S
@ObjectModel.usageType.dataClass: #CUSTOMIZING

@AbapCatalog.buffering.status:#ACTIVE 
@AbapCatalog.buffering.type:#FULL

//List of accounting principles relevant for revenue recognition

//Selects from finsc_ld_cmp_ap, finsc_ld_cmp, finsc_ledger, fins_trr_val, fins_trr_acp, tacc_trgt_ldgr, fagl_tldgrp_map 


define view Fins_Rev_Rec_Acc_Pri_View as 

select 
  key b.rldnr as rldnr, 
  key b.bukrs as bukrs,            
  key d.acc_principle as acc_principle,                                                                      -- new and classic, tacc_trgt_ldgr (might be changed in the future)
  key d.ldgrp_gl as ldgrp,                                                                                   -- changed by ABAP code
  key c.abgsl as abgsl,  
  key e.rldnr as ldgrp_rldnr,
  key cast (case when b1.acc_principle != '    ' then b1.acc_principle                                       -- new, finsc_ledger
                 when b.acc_principle != '    ' then b.acc_principle                                         -- new, finsc_ld_cmp
                 else a.acc_principle end as accounting_principle preserving type) as rldnr_acc_principle,   -- new, finsc_ld_cmp_ap
  key a1.acc_principle as ldgrp_acc_principle,                                                               -- classic, finsc_ld_cmp_ap + LG   
  b1.valutyp as valutyp,                                                                                     -- introduced for group ledger enablement
  cast (1 as fins_trr_members_of_ldgrp) as members,                                                          -- filled by ABAP code 
  cast (case when b.toyear between '0001' and '9999' then b.toyear else '9999' end as fagl_toyear preserving type) as toyear,  
  cast ('X' as kka_yes_no preserving type) as success,                                                       -- for internal use in ABAP code
  cast ('  ' as fins_ledger preserving type) as pred_rldnr,                                                  -- filled by ABAP code
  cast ( '    ' as tbrr_eval_area preserving type) as eval_area,                                             -- filled by ABAP code
  f.eval_scope as eval_scope,
//f.ldgrp as eva_rldnr_ldgrp,                                                                                -- moved to ABAP code                   

  cast ('    ' as fagl_ldgrp preserving type) as eva_rldnr_ldgrp,                                            -- filled by ABAP code  
  b.parglaccts
//cast(coalesce(r.rr_solution_type,' ') as farric_rr_solution preserving type ) as rr_solution_type          -- EBRR or CBRR active -- (cloud) relevance withdrawn 

    from  finsc_ld_cmp as b
    inner join finsc_ledger as b1
       on b1.rldnr = b.rldnr 
    inner join finsc_actve_appl as b2
       on b2.appl = b1.appl and
          b2.subappl = b1.subappl  
    inner join fins_trr_acp as a1
          on a1.bukrs = b.bukrs 
    left outer join finsc_ld_cmp_ap as a   
       on a.rldnr = b.rldnr and                
          a.bukrs = b.bukrs and
          a.acc_principle = a1.acc_principle                                                                       
    inner join tacc_principle as d1
       on d1.acc_principle = a1.acc_principle                                                                                                                                -- classic, but LG not in finsc_ld_cmp_ap 
    left outer join tacc_trgt_ldgr as d
       on d.acc_principle = d1.acc_principle                                                                                    
    inner join fins_trr_val as c
       on c.bukrs = b.bukrs and
          c.acc_principle = d.acc_principle
    inner join tkkaa as c2
       on c2.abgsl = c.abgsl         
//  inner join fins_trr_acp as c1

//     on c1.bukrs = b.bukrs and

//        c1.acc_principle = d.acc_principle      

    left outer join fagl_tldgrp_map as e
       on e.ldgrp = d.ldgrp_gl and
//        e.rldnr = a.rldnr and                                                                                    -- moved to ABAP code 

          e.represent = 'X' 
    left outer join fins_trr_eva as f
       on f.rldnr = b.rldnr and
          f.bukrs = b.bukrs 
//  left outer join farric_rr_soltn as r

//     on r.company_code = b.bukrs      

    where b1.ext_ledger_type = ' ' and
//        ( b1.valutyp = ' ' or b1.valutyp = '0' ) and                                                             -- removed for group ledger enablement

          b1.ledger_type = ' ' and   
          c2.rflg1 = 'X'          
;              
          
 /*+[internal] {
"BASEINFO":
{
"FROM":
[
"FAGL_TLDGRP_MAP",
"FINSC_ACTVE_APPL",
"FINSC_LD_CMP",
"FINSC_LD_CMP_AP",
"FINSC_LEDGER",
"FINS_TRR_ACP",
"FINS_TRR_EVA",
"FINS_TRR_VAL",
"TACC_PRINCIPLE",
"TACC_TRGT_LDGR",
"TKKAA"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/