procedure TForm_stat.LoadVT;
var
  SumCheck : Integer;
  SumSum, SumSkidki : Currency;
  Day_prew, Day_next,day : TDate;
  dayfrom,dayto:string;
begin
  try
  frmMessage.lblMessage.Caption := 'Формирование отчета ...';
  frmMessage.Show();
  application.ProcessMessages;

  SumCheck := 0;
    SumSum := 0;

  VT.Clear;
  VT.NodeDataSize := SizeOf(TSrCheckData);

  if not trRead.InTransaction then
    trRead.StartTransaction;
  day:=date.Date;
  dayfrom:=datetostr(day)+' 00:00:00';
  dayto :=datetostr(day)+' 23:59:59';

  readQ.SQL.Clear;
  readQ.SQL.Add ('select extract(hour from datedoc) as d,sum(summa) as summa, count(*) as kolvo ' +
' from alljournaldoc' +
' where datedoc >= '+quotedstr(dayfrom)+' and datedoc <= '+quotedstr(dayto)+'  and id_typedoc=4 and proveden =1 ' +
' group by d');

  readQ.ExecQuery;

  VT.BeginUpdate;

  while not readQ.Eof do
  begin
    Node := VT.AddChild(nil);
    T := VT.GetNodeData(Node);
    T.ID := VT.TotalCount;
    T.data := datetostr(day);
    T.KCheck := readQ.FieldByName('kolvo').AsInteger;
    T.Summ := - readQ.FieldByName('SUMMA').AsCurrency;
    T.interval := readQ.FieldByName('d').Asstring+':00-' +readQ.FieldByName('d').Asstring+':59' ;
    SumCheck := SumCheck + T.KCheck;
    SumSum := SumSum + T.Summ;

    readQ.Next;
  end;
  Node := VT.AddChild(nil);
  T := VT.GetNodeData(Node);
  T.ID := VT.TotalCount;
  T.interval := 'Всего по аптеке: ';
  T.KCheck := SumCheck;
  T.Summ := SumSum;


  readQ.Close;
  if trRead.InTransaction then
    trRead.Rollback;

  VT.EndUpdate;

  finally
  frmMessage.Close;
  end;
end;