Имя: Пароль:
1C
1С v8
Программно создать группу справочника номенклатура ут 8.2
0 Простенький вопросик
 
20.09.11
10:40
как программно создать группу справочника номенклатура в ут 8.2
1 Maxus43
 
20.09.11
10:40
а как пытаешся?
2 Grusswelle
 
20.09.11
10:41
&НаСервере
3 butterbean
 
20.09.11
10:41
ты не поверишь: СоздатьГруппу()
4 Hostess_
of_Love
 
20.09.11
10:42
метод есть такой СоздатьГруппу(). в СП пример смотри
5 Maxus43
 
20.09.11
10:42
&НаСервереБезКонтекста
6 zmaximka
 
20.09.11
10:42
Номенклатура = Справочники.Номенклатура.СоздатьЭлемент()
ГруппаНоменклатуры = Справочники.Номенклатура.СоздатьГруппу()
7 Простенький вопросик
 
20.09.11
10:59
хорошо, спасибо, а как удалить все группы этого справочника в базе?
8 Maxus43
 
20.09.11
11:00
не стоит, если в них что-то есть тем более
9 Простенький вопросик
 
20.09.11
11:00
это тестовая база, тут стоит
10 Maxus43
 
20.09.11
11:05
группа ничем не отличается от элемента в плане удаления. как обычно удаляй
11 Простенький вопросик
 
20.09.11
11:07
ну мне нужен код "удалить нахрен все"
12 Maxus43
 
20.09.11
11:09
Камикадзе = Справочники.СправочникСмертник.Выбрать();

Пока Камикадзе.Следующий() Цикл

   УбитьБилла = Камикадзе.ПолучитьОбъект();
   УбитьБилла.Удалить();

КонецЦикла;
13 Простенький вопросик
 
20.09.11
11:10
спс
14 Escander
 
20.09.11
11:10
(11) или сма или 5$
15 Escander
 
20.09.11
11:11
(12) демпинг детектед! Так парнишка не научится СП читать!!!
16 Axel2009
 
20.09.11
11:12
(15) да там еще ошибка вывалится наверняка
17 Maxus43
 
20.09.11
11:12
(15) такой код и копейки не стоит... вот когда будет кричать "нарушена ссылочная целостность, база рушится, меня увольняют" - тогда за денюшки)
18 Maxus43
 
20.09.11
11:12
(16) не проверял есно) от балды но направление туда
19 Escander
 
20.09.11
11:13
(16)ЫЫЫЫЫ! Не всё потеряно тогда!!!
20 Простенький вопросик
 
20.09.11
11:14
вы так не пугайте, база чистая, кроме этого справочника ничего нет
21 Snorkler
 
20.09.11
11:28
(12) Во-первых, лучше все оформить в виде Процедура УдалитьНахренВсе().
Во-вторых, этот код все не удаляет… В этом смысле кошернее «format c:»
22 Escander
 
20.09.11
11:46
(21) кошернее rm -rf
23 Простенький вопросик
 
20.09.11
13:26
Тут еще один вопрос возник. Когда я программно добавляю записи, я проверяю, нет ли уже такой записи. Так вот, похоже что один элемент справочника называется как группа. Поэтому, когда я помещаю другой элемент справочника в нужную группу, мне выдается сообщение что найденный элемент группой не является. Я понял, что он группой не является. А как сделать так, чтобы реквизит группы искался среди групп, а не среди всех элементов? Я использую "найтипонаименованию".
24 Wobland
 
20.09.11
13:28
(23) используй Запрос.Выполнить()
25 wade25
 
20.09.11
13:31
Если Группа Тогда... или типа того еще добавь...
26 Простенький вопросик
 
20.09.11
14:14
Где у меня ошибка? Вот код

стр2= справочники.Номенклатура.СоздатьЭлемент();
   стр2.Наименование=сокрлп(лист.cells(й,5).value);
  стр2.НаименованиеПолное=сокрлп(лист.cells(й,19).value);
    стр2.БазоваяЕдиницаИзмерения=справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
   стр2.ВидНоменклатуры=справочники.ВидыНоменклатуры.НайтиПоКоду("000000001");
   сообщить(справочники.ВидыНоменклатуры.НайтиПоКоду("000000001"));
   стр2.Артикул=сокрлп(лист.cells(й,8).value);
      Запрос1 = Новый Запрос();
   
   Запрос1.Текст = "ВЫБРАТЬ
                   |    Номенклатура.Родитель КАК Родитель1
                   |ИЗ
                   |    Справочник.Номенклатура КАК Номенклатура
                   |ГДЕ
                   |    Номенклатура.Родитель = &Родитель"    ;
                   
       Запрос1.УстановитьПараметр("Родитель", справочники.Номенклатура.НайтиПоНаименованию(сокрлп(лист.cells(й,4).value))) ;      
           
   итогзапроса = Запрос1.Выполнить().Выгрузить();
   
   стр2.Родитель=итогзапроса.Родитель1[0];

   
   
      стр2.Записать();

В итоге выходит ошибка
{Отчет.Отчет1.Форма.ФормаОтчета.Форма(71)}: Поле объекта не обнаружено (Родитель1)
   стр2.Родитель=итогзапроса.Родитель1[0];
27 hhhh
 
20.09.11
14:17
(26) [0] не туда влепил. А это чего, тест такой?
28 Axel2009
 
20.09.11
14:19
псц код
29 Простенький вопросик
 
20.09.11
14:20
(27)
загрузка номенклатуры из экселя. А куда надо влепить и что?
30 Wobland
 
20.09.11
14:22
(26) ИтогЗапроса[0].Родитель1
но (28)
31 Простенький вопросик
 
20.09.11
14:24
(30)
напиши красивый, мы посмотрим
32 Wobland
 
20.09.11
14:29
(31) примерно так:
Запрос=Новый Запрос;
Запрос.Текст=
"ВЫБРАТЬ
|    Номенклатура.Родитель,
|    Номенклатура.Ссылка
|ИЗ
|    Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|    Номенклатура.ЭтоГруппа";
ном=Справочники.Номенклатура.НайтиПоНаименованию(сокрлп(лист.cells(й,4).value)));
Если НЕ ном.Пустая() Тогда
   Результат=Запрос.Выполнить().Выгрузить();
   Если Результат.Количество()=1 Тогда
       Сообщить("Вот твоя группа: "+Результат[0].Родитель);
   КонецЕсли;
КонецЕсли;
33 Wobland
 
20.09.11
14:30
(32) условие на равенство наименованию забыл
34 hhhh
 
20.09.11
14:35
(31) код красивый, но псц код
35 hhhh
 
20.09.11
14:39
(31) то есть смотри

Запрос1.УстановитьПараметр("Родитель", справочники.Номенклатура.НайтиПоНаименованию(сокрлп(лист.cells(й,4).value))) ;

а мы знаем, что у тебя

справочники.Номенклатура.НайтиПоНаименованию(сокрлп(лист.cells(й,4).value))

выдает обычный элемент справочника.
Получается, что своим запросом ты вытаскиваешь, элементы у которых родитель тоже элемент?

Хорошая трава!
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн