R_ManageJournalEntryAmount

@AbapCatalog.viewEnhancementCategory: [#NONE]
@AccessControl.authorizationCheck: #MANDATORY
@EndUserText.label: 'Journal Entry Amount'
@Metadata.ignorePropagatedAnnotations: true
@ObjectModel.usageType:{
  serviceQuality: #X,
  sizeCategory: #XXL,
  dataClass: #MIXED
}

@UI.headerInfo: {
  typeName: 'Document',
  typeNamePlural: 'Documents',
  title: {
    value: 'AccountingDocument',
    label: 'Document'
  },
  description: { type: #STANDARD, value: 'AccountingDocument' }
}

@VDM: {
  viewType: #COMPOSITE,
  lifecycle.contract.type:#SAP_INTERNAL_API
}

//docln

//buzei - link


//bstat - U only ACDOCA

//L - bseg_add

//rest - bseg & ACDOCA joachim becker


define view entity R_ManageJournalEntryAmount
  as select
  from R_MngJrnlEntryLedgerViewAmount  as _JournalEntryItemAggr
  
{
 
  key _JournalEntryItemAggr.CompanyCode, // BUKRS

  
  key _JournalEntryItemAggr.FiscalYear, // GJAHR

  
  key _JournalEntryItemAggr.AccountingDocument, // BELNR

  
  _JournalEntryItemAggr.CompanyCodeCurrency,
  
  @Semantics.amount.currencyCode: 'CompanyCodeCurrency'
  _JournalEntryItemAggr.AmountInCompanyCodeCurrency,
  
  _JournalEntryItemAggr.TransactionCurrency,
  
  @Semantics.amount.currencyCode: 'TransactionCurrency'
  _JournalEntryItemAggr.AmountInTransactionCurrency,
  
  _JournalEntryItemAggr.FunctionalCurrency,
  
  @Semantics.amount.currencyCode: 'FunctionalCurrency'
  _JournalEntryItemAggr.AmountInFunctionalCurrency

}
// where condition in view from which we select data


union

select
  from R_MngJrnlEntryEntryViewAmount as _AcctgDocItem
  
{
  key _AcctgDocItem.CompanyCode, // BUKRS

  
  key _AcctgDocItem.FiscalYear, // GJAHR

  
  key _AcctgDocItem.AccountingDocument, // BELNR

  
  _AcctgDocItem.CompanyCodeCurrency,
  
  _AcctgDocItem.AmountInCompanyCodeCurrency,
  
  _AcctgDocItem.TransactionCurrency,
  
  _AcctgDocItem.AmountInTransactionCurrency,
  
  _AcctgDocItem.FunctionalCurrency,
  
  _AcctgDocItem.AmountInFunctionalCurrency

}
where _AcctgDocItem.AccountingDocumentType <> 'AA'

union
select 
  from R_MngJrnlEntrPrkdDocItemAmount as _ParkedAmount
  
{
  key _ParkedAmount.SourceCompanyCode as CompanyCode,
  key _ParkedAmount.SourceFiscalYear as FiscalYear,
  key _ParkedAmount.SourceAccountingDocument as AccountingDocument,

  _ParkedAmount.TransactionCurrency as CompanyCodeCurrency,
  _ParkedAmount.AmountInCompanyCodeCurrency,
  _ParkedAmount.TransactionCurrency,
  _ParkedAmount.AmountInTransactionCurrency,
  _ParkedAmount.TransactionCurrency as FunctionalCurrency,
  abap.curr'0.00' as AmountInFunctionalCurrency
  
  }