Имя: Пароль:
1C
 
Как переместить елемент справочника в группу программно.
0 Dooro
 
11.09.08
12:26
Подскажите пожалуйста, как программно переместить елемент справочника номенклатура в группу справочника номенклатура.
1 Mort
 
11.09.08
12:27
СпрОбъект.Родитель = твояГруппа;
2 Dooro
 
11.09.08
12:29
Пишет что обїект не доступен для записи
3 ymv
 
11.09.08
12:29
Код в студию!
4 Альберт_Уфа
 
11.09.08
12:30
(2) для начала получи объект
СпрОбъект = СпрЭлемент.ПолучитьОбъект();
СпрОбъект.Родитель = твояГруппа;
СпрОбъект.Записать;
5 Dooro
 
11.09.08
12:34
Я понял . попробую .спс
6 Медвед1Сник
 
11.09.08
12:37
А я сначала подумал что речь идет о :

Спр = СпрСсылка.ПолучитьОбъект();
Спр.ЭтоГруппа = Истина;
Спр.Записать();

:)
7 Dooro
 
11.09.08
13:15
Примерно так?


Процедура Кнопка7Нажатие(Элемент)
Запрос = Новый Запрос("ВЫБРАТЬ
                     |    Номенклатура.Артикул КАК Артикул,
                     |    Номенклатура.Наименование КАК Наименование,
                     |    Номенклатура.ЭтоГруппа,
                     |    Номенклатура.ВидНоменклатуры,
                     |    Номенклатура.ТипНоменклатуры,
                     |    Номенклатура.Ссылка КАК Номенклатура
                     |ИЗ
                     |    Справочник.Номенклатура КАК Номенклатура
                     |ГДЕ
                     |    Номенклатура.ВидНоменклатуры <> &Услуга
                     |    И Номенклатура.ЭтоГруппа = ЛОЖЬ");
Запрос.УстановитьПараметр("Услуга",Перечисления.ВидыНоменклатуры.Услуга);
Выборка = Запрос.Выполнить().Выгрузить();
Товары1.Загрузить(Выборка);
Пр=0;
Для каждого Стр  из Товары Цикл
Пр=Пр+1;
Сообщить(Пр);
Артикул = Стр.Артикул;
Гр = Стр.Группа;
Для каждого Строка из Товары1 Цикл
Если
Строка.Артикул = Артикул Тогда
Если
Гр = "Н" Тогда
Номкл = Строка.Номенклатура.ПолучитьОбъект();
Номкл.Родитель = Справочники.Номенклатура.Hyundai;
Продолжить;
Иначе Если
Гр="K" Тогда
Номкл = Строка.Номенклатура.ПолучитьОбъект();
Номкл.Родитель = Справочники.Номенклатура.KIA;
Продолжить;
Иначе Если
Гр="D" Тогда
Номкл = Строка.Номенклатура.ПолучитьОбъект();
Номкл.Родитель = Справочники.Номенклатура.Daewoo;
Продолжить;
Иначе Если
Гр="ГСМ" Тогда
Номкл = Строка.Номенклатура.ПолучитьОбъект();
Номкл.Родитель = Справочники.Номенклатура.ГСМ;
Продолжить;
Иначе
Номкл = Строка.Номенклатура.ПолучитьОбъект();
Номкл.Родитель = Справочники.Номенклатура.Прочее;
КонецЕсли;
КонецЕсли
КонецЕсли;
КонецЕсли;
КонецЕсли;
Продолжить;
КонецЦикла;
КонецЦикла;    
КонецПроцедуры
8 Альберт_Уфа
 
11.09.08
13:19
(7) может в запросе артикулы проверять будешь? а еще лучше по ссылкам сравнивай. а то жесть какая-то... даже вникать неинтересно...
9 Dooro
 
11.09.08
13:23
таблица Товары - выгрузка из хл и обекты ссылок не имею а имеют тип строка. поэтому по артикулу и там и там строка проверяю
10 Dooro
 
11.09.08
13:24
а товары1 уже ссылки имеет
11 Альберт_Уфа
 
11.09.08
13:28
не вижу Записать().
12 Dooro
 
11.09.08
13:32
Ну записать я уже добавил :)
13 Альберт_Уфа
 
11.09.08
13:33
(12) работает?
14 Dooro
 
11.09.08
13:34
Да .. тольк Группа Н наверное не распознало с англ и русс
15 Dooro
 
11.09.08
13:36
Занесло в прочее
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.