TgdvAcctLedger

Версия 14:12, 16 июня 2009

Объект бухгалтерского отчета Журнал-ордер.

Иерархия наследования

TIBCustomDataSet - TgdvAcctBase - TgdvAcctLedger

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

  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;

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

 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(дата проводки).