Имя: Пароль:
1C
1C 7.7
v7: Импорт из Excel в справочник
0 r-d-v2008
 
01.05.12
12:09
Добрый всем день!!! Вопрос значит такой Загружаю из екселя в справочник номенклатуру, как мне эту номенклатуру поместить в конкретную группу? свойство Родитель что то не заполняется, не пойму как в нее загнать.
1 r-d-v2008
 
01.05.12
12:10
Нам = "ИНМАРКО";
 СпрТМЦ.НоваяГруппа();
 //СпрТМЦ.Код = "00000800";
 СпрТМЦ.Наименование = Нам;
 СпрТМЦ.Записать();

 Для х = 3 По Строк Цикл

   //Зная типы значений в колонках и перебирая строки получаем
   //необходимые значения и обрабатываем их  
   КодТовара       = СокрЛП(Строка(Лист.Cells(х, 2).Value));  
   НаименованиеТовара = СокрЛП(Строка(Лист.Cells(х, 3).Value));
   СтавкаНДС     = СокрЛП(Строка(Лист.Cells(х, 4).Value));
Вес = Число(Лист.Cells(х, 5).Value);
ШтукВКоробке = Число(Лист.Cells(х, 6).Value);
ЕденицаИзмерения = СокрЛП(Строка(Лист.Cells(х, 7).Value));


   //Сначала ищем товар по коду, если не нашли по наименованию  
   Если СпрТМЦ.НайтиПоКоду(КодТовара) <> 1 Тогда
    СпрТМЦ.Новый();
СпрТМЦ.Родитель = Нам;
СпрТМЦ.Код = КодТовара;
СпрТМЦ.Наименование = НаименованиеТовара;
СпрТМЦ.ПолнНаименование = НаименованиеТовара;
СпрТМЦ.НаименованиеКПК = НаименованиеТовара;
2 BlackSeaCat
 
01.05.12
12:11
А в Excel родитель как-то обозначен?
3 r-d-v2008
 
01.05.12
12:11
(2)нет
4 BlackSeaCat
 
01.05.12
12:15
(3) И не надо, из кода все стало ясно.

//Нам = "ИНМАРКО";
 СпрТМЦ.НоваяГруппа();
 //СпрТМЦ.Код = "00000800";

//  СпрТМЦ.Наименование = Нам;
 СпрТМЦ.Наименование = "ИНМАРКО";
 СпрТМЦ.Записать();
Нам = СпрТМЦ.ТекущийЭлемент();

Надеюсь, что идея понятна. Походу надо бы вставить проверку на наличие "ИНМАРКО" в справочнике, чтобы не пытаться создавать его при каждой загрузке, но это уже сам...
5 r-d-v2008
 
01.05.12
12:31
(4) Благодарю