5
proglib
02.06.25
✎
18:44
|
(3) С (1) связи нет. Там товары только выгружаются.
ТаблицаТоваров = Справочники.Номенклатура.ТаблицаКаталогаТоваровДляЭкспорта();
КоличествоПозиций = ТаблицаТоваров.Количество();
РаботаСФайламиВызовСервера.ЗаписатьТаблицуЗначенийВCSV(ТаблицаТоваров, ПутьКФайлуЭкспорта, КодировкаФайлаВыгрузки);
Процедура ЗаписатьТаблицуЗначенийВCSV(ТаблицаДанных, ПутьКФайлу, Кодировка = Неопределено) Экспорт
РазделитьДанныхВСтроке = ";";
РазделительСтрок = Символы.ПС;
ТекстДляЗаписи = "";
ИменаКолонок = "";
Попытка
Для каждого Колонка Из ТаблицаДанных.Колонки Цикл
Заголовок = ?(ПустаяСтрока(Колонка.Заголовок), Колонка.Имя, Колонка.Заголовок);
ИменаКолонок = СтрШаблон("%1%2%3", ИменаКолонок, ?(ИменаКолонок = "", "", РазделитьДанныхВСтроке), Заголовок);
КонецЦикла;
ТекстДляЗаписи = СтрШаблон("%1%2", ИменаКолонок, РазделительСтрок);
Для каждого СтрокаТаблицы Из ТаблицаДанных Цикл
СтрокаДанных = "";
Для каждого Колонка Из ТаблицаДанных.Колонки Цикл
Значение = СтрокаТаблицы[Колонка.Имя];
СтрокаДанных = СтрШаблон("%1%2%3", СтрокаДанных, ?(СтрокаДанных = "", "", РазделитьДанныхВСтроке), Значение);
КонецЦикла;
ТекстДляЗаписи = СтрШаблон("%1%2%3", ТекстДляЗаписи, СтрокаДанных, РазделительСтрок);
КонецЦикла;
ЗаписатьДанныеВТекстовыйФайл(ТекстДляЗаписи, ПутьКФайлу, , Кодировка);
Исключение
ТекстОшибки = нСтр("ru='Ошибка при записи данных в файл:'", "ru");
ТекстОшибки = СтрШаблон("%1%2%3", ТекстОшибки, Символы.ПС, ОписаниеОшибки());
ВызватьИсключение ТекстОшибки;
КонецПопытки;
КонецПроцедуры
|
|
10
proglib
03.06.25
✎
18:01
|
(6) Работает!
Загружает файл базы при работающем приложении.
Буду пользоваться.
(7) Тоже замена файла базы, но из другого приложения, а зачем, если можно из текущего.
Всем спасибо!
|
|