UID:UID уникальный ключ
Period: date/datetime not null Момент движения
Debet: boolean not null, true – увеличение ресурса, false - уменьшение 
<Измерения> Измерения разрезов ресурсов
<Ресурсы> Аккумулирующие ресурсы

UID:UID уникальный ключ
Period: date/datetime not null Начало следующего периода
<Измерения> Измерения разрезов остатков ресурсов
<Ресурсы> Остатки ресурсов

Balance (Point:date/datetime): table(<Измерения>, <Ресурсы>)
//остатки ресурсов на дату/время по всем измерениям
Select <Измерения>, SUM(<Ресурсы>)
From
	(Select <Измерения>, <Ресурсы>
	From BalanceTable
	Where (Period=BeginPeriod(Point))
	Union All
	Select <Измерения>, 
Case 
When Debet Then <Ресурсы>
Else -<Ресурсы> 
End 
	From TurnoverTable
	Where (Period between BeginPeriod(Point) and Point))
Group by <Измерения>

DimensionBalance (Point:date/datetime , dimension:<Измерения>): <Ресурсы>
//остатки ресурсов на дату/время по одному набору измерений
Select <Измерения>, SUM(<Ресурсы>)
From
	(Select <Измерения>, <Ресурсы>
	From BalanceTable
	Where (Period=BeginPeriod(Point)) and (dimension=<Измерения>)
	Union All
	Select <Измерения>, 
Case 
When Debet Then <Ресурсы>
Else -<Ресурсы> 
End 
	From TurnoverTable
	Where (Period between BeginPeriod(Point) and Point) and (dimension=<Измерения>))

TurnoverAndBalance (BeginPoint, EndPoint:date/datetime): table(<Измерения>, BeginBalance, DebetTurnover, CreditTurnover, EndBalance: <Ресурсы>)
//движения и остатки ресурсов за период по всем измерениям
Select <Измерения>, SUM(BeginBalance), SUM(DebetTurnover), SUM(CreditTurnover), SUM(BeginBalance)+SUM(DebetTurnover)-SUM(CreditTurnover)
From
	(Select <Измерения>, <Ресурсы> as BeginBalance, null as DebetTurnover, null as CreditTurnover
	From Balance (BeginPoint)
	Union All
	Select <Измерения>, 
Case 
When Debet Then <Ресурсы>
Else -<Ресурсы> 
End,
Case 
When Debet Then <Ресурсы>
Else null 
End,
Case 
When Debet Then null
Else <Ресурсы>
End
	From TurnoverTable
	Where (Period between BeginPoint and EndPoint))
Group by <Измерения>

TurnoverTable.OnAfterInsert
CurrentPeriod := AddPeriod(StartPeriod(new.Period));
If new.Debet then
	K:= 1 
Else
	K:=- 1 ;
If (Select Count(*) From BalanceTable Where (<Измерения>=new.<Измерения> and Period= CurrentPeriod) =  0 
Then
	Insert BalanceTable(Period, <Измерения>, <Ресурсы>) Values (CurrentPeriod, new. <Измерения>, K*new.<Ресурсы>)
Else
	Update BalanceTable
	Set <Ресурсы>:=<Ресурсы>+K*new.<Ресурсы>
	Where (<Измерения>=new.<Измерения> and Period>=CurrentPeriod);

TurnoverTable.OnAfterDelete
CurrentPeriod := AddPeriod(StartPeriod(new.Period));
If new.Debet then
	K:= 1 
Else
	K:=- 1 ;
If (Select Count(*) From BalanceTable Where (<Измерения>=new.<Измерения> and Period= CurrentPeriod) =  0 
Then
	Insert BalanceTable(Period, <Измерения>, <Ресурсы>) Values (CurrentPeriod, new. <Измерения>, -K*new.<Ресурсы>)
Else
	Update BalanceTable
	Set <Ресурсы>:=<Ресурсы>-K*new.<Ресурсы>
	Where (<Измерения>=new.<Измерения> and Period>=CurrentPeriod);

TBalanceRigister<A,B,C>=generic

	table TurnoverTable
		Period: datetime not null;
		Debet: boolean not null;
		Dimension: A;
		Resource: B;
		Information: C;
	end;

	table BalanceTable
		Period: datetime not null;
		Dimension: A;
		Resource: B;
	end;

	function Balance<X,Y>(Point:datetime; Filter:function(A,B):boolean=((p,q)=>true); GroupBy:function(A):X=(p=>p); SumBy:function(B):Y=(p=>p)):table(Dim:X,Res:Y);
	begin
		for select GroupBy(Dimension) as Dim, SUM(SumBy(Resource)) as Res
			from
			(	select Dimension, Resource
				from BalanceTable
				where (Period=BeginPeriod(Point))
				union all
				select Dimension, 
					case 
					when Debet then Resource
					else -Resource
					end
					from TurnoverTable
				where (Period between BeginPeriod(Point) and Point)
			)
			where Filter(Dimension, Resource)
			group by GroupBy(Dimension) do
				yield (Dim,Res);
	end;

end;