Процедура ВыгрузкаОстаткиРуна()
ТекстВыгрузки=СоздатьОбъект("Текст");
СтрокаТекста="";
ФайлВыгрузки=СокрЛП(КаталогОстаткиРуна)+СокрЛП(ИмяФайлаОстаткиРуна);
Если ФС.СуществуетФайл(ФайлВыгрузки)=1 Тогда
Если Вопрос("Файл с таким именем существуе! Заменить?",4)<>6 Тогда
Возврат;
КонецЕсли;
КонецЕсли;
Запрос=СоздатьОбъект("Запрос");
ТекстЗапроса="
|ПЕРИОД С Дата1 По Дата2;
|Фирма=Регистр.ОстаткиТоваров.Фирма;
|Товар=Регистр.ОстаткиТоваров.Товар;
|Кол=Регистр.ОстаткиТоваров.ОстатокТовара;
|Группировка Товар без групп;
|Функция КонКол=КонОст(Кол);
|Условие (Фирма=ВыбФирма);
|";
СписокТоваров = СоздатьОбъект("СписокЗначений");
Если глФильтрПоСправочнику("Номенклатура",0,0,ВыбКатегория1,0,0,СписокТоваров,ТекстЗапроса,0,0,"Товар,,,СписокТоваров,,,,,")=0 Тогда
Возврат;
КонецЕсли;
Если Запрос.Выполнить(ТекстЗапроса)=0 тогда
Предупреждение("Запрос по Партиям не выполнился!");
Возврат;
КонецЕсли;
СтрокаТекста=СокрЛП(Строка("distr_code"))+";"+СокрЛП(Строка("stock_date"))+";"+СокрЛП(Строка("distr_product_code"))+";"+СокрЛП(Строка("stock_volume"))+";";
ТекстВыгрузки.ДобавитьСтроку(СтрокаТекста);
Пока Запрос.Группировка("Товар")=1 Цикл
СтрокаТекста= СокрЛП(Строка(Константа.КодРуна))+";";
СтрокаТекста=СтрокаТекста+СокрЛП(Строка(Дата2))+";";
СтрокаТекста=СтрокаТекста+СокрЛП(Строка(Запрос.Товар.КодСоответствия))+";";
СтрокаТекста=СтрокаТекста+СокрЛП(Строка(Запрос.КонКол))+";";
ТекстВыгрузки.ДобавитьСтроку(СтрокаТекста);
КонецЦикла;
Если ТекстВыгрузки.КоличествоСтрок()<>0 Тогда
Попытка
ТекстВыгрузки.Записать(ФайлВыгрузки);
Предупреждение("Файл успешно сформирован");
Исключение
Предупреждение("Невозможно сохранить файл! Проверьте путь к файлу выгрузки!");
КонецПопытки;
Иначе
Предупреждение("Нет данных для выгрузки! Файл не сформирован!");
КонецЕсли;
КонецПроцедуры