procedure TFrmOsn.QAccBeforePost(DataSet: TDataSet);
begin
  Date_nper := QAcc.FieldValues['Date_nper'];
  Pkz_n := QAcc.FieldValues['Pkz_n'];
  Base := QAcc.FieldValues['Base_id'];
  Q5.SQL.Clear;
  Q5.SQL.Add('select Pkz_n from Account where Date_nper=(SELECT  max
(Date_nper) From Account WHERE Date_nper<:Date_nper) and Base_id=:Base');
  Q5.Params[ 0 ].AsDate := Date_nper;
  Q5.Params[ 1 ].AsFloat := Base;
  Q5.Open;
  Pkz_n_0 := Q5.Fields[ 0 ].AsFloat;
  if Pkz_n_0 <>  0  then begin
    Pkz := Pkz_n - Pkz_n_0;
  end else
    Pkz :=  0 ;
  QAcc.FieldValues['Pkz'] := Pkz;
  Q5.Close;
  DecodeDate(Date_nper,Year,month,day);
  BeginDate:=EncodeDate(Year, 1 , 1 );
  EndDate:=EncodeDate(Year, 12 , 31 );
  Q5.SQL.Clear;
  Q5.SQL.Add('select SUM(Kol_norm) from Account where Date_nper>=:BeginDate
and Date_nper<=:EndDate and Base_id=:Base');
  Q5.Params[ 0 ].AsDate := BeginDate;
  Q5.Params[ 1 ].AsDate := EndDate;
  Q5.Params[ 2 ].AsFloat := Base;
  Q5.Open;
  Sum_kol_norm:= Q5.Fields[ 0 ].AsFloat;
  Label28.Caption := Q5.Fields[ 0 ].AsString;
  Q5.Close;
  If (Sum_kol_norm-QAccKol_Norm.Value) >  12  then
     Begin
     ShowMessage('ВНИМАНИЕ норма на   ''' +IntToStr(Year)+'''  год
израсходована');
     QAccKol_Norm.Value:= 0 ;
     end
  else If QAccKol_norm.Value > ( 12  - Sum_kol_norm)then
       Begin
            ShowMessage('ВНИМАНИЕ норма на   ''' +IntToStr(Year)+'''  год
израсходована');
       QAccKol_norm.Value := ( 12  - Sum_kol_norm);
       end;
  QAccNorm.Value:=QAccKol_norm.Value*TabLgtNmonth.Value;
  QAccSum_lgt.Value:=(QAccNorm.Value*TabLgtTarif_id.Value*TabLgtPrivilege.Value)/ 100 . 00 ;
  QAccSum_pkz.Value:=QAccpkz.Value*TabLgtTarif_id.Value-QAccSum_lgt.Value;
  QAccSum.Value:=QAccSum_lgt.Value+QAccSum_pkz.Value;
end;

Account_id	Ключ лицевого счёта 
Base_id	Ключ плательщика задолженности (Account.base_id =Base.Base_id)
Num_acc	Номер лицевогосчёта
Date_opl	Дата оплаты (дата приёма платежа).
Type_met	Тип счётчика
Pkz_n	Начальные показания счётчика (показания на последнюю дату оплаты).
Pkz_e	Конечные показания счётчика (показания  на «текущую дату»).
Date_ust	Дата установки счётчика.
Date_pov	Дата последней поверки счётчика.
Pkz	Количество кВт./ч по показаниям счётчика.
Sum_lgt	Сумма льготы (стоимость льготы) за период оплаты.
Sum_pkz	Сумма оплаты с учётом льготы.
Norm	Норматив в кВт./ч за период оплаты.
Date_nper	Дата начала периода оплаты.
Date_kper	Дата конца периода оплаты.
Day_per	Количество дней периода. (не используется).

If (Sum_kol_norm) >  12  then
     Begin
     ShowMessage('ВНИМАНИЕ норма на   ''' +IntToStr(Year)+'''  год
израсходована');
     QAccKol_Norm.Value:= 0 ;
     end
  else If QAccKol_norm.Value > ( 12  - Sum_kol_norm)then
       Begin
            ShowMessage('ВНИМАНИЕ норма на   ''' +IntToStr(Year)+'''  год
израсходована');
       QAccKol_norm.Value := ( 12  - Sum_kol_norm);
       end;