147
form11.show;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N7Click(Sender: TObject);// формирование книги продаж
var
Excel: Variant;
WorkbookName, WorkbookToSave: string;
i :integer;
sum,sum_nds: double;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Шаблоны\' + 'Книга продаж.xls';
Excel := CreateOleObject('Excel.Application');
WorkbookToSave := GetCurrentDir + '\Документы\Книга продаж.xls';
try
Excel.Workbooks.Open(WorkbookName);
//Экспорт данных из таблиц DB:
// выполнение запроса к базе
Excel.ActiveWorkBook.SaveAs(WorkbookToSave);
with ADOQuery1 do
begin
Close;
Parameters.ParamByName('nd').Value :=datetostr(form8.nd.DateTime);//
ADOTableRespDSDesigner3.KeyValue;
Parameters.ParamByName('kd').Value :=datetostr(form8.kd.DateTime);//
ADOTableRespDSDesigner3.KeyValue;
Open;
148
end;
Excel.Cells[7,4] := datetostr(form8.nd.DateTime);
Excel.Cells[7,6] := datetostr(form8.kd.DateTime);
for i:=14 to ADoquery1.Recordset.RecordCount+142 do
begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;
Excel.Rows.Item[i].Select;
Excel.Selection.Copy;
Excel.Rows.Item[i+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
ADoquery1.First;
//////
i:=1;
sum:=0;
sum_nds:=0;
while not ADoquery1.EOF do
begin
Excel.Cells[13+i,2]:='1000'+ADoquery1.Fields[0].AsString;
// if (ADoquery1.Fields[2].AsString='Частное лицо') then
Excel.Cells[13+i,3]:=ADoquery1.Fields[2].AsString+' '
+ADoquery1.Fields[1].AsString ;
// else Excel.Cells[13+i,3]:=ADoquery1.Fields[1].AsString;
Excel.Cells[13+i,4]:=ADoquery1.Fields[3].AsString;
Excel.Cells[13+i,5]:=ADoquery1.Fields[4].AsString;
149
Excel.Cells[13+i,6]:=ADoquery1.Fields[5].AsString;
Excel.Cells[13+i,7]:=ADoquery1.Fields[6].AsString;
sum:=sum+ADoquery1.Fields[6].AsInteger;
Inc(i);
ADoquery1.Next;
end;
Excel.Cells[13+i,7]:= (sum);
Excel.Visible := True;
except
Excel.Quit;
end;
end.