Просмотр исходного текста страницы GdvAcctBase.TgdvAcctBase

{{ClassDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|class={{#explode:{{PAGENAME}}|.|1}}|src=TgdvAcctBase = class(TIBCustomDataSet)}}

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

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

<source lang="pascal">
  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;
</source>

'''Значения по умолчанию'''

  DateBegin - текущая дата
  DateEnd - текущая дата
  MakeEmpty - false
  CompanyKey - ID текущей рабочей организации
  AllHolding - true
  WithSubAccounts - false
  IncludeInternalMovement - false
  ShowExtendedFields - false

'''Вывод сумм по умолчанию'''

По умолчанию выводятся только суммы в рублях. Кол-во знаков после запятой берется из системных настроек, масштаб равен 1.