|
0
tigrandis
13.02.19
✎
15:29
|
1С:Комплексная автоматизация 2 (2.4.6.175)
1С:Предприятие 8.3 (8.3.13.1513)
Фоновое задание которое выгружает товары в формате csv
Процедура ВыгрузкаОстатков() Экспорт
ФайлCSV = Новый ТекстовыйДокумент;
ИмяФайлаCSV = "\\192.168.0.8\1cexch\exmarket\goodsKC.csv";
ФайлCSV.Записать(ИмяФайлаCSV,КодировкаТекста.ANSI);
Разделитель = ";";
ТаблицаЗначений = ПолучитьНоменклатуру();
Текст = СоздатьДанныеCSV(ТаблицаЗначений,Разделитель);
ЗаписатьCSV(Текст,ИмяФайлаCSV);
Фоновое задание
КонецПроцедуры
Функция ПолучитьНоменклатуру()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЕСТЬNULL(ТоварыНаСкладахОстатки.Склад.ID_Склад, """") КАК ID_Склад,
| ЕСТЬNULL(ТоварыНаСкладахОстатки.ВНаличииОстаток, 0) КАК Остаток,
| Товар.ID_Товара КАК ID_Товара
|ИЗ
| Справочник.Номенклатура КАК Товар
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(, ) КАК ТоварыНаСкладахОстатки
| ПО Товар.Ссылка = ТоварыНаСкладахОстатки.Номенклатура
|ГДЕ
| Товар.ID_Товара <> """"";
РезультатЗапроса = Запрос.Выполнить();
Возврат РезультатЗапроса.Выгрузить();
КонецФункции //
// Создаем строку загоовков для CSV-файла
Функция СоздатьЗаголовкиCSV(ТаблицаЗначений,Разделитель)
КолонкиТЗ = ТаблицаЗначений.Колонки;
Для Каждого Колонка Из КолонкиТЗ Цикл
СтрКолонки = "" + СтрКолонки + Колонка.Имя + разделитель ;
КонецЦикла;
Возврат стрКолонки;
КонецФункции
// Создаем Текст CSV:
// Текст заголовков и
// Текст данных
Функция СоздатьДанныеCSV(ТаблицаЗначений,Разделитель)
Текст="";
Для Каждого Запись ИЗ ТаблицаЗначений Цикл
Если Текст="" Тогда
Текст=СоздатьЗаголовкиCSV(ТаблицаЗначений,Разделитель)
+ Символы.ПС;
КонецЕсли;
Текст = Текст + Запись.ID_Товара
+ разделитель + Запись.ID_Склад
+ разделитель + Запись.Остаток
+ Символы.ПС;
КонецЦикла;
//Сообщить(Текст);
Возврат Текст;
КонецФункции //
// Запишем данные в файл
Функция ЗаписатьCSV(Текст,имяФайла)
кодировка = КодировкаТекста.ANSI;
ТекстовыйФайлЗапись = Новый ЗаписьТекста(имяФайла,Кодировка);
ТекстовыйФайлЗапись.ЗаписатьСтроку(Текст);
ТекстовыйФайлЗапись.Закрыть();
Возврат 0;
КонецФункции //
Все норм выполняет, но через 1-3 минуты после выгрузки файл очищается, помогите разобраться ? что за магия непонятная ??? ахаха
|
|
