|
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) Благодарю
|
|