|
|
| (не показана 1 промежуточная версия 1 участника) |
| Строка 1: |
Строка 1: |
| − | Объект бухгалтерского отчета [[Журнал-ордер]].
| + | См. [[GdvAcctLedger.TgdvAcctLedger]]. |
| − | | + | |
| − | ==== Иерархия наследования ====
| + | |
| − | | + | |
| − | [[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(дата проводки).
| + | |
| − | | + | |
| − | [[Category: Бухгалтерские отчеты]]
| + | |
