Задача следующая. 1С 8.2 УТП
Загрузить надо номенклатуру с иерархией, есть файлы XLS со структурой причем по уровням, первый файл имеет колонку кода группы номенклатуры + название, второй файл имеет два кода, первый это код из первого файла (т.е. к которому он относиться), вторая колонка это собственный код и третья это название, так же четвертый есть файл со следующими подуровнями - это что касается иерархии номенклатуры.
Далее есть сама база товаров, которая так же в экселе и есть первые четыре колонки это коды, к которым относится данная номенклатура и + последняя это наименование номенклатуры,но надо что бы в ПОЛНОМ наименовании были название групп а только потом то что из экселе,а просто в наименовании это из экселя.
Как? Есть какие е нить наработки по импорту иерархии?
1000 грн и наработка ваша.
999
1001
За дэнги сделать не проблема, мне как бы помощь нужна, я не прошу тупо сделать,я прошу подобную обработку подкинуть,а там сам уже
x
1-е предупреждение!
Тю, ну добавьте в таблицу єкселя колонку Группа.потом по ходу загрузки конкретной строки проверяйте значение этой колонки.
Как импортировать иерархию - бесплатный совет: рекурсия ...
Можно проще... Сделать отдельный лист с каталогами и использовать примерно вот этот код
//Номер листа в книге Excel для получения данных
НомерЛиста = 2;
//Пытаемся подключиться к Excel
Попытка
Excel = новый COMОбъект("Excel.Application");
Исключение
Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
Возврат;
КонецПопытки;
//Подключились удачно, открываем файл
Excel.Workbooks.Open("F:\группы.xls");
//Открываем необходимый лист
Excel.Sheets(НомерЛиста).select();
//Получим количество строк и колонок.
//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
Конецесли;
//Для установки цен необходимо создать документ "Установка цен номенклатуры"
//Заполним шапку документа, в т.ч. заполним тип цены и валюту
//определим по файлу в каких колонках необходимые данные
// Выбираем данные из файла
Для а = 1 по ФайлСтрок Цикл
//Полуим данные из соответсвующих ячеек
НаименованиеТовара = СокрЛП(Excel.Cells(а,2).Value);
Номенклатура = Справочники.Номенклатура.СоздатьГруппу();
Номенклатура.Наименование = НаименованиеТовара;
Номенклатура.Записать();
Конеццикла;
//Если в документе есть товары записываем и проводим
//Закрываем Excel
Excel.ActiveWorkbook.Close();
http://pro1c.org.ua/index.php?showtopic=1055&st=0&gopid=31232&#entry31232
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua