Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
01 июл 2024, 11:35

Импорт с Excel в справочник 1С

Автор voyyager, 25 авг 2011, 12:58

0 Пользователей и 1 гость просматривают эту тему.

voyyager


День Добрый! Имеется процедура для импорта с экселя записей в справочник 1С в соответствующие папки. Имя родителя берется с 3-го столбца файла экселя. Беда в том, что когда импортируешь, то нечетные строки записываются куда надо и в разные папки, а четные в корень справочника. Понять не могу в чем причина...

Процедура ИмпортИзЭкселяСРодителем()  
   НачатьТранзакцию();
xl=СоздатьОбъект("Excel.Application");
   rows=xl.ActiveSheet.UsedRange.Rows.Count;
   спр=СоздатьОбъект("Справочник.Клиенты");
   Для row = 1 По rows Цикл
       имя=СокрЛП(xl.Cells(row,1).Value);
фио=СокрЛП(xl.Cells(row,2).Value);
родитель=СокрЛП(xl.Cells(row,3).Value);
Сообщить(родитель);
Состояние(""+row+"/"+rows+"  "+имя);
       Если имя="" Тогда
           Продолжить;
КонецЕсли;
       Если спр.НайтиПоНаименованию(имя, 0, 1)=0 Тогда
спр.НайтиПоНаименованию(родитель);
родитель = спр.ТекущийЭлемент();
спр.ИспользоватьРодителя(родитель);
                       спр.Новый();
                       спр.Наименование=имя;
спр.УстановитьАтрибут("ФИО",фио);
спр.УстановитьАтрибут("Адрес",род);
                       спр.Записать();
КонецЕсли;    
   КонецЦикла;
   ЗафиксироватьТранзакцию();
Конецпроцедуры

AFZ

спр.НайтиПоНаименованию(родитель);
надо исправить на
спр.НайтиПоНаименованию(родитель,0);

Yura063

А как загрузить остатки в регистор для номенклатуры по торг.точкам из XLS
Помогли, отблагодари!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск