TgdvAcctLedger

Версия 19:36, 9 декабря 2008

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

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