&НаСервере Процедура ВыгрузкаДанныхНаСервере() База = Новый XBase; База.Кодировка = КодировкаXBase.OEM; База.Поля.Добавить("Abonent","S",60); База.Поля.Добавить("Summa","N",12); База.Поля.Добавить("Kod","S",60); База.Поля.Добавить("Data","D"); База.Поля.Добавить("Nachalo","D"); База.Поля.Добавить("Konec","D"); База.Индексы.Добавить("IDXCODE","Kod",Истина); КолФайлов = НайтиФайлы(НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive", "*.dbf").Количество() + 1; ИмяФайла = Строка(КолФайлов) + ".dbf"; ИмяИндекса = Строка(КолФайлов) + ".cdx"; Путь = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ИмяФайла; ПутьКИндексу = НСтр(СтрокаСоединенияИнформационнойБазы(),"File")+"\Archive\" + ИмяИндекса; База.СоздатьФайл(Путь,ПутьКИндексу); База.Записать(); Запрос=Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | _НачисленияДоговоры.Абонент, | _НачисленияДоговоры.Сумма, | _НачисленияДоговоры.Код, | _НачисленияДоговоры.Ссылка.Дата |ИЗ | Документ._Начисления.Договоры КАК _НачисленияДоговоры |ГДЕ | _НачисленияДоговоры.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода"; Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода); Выборка = Запрос.Выполнить().Выбрать(); База.Добавить(); База.Nachalo = НачалоПериода; База.Konec = КонецПериода; База.Записать(); Пока Выборка.Следующий() Цикл База.Добавить(); База.Abonent = Выборка.Абонент; База.Summa = Выборка.Сумма; База.Kod = Выборка.Код; База.Data = Выборка.Дата; База.Записать(); КонецЦикла; База.Записать(); База.ЗакрытьФайл(); КонецПроцедуры