Имя: Пароль:
1C
 
как программно записать новый элемент справочника в нужную мне группу
0 SemT
 
12.10.05
14:30
объясните пожалуйста чего не так... я форум уже излазил весь, и один хрен не получается.где туплю?

ИспользоватьРодителя(НужнаяГруппа)- как блин задать эту "нужную группу"
вот код... один хрен в корень справочника выкладывает и все тут
Процедура ОбработкаПроведения()
   
   НачКодДокумента = 19000;
   КодДокумента = НачКодДокумента + НомерДок;
   СпрЛабКупажи = СоздатьОбъект("Справочник.ЛабКупажи");
   СпрЛабКупажи.ИспользоватьРодителя("Партия");
   Если СпрЛабКупажи.НайтиПоКоду(КодДокумента,1) = 1 Тогда  
       СпрЛабКупажи.ФактичОбъем        = ОбщийОбъем;
       СпрЛабКупажи.ФактичСпирт        = ПрСпирт;
       СпрЛабКупажи.ФактичСахар        = ПрСахар;
       СпрЛабКупажи.ФактичТК            = ПрТК;
       СпрЛабКупажи.ГодУрожая            = ГодУрожая;
       СпрЛабКупажи.Записать();                
   Иначе
       СпрЛабКупажи.Новый();
       СпрЛабКупажи.Код                = КодДокумента;
       СпрЛабКупажи.Наименование        = СокрЛП(НомерДок)+"П";
       СпрЛабКупажи.ДатаКупажа        = ДатаДок;
       СпрЛабКупажи.ПолнНазваниеКупажа = Строка(ПолнНаименование);    
       СпрЛабКупажи.ФактичОбъем        = ОбщийОбъем;
       СпрЛабКупажи.ФактичСпирт        = ПрСпирт;
       СпрЛабКупажи.ФактичСахар        = ПрСахар;
       СпрЛабКупажи.ФактичТК            = ПрТК;
       СпрЛабКупажи.ГодУрожая            = ГодУрожая;
       

       СпрЛабКупажи.Записать();
   КонецЕсли;

КонецПроцедуры
1 ДенисЧ
 
12.10.05
14:32
СпрЛабКупажи.ИспользоватьРодителя("Партия");  - расстрелять.
2 miki
 
12.10.05
14:33
>>где туплю?
Тут:
>>СпрЛабКупажи.ИспользоватьРодителя("Партия");
3 КонецЦикла
 
12.10.05
14:33
СпрЛабКупажи.ИспользоватьРодителя("Партия"); - это чиво? посмотри синтаксис
4 ДенисЧ
 
12.10.05
14:34
какое трогательное единодушие :-)
5 SemT
 
12.10.05
14:34
да я врубаю что не правильно написано...
6 ZolotarevAA
 
12.10.05
14:35
(2) Есть такая весчь, называется Ссылка. А "Вот за это расстрелять" - это строка.
7 Таня
 
12.10.05
14:35
"партия" это что? если название группы, то сначала надо СпрЛабКупажи.НайтиПоНаименованию("Партия");
ВыбГруппа = СпрЛабКупажи.ТекущийЭлемент();
СпрЛабКупажи.ИспользоватьРодителя(ВыбГРуппа);
8 miki
 
12.10.05
14:36
(6)Спасибо...
И на что ссылается _строка_ "Партия"?
9 Таня
 
12.10.05
14:36
Можно еще добавить Если ВыбГруппа.ЭтоГруппа() = 1 Тогда
10 SemT
 
12.10.05
14:37
Блин вроде так...
   СпрЛабКупажи = СоздатьОбъект("Справочник.ЛабКупажи");
   СпрЛабКупажи.НайтиПоНаименованию("Партия");
   СпрЛабКупажи.ИспользоватьРодителя(СпрЛабКупажи.ТекущийЭлемент());
Обидно столько времени из-за ерунды потратил.
11 miki
 
12.10.05
14:37
(7)Почти правильно...
Таня, таня... а если не нашел? А если не группа?...
12 Таня
 
12.10.05
14:39
(11) если не нашел, то можно создать :) можно ругательство написать перед этим в выкинуть из обработки, а можно просто предупредить, что мол, создается группа
13 SemT
 
12.10.05
14:40
(9)(11) ага и это тоже не помешает...
СПАСИБО ВСЕМ!!! ВСЕ СДЕЛАЛ!!!
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn