FCO_COR_HSL_DER

@AbapCatalog.sqlViewName: 'FCOV_COR_HSL_DER'
@EndUserText.label: 'HSL Corr. for Stat. Records in CO: Derivation of CurrKey'
@ObjectModel.usageType.serviceQuality: #P
define view FCO_COR_HSL_DER 
  with parameters iv_poper   : abap.char(3),
                  iv_keydate : abap.dats,
                  iv_sgtxt   : abap.char(50)
as select
c.rclnt, rldnr, c.objnr, gjahr, racct, hrkft, vrgng, rassc, co_belkz, rtcur, rwcur, 
rkcur, rco_ocur, rvunit, beltp, rbukrs, rfarea, segment, sbusa, 
co_beknz, drcrk, c.rfund, c.rgrant_nbr, c.rbudget_pd, poper, c.kokrs, 
timestamp, uspob, accasty, paccasty, bstat, mig_source, ryear, rrcty, fiscyearper, c.periv, 
glaccount_type, koart, bttype, rcntr, lstar, accas, c.aufnr, c.kdauf, c.kdpos, c.erkrs, paobjnr, 
ps_posid, ps_pspid, c.autyp, nplnr, nplnr_vorgn, pnplnr, pnplnr_vorgn, swenr, sgenr, sgrnr, 
smenr, c.recnnr, snksl, sempsl, parobsrc, parob1, scntr, plstar, paccas, paufnr, pkdauf, 
pkdpos, ppaobjnr, pps_posid, pps_pspid, pautyp,
c.usnam, c.ktopl, c.ktop2,
t001.waers as rhcur,
       case when accasty != ''                       then t001.waers
            when tka01.ctyp = '10'                   then t001.waers
            when ( objnr2 = 'NV' or objnr2 = 'OV' )  then af.waers
            when ( objnr2 = 'PR' )                   then p.pwpos
            when ( objnr2 = 'KS'
                or objnr2 = 'KL' )                   then csks.waers  
            when ( objnr2 = 'BP' )                   then cbpr.owaer
            when ( objnr2 = 'OR' )                   then au.waers
            when ( objnr2 = 'OP' )                   then auop.waers
            when ( objnr2 = 'IS' )                   then vicn01.recncurr
            when ( objnr2 = 'VB'  // see FM SD_DOCUMENT_ACCOUNT_ASSIGNMENT line 618

                or objnr2 = 'AO'  // no own object currency

                or objnr2 = 'EO'  // no own object currency

                or objnr2 = 'IA'  // RE: see cl_reex_services_fico=>get_object_acc_data

                or objnr2 = 'IB'
                or objnr2 = 'IC'
                or objnr2 = 'ID'
                or objnr2 = 'IG'
                or objnr2 = 'IH'
                or objnr2 = 'II'
                or objnr2 = 'IJ'
                or objnr2 = 'IM'
                or objnr2 = 'IO'
                or objnr2 = 'IR'
                or objnr2 = 'IT'
                or objnr2 = 'IU'
                or objnr2 = 'IV'
                or objnr2 = 'IW'
                or objnr2 = 'IK'
                or objnr2 = 'IX'
                or objnr2 = 'IY'
                or objnr2 = 'IZ' )                   then t001.waers
                                                     else t001.waers
       end as rhcur_stat,
tsl, wsl, hsl, ksl, kfsl, co_osl, psl, pfsl, vmsl, vmfsl
from FCO_COR_HSL_PRE
     ( iv_sgtxt   : $parameters.iv_sgtxt ) as c
    left outer join t001
      on t001.mandt = c.rclnt
     and t001.bukrs = c.rbukrs
    inner join tka02
      on tka02.mandt = c.rclnt
     and tka02.bukrs = c.rbukrs
     and tka02.gsber = ''
    inner join tka01
       on tka02.mandt = tka01.mandt
      and tka02.kokrs = tka01.kokrs
    left outer join afvc as af
      on af.mandt = c.rclnt
     and af.objnr = c.objnr
     and af.objnr <> ''
     and (objnr2 = 'NV' or objnr2 = 'OV')
    left outer join prps as p
      on p.mandt = c.rclnt
     and p.objnr = c.objnr
     and objnr2 = 'PR'
    left outer join aufk as au
      on au.mandt = c.rclnt
     and au.objnr = c.objnr
     and objnr2 = 'OR'
    left outer join aufk as auop
      on auop.mandt = c.rclnt
     and auop.objnr = objnr_OP_to_OR_tmp
     and auop.objnr <> ''
     and objnr2 = 'OP'
    left outer join vicn01
      on vicn01.mandt     = c.rclnt
     and vicn01.recnobjnr = c.objnr
     and vicn01.recnobjnr <> ''
     and objnr2 = 'IS'
    left outer join csks
      on csks.mandt = c.rclnt
     and csks.objnr = c.objnr
     and csks.datab <= :iv_keydate
     and csks.datbi >= :iv_keydate
     and ( objnr2 = 'KS' or objnr2 = 'KL' )   
    left outer join cbpr
      on cbpr.mandt = c.rclnt
     and cbpr.objnr = c.objnr
     and cbpr.datab <= :iv_keydate
     and cbpr.datbi >= :iv_keydate
     and objnr2 = 'BP'   
where poper = :iv_poper