Set Dele On
Set Excl Off
Set Safe Off
Set Bell Off
Set Century On
Close All
* ввод значений КТ и КЕ
Clea
KT= 1 
@  7 , 7  Say 'Введите значения:'
@  9 , 10  Say 'Kt='
@  9 , 17    Get  KT
KE= 1 
@  11 , 10  Say 'Ke='
@  11 , 17   Get  KE
Read
* Открытие нужного файла
N=Locfile ('value')
* перекодирование текста
d=Filetostr(N)
d=Cpconvert( 866 , 1251 ,d)
Strtofile(d,'n')
* копирование данных из TXT в ДБФ
Select  1 
Use d:\проба\Fider.Dbf Excl
Zap
Append From 'n' Delimited With Tab
* обрезает пробелы
Replace All uslov With Alltrim(uslov)
* переброс первой части - '30 минут' и удаление пробелов
Replace All Min With Val(Left(uslov,At(' ',uslov)))
Replace All uslov With Substr(uslov,At(' ',uslov))
Replace All uslov With Alltrim(uslov)
* переброс значения всех видов энергий
Replace All energ1 With Val(Left(uslov,At(' ',uslov)))
Replace All uslov With Substr(uslov,At(' ',uslov))
Replace All uslov With Alltrim(uslov)

Replace All energ2 With Val(Left(uslov,At(' ',uslov)))
Replace All uslov With Substr(uslov,At(' ',uslov))
Replace All uslov With Alltrim(uslov)

Replace All energ3 With Val(Left(uslov,At(' ',uslov)))
Replace All uslov With Substr(uslov,At(' ',uslov))
Replace All uslov With Alltrim(uslov)

Replace All energ4 With Val(uslov)
Replace All uslov With 'все'

* чистка базы
Select  3 
Use d:\проба\chasi1.Dbf Excl
Zap
* суммирование и переброс данных в таблицу
Select Fider.Fider, Fider.date_sn, "01:00", Sum(Fider.Min),;
	SUM(Fider.energ1), Sum(Fider.energ2), Sum(Fider.energ3),;
	SUM(Fider.energ4);
	FROM Fider!Fider;
	WHERE  Fider.vremya='00:30' Or Fider.vremya='01:00';
	GROUP By Fider.Fider, Fider.date_sn;
	INTO Table d:\проба\chasi.Dbf
Select  3 
Append From d:\проба\chasi.Dbf

Select  1 
Use d:\проба\общая.Dbf Excl
Zap
Select  2 
Use d:\проба\Chasi1.Dbf
Select Chasi1.Fider, Chasi1.date_sn, Chasi1.exp_3, Chasi1.sum_min,;
	Chasi1.sum_energ1*KT/KE, Chasi1.sum_energ2*KT/KE,;
	Chasi1.sum_energ3*KT/KE, Chasi1.sum_energ4*KT/KE;
	FROM Chasi1;
	ORDER By Chasi1.date_sn, Chasi1.exp_3;
	INTO Table d:\проба\общая.Dbf
*copy to D:\проба\rez.xls type xls


Copy To 'D:\проба\rez.xls' Xl5 As  1251 
Use In Select("balans")

Local XLApp, XLSheet, loRange
XLApp = Getobject('', 'excel.application')
XLApp.Visible= .F.
XLApp.WorkBooks.Add('D:\проба\rez.xls')
XLApp.ActiveWindow.WindowState =  2 
XLSheet= XLApp.ActiveSheet
XLSheet.Range("A1").Select
XLApp.Selection.EntireColumn.Insert

XLSheet.Range("E2:P" + Alltrim(Str(XLSheet.UsedRange.Rows.Count + 1 ))).NumberFormat = "#,##0.00"

With XLSheet
	.Range("A1").Value = "№"
	.Range("B1").Value = "Наименование Фидера"
	.Range("C1").Value = "Дата снятия показаний"
	.Range("D1").Value = "Часовой промежуток времени"
	.Range("E1").Value = "период"
	.Range("F1").Value = "Активная отдача (КВт*ч)"
	.Range("G1").Value = "Активный прием (КВт*ч)"
	.Range("H1").Value = "Реактивная отдача(КВт*ч)"
	.Range("I1").Value = "Реактивный прием (КВт*ч)"

	For lnPer= 1  To .UsedRange.Rows.Count -  2 
		.Range("A" + Alltrim(Str(lnPer +  1 ))).Value = lnPer
		If Inkey() =  27  Then
			Exit
		Endif
	Next
Endwith
XLApp.ActiveWindow.SplitColumn =  2 
XLApp.ActiveWindow.SplitRow =  1 
XLApp.ActiveWindow.FreezePanes = .T.
XLApp.Cells.Select
XLApp.Selection.Columns.AutoFit
XLApp.DisplayAlerts = .F.
XLApp.ActiveWorkbook.SaveAs('D:\проба\rez.xls',  1 )
XLApp.DisplayAlerts = .T.
XLSheet.Range("A1").Select

XLApp.Visible= .T.
Read Events