P_RevnRecgnJournalEntryItem

@AbapCatalog.sqlViewName: 'PIRRJRNENTRITEM'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true

@VDM.private: true
@VDM.viewType: #CONSUMPTION

@ObjectModel.usageType: {
  dataClass: #MIXED,
  sizeCategory: #L,
  serviceQuality: #C
}

@AccessControl.authorizationCheck: #CHECK
@AccessControl.personalData.blocking: #REQUIRED

@ClientHandling.algorithm: #SESSION_VARIABLE
define view P_RevnRecgnJournalEntryItem
  with parameters
    P_Language : sylangu
  as select from I_GLAccountLineItem 
    association [1..1] to I_GLAccountLineItem as _GLAccountLineItem on $projection.Ledger = _GLAccountLineItem.Ledger
                                                                   and $projection.SourceLedger = _GLAccountLineItem.SourceLedger
                                                                   and $projection.CompanyCode = _GLAccountLineItem.CompanyCode
                                                                   and $projection.FiscalYear = _GLAccountLineItem.FiscalYear
                                                                   and $projection.AccountingDocument = _GLAccountLineItem.AccountingDocument
                                                                   and $projection.LedgerGLLineItem = _GLAccountLineItem.LedgerGLLineItem
 
  association [0..1] to I_ProfitCenterText as _ProfitCenterText on $projection.ControllingArea = _ProfitCenterText.ControllingArea
                                                               and $projection.ProfitCenter    = _ProfitCenterText.ProfitCenter
                                                               and $projection.PostingDate    >= _ProfitCenterText.ValidityStartDate
                                                               and $projection.PostingDate    <= _ProfitCenterText.ValidityEndDate
                                                               and _ProfitCenterText.Language  = $parameters.P_Language
                                                                   
{
  key Ledger,
  
  key SourceLedger,
  
  key CompanyCode,
  
  key FiscalYear,
  
  key AccountingDocument,
  
  key LedgerGLLineItem,
  
  ReferenceDocument,
  BusinessTransactionType,
  
  cast (
   case BusinessTransactionType
    when 'TBRR' then 'R' //recognized

    else 'A' //actual

    end as fco_revn_recgn_postg_type 
   ) as RevnRecgnGLLineItmPostgType,

  FiscalPeriod,
  FiscalYearPeriod,
  
  GLAccount,
  GLAccountType,
  DebitCreditCode,
  ChartOfAccounts,

  Project,
  ProjectInternalID,
  WBSElement,
  WBSElementInternalID,
  SalesOrder,
  SalesOrderItem,

  BalanceTransactionCurrency,
  AmountInBalanceTransacCrcy,

  TransactionCurrency,
  AmountInTransactionCurrency,

  CompanyCodeCurrency,
  AmountInCompanyCodeCurrency,

  GlobalCurrency,
  AmountInGlobalCurrency,
  
  ProfitCenter,
  _ProfitCenterText.ProfitCenterName,
  OriginProfitCenter,
  CostCenter,
  CostCtrActivityType,
  
  _CompanyCodeText.CompanyCodeName,
  
  AccountingDocCreatedByUser,
  AccountingDocumentType,
  DocumentDate,
  PostingDate,
  CreationDateTime,
  
  AccountingDocumentCategory,

  _GLAcctInChartOfAccountsText[1:Language = :P_Language ].GLAccountName,
  

  PartnerWBSElementInternalID,
  
  ControllingArea,

  _Ledger,
  _SourceLedger,
  _CompanyCode,
  _FiscalYear,
  _JournalEntry,
  _GLAccountInChartOfAccounts,

  /* For authorization purposes */
  _GLAccountLineItem
} where AccountingDocumentCategory <> 'C' and (WBSElement is not initial or Project is not initial)