FAC_DART_Z3_GLACCOUNT_CHGDOC_B

@AbapCatalog.sqlViewName: 'FAC_DZGLDCHGDB'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #PRIVILEGED_ONLY
@ObjectModel.usageType.sizeCategory: #S
@ObjectModel.usageType.dataClass:  #MASTER
@ObjectModel.usageType.serviceQuality: #A
@ClientHandling.algorithm: #SESSION_VARIABLE
@Metadata.ignorePropagatedAnnotations: true
@EndUserText.label: 'G/L account change document base'
define view FAC_DART_Z3_GLACCOUNT_CHGDOC_B
  as select from I_ChangeDocumentItem
  association [0..1] to I_ChangeDocument as _header on  $projection.ChangeDocObjectClass = _header.ChangeDocObjectClass
                                                    and $projection.ChangeDocObject      = _header.ChangeDocObject
                                                    and $projection.ChangeDocument       = _header.ChangeDocument

{
  key ChangeDocObjectClass,
  key ChangeDocObject,
  key ChangeDocument,
  key ChangeDocDatabaseTableField,
  key ChangeDocItemChangeType,
      cast( substring( ChangeDocObject, 1, 4 ) as ktopl )  as ChartOfAccount,
      cast( substring( ChangeDocObject, 5, 10 ) as saknr ) as GLAccount,
      cast( substring( ChangeDocObject, 15, 4 ) as bukrs ) as CompanyCode,
      DatabaseTable,
      ChangeDocTableKey,
      ChangeDocPreviousUnit,
      ChangeDocNewUnit,
      ChangeDocPreviousCurrency,
      ChangeDocNewCurrency,
      ChangeDocNewFieldValue,
      ChangeDocPreviousFieldValue,


      ChangeDocTextIsChanged,

      cast( Length(ChangeDocNewFieldValue) as int4 )       as newLength,
      cast( Length(ChangeDocPreviousFieldValue) as int4 )  as oldLength,

      _header.CreatedByUser,
      @Semantics.systemDate.createdAt: true
      _header.CreationDate,
      @Semantics.systemTime.createdAt: true
      _header.CreationTime,
      _header.ChangeTransactionCode,
      _header.ChangeDocChangeType,
      @Semantics.language: true
      //@ObjectModel.foreignKey.association: '_ChangeDocLanguage'

      _header.ChangeDocLanguage,

      case
        when DatabaseTable = 'SKAT' and ChangeDocItemChangeType = 'I'
          then cast( substring( ChangeDocTableKey, 4, 1 ) as spras )
        else
          cast( '' as spras )
      end                                                  as GLACCOUNTLANGUAGEKEY,

      /* Associations */

      _ChangeDocLongTableKey,
      _ChangeDocument,
      _ChangeDocumentItemExtension,

      _header
}
where
  ChangeDocObjectClass = 'SACH'
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_CHANGEDOCUMENT",
"I_CHANGEDOCUMENTITEM"
],
"ASSOCIATED":
[
"I_CHANGEDOCLONGTABLEKEY",
"I_CHANGEDOCUMENT",
"I_CHANGEDOCUMENTITEMEXTENSION"
],
"BASE":
[
"I_CHANGEDOCUMENTITEM"
],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/