| 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) Тоже замена файла базы, но из другого приложения, а зачем, если можно из текущего.
 
 Всем спасибо!
 |  |