Просмотр исходного текста страницы GdvAcctLedger.TgdvAcctLedger

== Описание ==

<onlyinclude>Объект бухгалтерского отчета [[Журнал-ордер]].</onlyinclude>

'''Свойства и методы'''

<source lang="pascal">
  TgdvAcctLedger = class([[TgdvAcctBase]])
  public
    // Добавить аналитику по которой будут сгруппированы данные
    procedure AddGroupBy(GroupFieldName: String);
    // Добавить уровни аналитики
    procedure AddAnalyticLevel(AnalyticName: String; Levels: String);
  
    // Расшифровка по дебету
    property ShowDebit: Boolean;
    // Расшифровка по кредиту
    property ShowCredit: Boolean;
    // Корреспонденция с субсчетами
    property ShowCorrSubAccounts: Boolean;
    // Расширенное сальдо
    property EnchancedSaldo: Boolean;
    // Подсчет итого пустых строк
    property SumNull: Boolean;
  end;
</source>

'''Значения по умолчанию'''

  ShowDebit - true
  ShowCredit - true
  ShowCorrSubAccounts - false
  EnchancedSaldo - false
  SumNull - false

'''Пример'''

  option explicit
  sub BuildLedgerReport(AccKey, DateBegin, DateEnd)
  dim Creator, Tr, gdvAcctLedger
  
    set Creator = new TCreator
    set Tr = Creator.GetObject(nil, "TIBTransaction", "")
    Tr.DefaultDatabase = gdcBaseManager.Database
    Tr.StartTransaction
  
    set gdvAcctLedger = Creator.GetObject(nil, "TgdvAcctLedger", "")
    gdvAcctLedger.Transaction = Tr
    call gdvAcctLedger.AddAccount(AccKey(0))
    call gdvAcctLedger.AddGroupBy("ENTRYDATE")
    gdvAcctLedger.DateBegin = DateBegin
    gdvAcctLedger.DateEnd = DateEnd
    gdvAcctLedger.BuildReport
  
    Tr.Commit
  end sub

При выполнении этого макроса построится журнал-ордер для переданного счета за период DateBegin – DateEnd, журнал-ордер будет сгруппирован по полю ENTRYDATE(дата проводки).