SYSDBA в 15:11, 10 октября 2012

2012-10-10T15:11:53Z

SYSDBA: Новая страница: «{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgdvAcctLedger = class(TgdvAcctBase)}} == Описание ==
2012-10-10T15:08:20Z

Новая страница: «{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgdvAcctLedger = class(TgdvAcctBase)}} == Описание == <onlyi…»

Новая страница
{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgdvAcctLedger = class(TgdvAcctBase)}}

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

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

@@ Строка 5: / Строка 5: @@
 <onlyinclude>Объект бухгалтерского отчета [[Журнал-ордер]].</onlyinclude>
-==== Свойства и методы ====
+'''Свойства и методы'''
 <source lang="pascal">
@@ Строка 28: / Строка 28: @@
 </source>
-=== Значения по умолчанию ===
+'''Значения по умолчанию'''
    ShowDebit - true
@@ Строка 36: / Строка 36: @@
    SumNull - false
-=== Пример ===
+'''Пример'''
    option explicit