FGL_LIB_P_DOC_HEADER

@AbapCatalog.sqlViewName: 'FILIBPDOCH'
@EndUserText.label: 'Parked Items: Document Header'

@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.viewEnhancementCategory: [#PROJECTION_LIST]
--@AbapCatalog.preserveKey:true

@AccessControl.authorizationCheck:#NOT_REQUIRED
@AccessControl.personalData.blocking:#NOT_REQUIRED

@ClientHandling.algorithm: #SESSION_VARIABLE

@Metadata.ignorePropagatedAnnotations: true

@ObjectModel.usageType:{
  serviceQuality: #X,
  sizeCategory: #L,
  dataClass: #MIXED
}
define view FGL_LIB_P_DOC_HEADER
  as select from    vbkpf
    inner join      t001                on t001.bukrs = vbkpf.bukrs
    left outer join FINS_T001A as t001a on t001a.bukrs = vbkpf.bukrs
{
  key vbkpf.belnr,
  key vbkpf.bukrs,
  key vbkpf.gjahr,

      vbkpf.waers             as currkey_0d,
      vbkpf.hwaer             as currkey_10,

      cast(
        case
          when  t001a.curtp = '11' then vbkpf.hwae2
          when  t001a.curtp2 = '11' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_11 )
        as currkey_11,

      cast(
        case
          when  t001a.curtp = '12' then vbkpf.hwae2
          when  t001a.curtp2 = '12' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_12 )
        as currkey_12,

      cast(
        case
          when  t001a.curtp = '30' then vbkpf.hwae2
          when  t001a.curtp2 = '30' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_30 )
        as currkey_30,

      cast(
        case
          when  t001a.curtp = '31' then vbkpf.hwae2
          when  t001a.curtp2 = '31' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_31 )
        as currkey_31,

      cast(
        case
          when  t001a.curtp = '32' then vbkpf.hwae2
          when  t001a.curtp2 = '32' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_32 )
        as currkey_32,

      cast(
        case
          when  t001a.curtp = '40' then vbkpf.hwae2
          when  t001a.curtp2 = '40' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_40 )
        as currkey_40,

      cast(
        case
          when  t001a.curtp = '50' then vbkpf.hwae2
          when  t001a.curtp2 = '50' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_50 )
        as currkey_50,

      cast(
        case
          when  t001a.curtp = '60' then vbkpf.hwae2
          when  t001a.curtp2 = '60' then vbkpf.hwae3
          else  ''
        end
      as fagl_currkey_11)
        as currkey_60,

      //fiscal year period

      cast(
        concat(concat(vbkpf.gjahr, '0'), vbkpf.monat)
      as rsfiscper )
        as fiscper,

      // fields from T001A

      t001a.curtp             as curtp,
      t001a.curtp2            as curtp2,

      // fields from VBKPF

      vbkpf.ausbk,
      vbkpf.bstat,
      vbkpf.blart,
      vbkpf.bldat,
      vbkpf.budat,
      vbkpf.monat,
      vbkpf.wwert,
      vbkpf.cpudt,
      vbkpf.cputm,
      vbkpf.aedat,
      vbkpf.upddt,
      vbkpf.usnam,
      vbkpf.tcode,
      vbkpf.bvorg,
      vbkpf.xblnr,
      vbkpf.bktxt,
      vbkpf.fikrs,
      vbkpf.xsnet,
      vbkpf.kursf,
      vbkpf.xmwst,
      vbkpf.vbund,

      // fields from T001

      t001.ktopl              as ktopl
}