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