LOCAL objExcel, lnrow

SELECT clients.name, clients.serial_pas, clients.number_pas, product.name_product, orders.data_zakaza;

FROM clients, orders, product;

INTO CURSOR cur_report;

WHERE (clients.clientid=orders.clientid) AND (orders.data_zakaza="22/01/05") AND (product.name_product="Acer")

objExcel=CreateObject("Excel.Application")

WITH objExcel

.Visible=.T.

.Workbooks.add

.Columns[1].ColumnWidth=20

.Columns[2].ColumnWidth=12

.Columns[3].ColumnWidth=10

.Columns[4].ColumnWidth=15

.Columns[5].ColumnWidth=7

.Range("A1:E1").Select

WITH .Selection

.MergeCells=.t.

ENDWITH

WITH .ActiveCell

.Value = "Клиенты"

.Font.Size = 14

ENDWITH

lnrow = 2

SELECT cur_report

SCAN

lnrow = lnrow + 1

.Cells(lnrow,1).value = cur_report.name

.Cells(lnrow,2).value = cur_report.serial_pas

.Cells(lnrow,3).value = cur_report.number_pas

.Cells(lnrow,4).value = cur_report.name_product

.Cells(lnrow,5).value = cur_report.data_zakaza

ENDSCAN

ENDWITH