sele vprice
	copy to tmp\zakaz field cKatalog, cIzg, cPost, nCena, nKol, nOstat, cUpak, dSrok type xl5
	loEx=newobject("Excel.sheet")
	with loEx.parent
		.Workbooks.Open(fullpath("tmp\zakaz.xls"))
		.range("a1").value="Наименование"
		.range("b1").value="Изготовитель"
		.range("c1").value="Поставщик"
		.range("d1").value="Цена"
		.range("e1").value="Заказ"
		.range("f1").value="Остаток"
		.range("g1").value="Упаковка"
		.range("h1").value="Годен до"
	    .Columns("A:A").ColumnWidth =  40 
	    .Columns("B:B").ColumnWidth =  20 
		.ActiveWorkbook.SaveAs(lcFile,- 4143 )
		.ActiveWorkbook.Close()
	endwith
	release loEx