Имя: Пароль:
1C
1С v8
Загрузка из ексель в справочник
0 amadeus2010
 
07.09.12
18:46
добрый вечер всем, пытаюсь решить такую задачу.Выгружаю номенклатуру из ексель в 1С. Как сделать так чтобы номенклатура записалась в свою группу.Вот код
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Процедура КнопкаВыполнитьНажатие(Кнопка)
   Таб = Контрагенты.Выгрузить(Новый Структура("Пометка", Истина));
   ПоСтрокам = 1;
   КоличествоИспользуемыхСтрок = Контрагенты.Количество();

   Для Каждого Строка Из Таб Цикл
   ПоСтрокам = ПоСтрокам + 1;
   Если Строка.Пометка Тогда
       
   СпрНоменклатура=Справочники.Номенклатура.СоздатьЭлемент();
   СпрНоменклатура.Наименование= Справочники.Номенклатура.НайтиПоНаименованию(Строка.Наименование);
   СпрНоменклатура.НаименованиеПолное=Справочники.Номенклатура.НайтиПоНаименованию(Строка.Наименование);
   СпрНоменклатура.Сезон=Строка.Сезон;
   СпрНоменклатура.Размер=Строка.Размер;
   СпрНоменклатура.Цвет=Строка.Цвет;
   СпрНоменклатура.Штрихкод=Строка.Штрихкоды;


   
       
    КонецЕсли;

Попытка
   СпрНоменклатура.Записать();
Исключение
   Сообщить(ОписаниеОшибки());
       КонецПопытки;
 КонецЦикла;    

   
КонецПроцедуры
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
групп много порядка 20.
1 Amra
 
07.09.12
18:47
В файле, откуда грузишь, инфа о группе есть?
2 Джинн
 
07.09.12
18:48
ИТС, универсальная загрузка данных из табличного документа...

PS. Все уже украдено до нас (с) Операция Ы
3 amadeus2010
 
07.09.12
18:49
нет просто названия полей
4 amadeus2010
 
07.09.12
18:50
(2)универсальная загрузка не всегда бывает удобной
5 osa1C
 
07.09.12
18:52
(4) переделай ее под себя, так проще будет
6 amadeus2010
 
07.09.12
18:59
возможно так придется и поступить,а насчет моего кода никак нельзя что-то подправить?
7 AlexNew
 
07.09.12
19:01
(6) ДНК не поправишь:(
8 amadeus2010
 
07.09.12
19:05
(7) ДНК тут не причем,просто я задал вопрос
9 AlexNew
 
07.09.12
19:08
(8) Ты лучше код перечитай вместе с СП, подумай.

   СпрНоменклатура=Справочники.Номенклатура.СоздатьЭлемент();
   СпрНоменклатура.Наименование= Справочники.Номенклатура.НайтиПоНаименованию(Строка.Наименование);
   СпрНоменклатура.НаименованиеПолное=Справочники.Номенклатура.НайтиПоНаименованию(Строка.Наименование);
10 ChAlex
 
07.09.12
19:12
(9) +100. (0) - бред полный, и все должны его курить? Контрагенты.Выгрузить() - Номенклатура.Создать(). Вы хоть сами свою задачу представляете?
11 amadeus2010
 
07.09.12
19:19
на счет этого согласен,можно конечно написать
спр.номенклатура=строка из ексель формата,но как распределить элементы по группам,чтобы каждая села в свою группу,может проверку каку-нибудь сделать?
12 ChAlex
 
07.09.12
19:24
(11) - а тут кто-нибудь телепат? какая проверка, по каким группам, где эти группы? Задача вообще элементарная. Вы хоть показали где инфа по вашим группам?
13 ChAlex
 
07.09.12
19:26
+(12) или вы хотите услышать СпрНоменклатура.Родитель=НужнаяГруппа
14 AlexNew
 
07.09.12
19:36
(13) О чем вопрос? Тебе 3 строк кода недостаточно?