Стандартный интерфейс оборотов ?

[Masygreen]

Есть такая классная штука

Код: Выделить всё

Calc_NewSaldo

, а есть аналог для расчета оборотов? Допустим кредитовые обороты по счету, дебетовые по счету, обороты между счетами ?

[Den]

Знаю, что была функциональность по расчета всяких там ПАТ-формул, доступная из ВИП. но сам не юзал...

Функции для доступа к серверу расчета формул.

Функциональность сервера расчета формул используется в разных метах системы Галактика. Это ПАТ отчеты, Бухгалтерский Калькулятор, Формулы в ТХО. Здесь приводится список функций помощью которых можно в своих прикладных алгоритмах использовать язык формул типовой отчетности.

function FormExInit : boolean;
Инициализирует сервер расчета формул.

procedure FormExDone;
Закрывает сервер расчета формул.

procedure FormExClearFormula; - очистить внутренний список формул.

function FormExAddKey(aKey, aExprNde, aExprVal, aExprKol, aComment: String) : boolean;
Добавить формулу во внутренний список сервера расчетов.
aKey - ключ формулы.
aExprNde, aExprVal, aExprKol - арифметическое выражение для трех составляющих НДЕ, Валюта, Количество.
aComment - Комментарий для отображения в протоколе.

procedure FormExDelKey(aKey : String);
Удалить из списка формулу с заданным ключом.

function FormExStartCount(aCheck : word) : boolean;
Запустить расчет для формул хранящихся в списке.
aCheck - режим расчета: 0 - нормальный расчет числовых значений, 1 - только проверка синтаксиса. Если все формулы были рассчитаны успешно результат будет TRUE. Если были ошибки синтаксиса формул, или прочие ошибки расчетов результат будет FALSE.

function FormExGetKeyValues(aKey : String; var vNde, vVal, vKol : double) : boolean;
Прочитать результат расчета формулы с заданным колючем. Если формула не была рассчитана или была рассчитана неверно результат будет FALSE.
aKey - ключ формулы.
vNde, vVal, vKol - возвращаемые рассчитанные значения для трех составляющих НДЕ, Валюта, Ко-личество.


Tpp_Reg.pas :
// Сервер расчета формул
function FormExInit : boolean;
procedure FormExDone;
procedure FormExClearFormula;

procedure FormExSetPatAutoPeriod(AutoBeginDate, AutoEndDate, AutoBaseDate : date);
procedure FormExSetPatPeriod(BeginDate, EndDate : date);
procedure FormExSetPatDateHoz(DateHoz : date);

function FormExAddKey(aKey, aExprNde, aExprVal, aExprKol, aComment: String) : boolean;
procedure FormExDelKey(aKey : String);
function FormExStartCount(aCheck : word) : boolean;
function FormExGetKeyValues(aKey : String; vNde, vVal, vKol : PField) : boolean;
function FormExGetKeyValuesPasStr(aKey: String; var vNde, vVal, vKol : String):boolean;

[Masygreen]

йа воль .. именно из vip ... если доку или примеры использования толковые не найду, буду как всегда прямым sql
спасибо