procedure TfrmASNAOstatokTovara.AvtozakazClick(Sender: TObject);
var i: integer;
  PNode: PVirtualNode;
begin
  if Avtozakaz.Caption = 'Показать только фиктивные' then
   begin
    try
      vt.beginupdate;
       for i := 0 to vt.TotalCount - 1 do
    begin
      if I <> 0 then
        PNode := VT.GetNext(PNode)
      else
        PNode := VT.GetFirst;
      T := VT.GetNodeData(PNode);
      if (t.Bg <> clSkyBlue) then Vt.IsFiltered[PNode] := true;
    end;
    finally
      vt.EndUpdate;
    end;
    Avtozakaz.Caption := 'Показать все';
  end
  else
  begin
     try
      vt.beginupdate;
       for i := 0 to vt.TotalCount - 1 do
    begin
      if I <> 0 then
        PNode := VT.GetNext(PNode)
      else
        PNode := VT.GetFirst;
       Vt.IsFiltered[PNode] := false;
    end;
    finally
      vt.EndUpdate;
    end;
    Avtozakaz.Caption := 'Показать только выбранные';
  end;
end;

if FileExists(ExtractFileDir(application.ExeName)+'\Shablon\ASNAOstatokTovara.xlt') then
  begin
   frmMessage.lblMessage.Caption := 'Формирование отчета. Ждите...';
   frmMessage.Show();
   application.ProcessMessages;
   try
      if LoadExcelReportType(mainForm.sIniFile, frmASNAOstatokTovara.Name) = 1 then
      SaveToExcelArray(
         SaveToExcelArray(VT, ExtractFileDir(application.ExeName)+'\Shablon\ASNAOstatokTovara.xlt', P)
      else
         SaveToExcel(VT, ExtractFileDir(application.ExeName)+'\Shablon\ASNAOstatokTovara.xlt', P);
   finally
    frmMessage.Close;
   end;

  end
  else Showmessage('Нет файла шаблона '+ExtractFileDir(application.ExeName)+'\Shablon\ASNAOstatokTovara.xlt');

function SaveToExcelArray(VT: TVirtualStringTree; AFileName: string; AParams: TRepParameters):boolean;
var
  iRow, iCol: Integer;
  RowCount, ColCount: Integer;
  BeginRow, BeginCol: integer;
  Str: string;
  XLApp, sheet, range : oleVariant;
  ArrayData , Cell1, Cell2 : Variant;
  nstr,  j, i: Integer;
  LastNode: PVirtualNode;
  D: Double;
begin
  // Create Excel-OLE Object
  Result:=false;
  nstr:=0;
  i:=0;
  BeginCol := 1;
  BeginRow := 1;


  XLApp := CreateOleObject('Excel.Application');
  try



    // Hide Excel
    XLApp.Visible := False;
    // Add new Workbook
    XLApp.Workbooks.Add(AFileName);
    Sheet := XLApp;//.Workbooks[1];//.WorkSheets[1];

  // Чтобы знать размер листа (WorkSheet), т.е. количество строк и количество
  // столбцов, мы активируем его последнюю непустую ячейку



         Sheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
  // Получаем значение последней строки
         iRow := XLApp.ActiveCell.Row;
  // Получаем значение последней колонки
         iCol := XLApp.ActiveCell.Column;

//         range:= XLApp.Range['A1:'+xlRCtoA1(iRow, iCol)].select;

  // Левая верхняя ячейка области, в которую будем выводить данные
  Cell1 := Sheet.Cells[BeginRow, BeginCol];
  // Правая нижняя ячейка области, в которую будем выводить данные
  Cell2 := Sheet.Cells[iRow, iCol];


  // Область, в которую будем выводить данные
  Range := Sheet.Range[Cell1, Cell2];



    FindAndReplace(XLApp,Unassigned, '&nomerdoc',AParams.NomerDoc);
    FindAndReplace(XLApp,Unassigned,'&ldatedoc',AParams.lDateDoc);
    FindAndReplace(XLApp,Unassigned,'&ldatedoc',AParams.lDateDoc);
    FindAndReplace(XLApp,Unassigned,'&sdatedoc',AParams.sDateDoc);
    FindAndReplace(XLApp,Unassigned,'&begindate',AParams.BeginDate);
    FindAndReplace(XLApp,Unassigned,'&enddate',AParams.enddate);
    FindAndReplace(XLApp,Unassigned,'&strpar1',AParams.strpar1);
    FindAndReplace(XLApp,Unassigned,'&strpar2',AParams.strpar2);
    FindAndReplace(XLApp,Unassigned,'&strpar3',AParams.strpar3);

   // подвал
   FindAndReplace(XLApp,Unassigned, '&itog_n',AParams.itog_n);
   FindAndReplace(XLApp,Unassigned, '&itog_s',AParams.itog_s);
   FindAndReplace(XLApp,Unassigned, '&itog_k',AParams.itog_k);
   FindAndReplace(XLApp,Unassigned, '&kolstr_s',AParams.itog_kolstr_s);


    // табличная часть


    // табличная часть
    range:=XLApp.Range['A1:'+xlRCtoA1(iRow, iCol)].Find('&column') ;
//    range:=XLApp.Range['A1:Z200'].Find('&column');
    BeginCol := range.column;
    BeginRow := range.row;

    if not VarIsClear(Range) then
     begin
      // есть табличная часть
      // Fill up the sheet
      LastNode := VT.GetFirst;


  // Размеры выводимого массива данных
  for J := 0 to High(AParams.numColumn) do
        begin
          range:=XLApp.Range['A1:'+xlRCtoA1(iRow, iCol)].Find('&column'+inttostr(j)) ;
         // range:=XLApp.Range['A1:Z200'].Find('&column'+inttostr(j));
          if not VarIsClear(Range) then
          begin
             AParams.numColumn[j] := true;
          //if AParams.numColumn[j] then
          i:=i+1;
          end;

        end;

  RowCount := VT.TotalCount;
  ColCount := i;
// Создаем Вариантный Массив, который заполним выходными данными
  ArrayData := VarArrayCreate([1, RowCount+1, 1, ColCount+1], varVariant);

      //range:=XLApp.Range['A1:Z200'].Find('&column');
      range:=XLApp.Range['A1:'+xlRCtoA1(iRow, iCol)].Find('&column') ;


      while LastNode <> nil do
      begin
       nstr:=nstr+1;
       if nstr > 1 then
       begin

       Range.EntireRow.Copy(EmptyParam);
       range.EntireRow.Insert(xlUp,EmptyParam);
       Range.PasteSpecial(xlPasteFormats,xlNone,False,False);


       end;
       Application.ProcessMessages;
      i:=0;
      for j := 0 to High(AParams.numColumn) do
         if AParams.numColumn[j] then
         begin
          if (Pos('E', VT.Text[LastNode, J]) = 0) and
             (Pos('e', VT.Text[LastNode, J]) = 0) and  TryStrToFloat(VT.Text[LastNode, J], D) then
            ArrayData[nstr, i+1] := D
          else
          begin
            ArrayData[nstr, i+1] := VT.Text[LastNode, J];
          end;
            inc(i);
         end;


       LastNode := VT.GetNext(LastNode);
     end;
     end;


  // Левая верхняя ячейка области, в которую будем выводить данные
  Cell1 := Sheet.Cells[BeginRow, BeginCol];
  // Правая нижняя ячейка области, в которую будем выводить данные
  Cell2 := Sheet.Cells[BeginRow  + RowCount - 1, BeginCol + ColCount - 1];


  // Область, в которую будем выводить данные
  Range := Sheet.Range[Cell1, Cell2];
  Range.Value := ArrayData;

  FindAndReplace(XLApp,Unassigned, '&itog_n',AParams.itog_n);
  FindAndReplace(XLApp,Unassigned, '&itog_s',AParams.itog_s);



  // встаем на первую ячейку
  //Sheet.Cells[1,1].Select;
XLApp.Range['a1','a1'].Select;


    XLApp.Visible:=True;
    PostKeyEx32(VK_ESCAPE , [], false);
  except
   // Quit Excel
    if not VarIsEmpty(XLApp) then
    begin
      Range := Unassigned;
      Sheet := Unassigned;
      XLAPP := Unassigned;
    end;
  end;

   // Quit Excel
    if not VarIsEmpty(XLApp) then
    begin
      Range := Unassigned;
      Sheet := Unassigned;
      XLAPP := Unassigned;
    end;

    Result:=true;

end;