TgdvAcctBase

Версия 18:52, 9 декабря 2008

Базовый объект для бухгалтерских отчетов.

 TgdvAcctBase = class(TIBCustomDataSet)
 public
   // Показывать суммы в рублях
   procedure ShowInNCU(Show: Boolean; DecDigits: Integer = -1; Scale: Integer = 0);
   // Показывать суммы в валюте
   procedure ShowInCurr(Show: Boolean; DecDigits: Integer = -1; Scale: Integer = 0; CurrKey: TID = -1);
   // Показывать суммы в эквиваленте
   procedure ShowInEQ(Show: Boolean; DecDigits: Integer = -1; Scale: Integer = 0);
 
   // Добавляет счета, по которому будет выполняться расчет
   procedure AddAccount(AccountKey: TID); 
   // Добавляет счета, по котором будут считаться корреспондирующие проводки
   procedure AddCorrAccount(AccountKey: TID);
   // Добавляет условие, например USR$GS_CUSTOMER = 147567392
   procedure AddCondition(FieldName: String; AValue: String);
   // Добавляет количественную аналитику
   procedure AddValue(ValueKey: TID; ValueName: String);
 
   // Загрузить конфигурацию отчета по переданному ID из таблицы AC_ACCT_CONFIG
   procedure LoadConfig(AID: TID);
   // Сохранить текущую конфигурацию отчета, возвращает ID сохраненной конфигурации
   function SaveConfig: TID;
 
   // Очистить конфигурацию и результаты отчета
   procedure Clear; virtual;
   // Построить отчет
   procedure BuildReport;
   // Загрузить конфигурацию и построить отчет
   procedure Execute(ConfigID: TID);
 
   // Дата начала периода
   property DateBegin: TDate;
   // Дата окончания периода
   property DateEnd: TDate;
   // Построить пустой отчет
   property MakeEmpty: Boolean;
   // ID компании
   property CompanyKey: TID;
   // Строить отчет по всему холдингу указанному в CompanyKey
   property AllHolding: Boolean;
   // Включать субсчета
   property WithSubAccounts: Boolean;
   // Включать внутренние проводки
   property IncludeInternalMovement: Boolean;
   // Расширенное отображение полей
   property ShowExtendedFields: Boolean;
 end;