Имя: Пароль:
1C
1С v8
Справочник спецификаций
,
0 gas83
 
27.01.12
10:00
Добрый день!

конф БП  2.0.31.7 платф 8.2.14
Хочу загрузить комплектующие спецификации номенклатуры.Для этого нужно получить объект спецификации. Подскажите как это сделать?

ЭлементСпр = Справочники.СпецификацииНоменклатуры.НайтиПоКоду(КодСпецификации); // ссылка
1 Cube
 
27.01.12
10:02
ТекОбъект = ЭлементСпр.ПолучитьОбъект();
2 gas83
 
27.01.12
10:22
ЭлементСпрОбъект = Справочники.СпецификацииНоменклатуры.НайтиПоКоду(КодСпецификации);
               Если ЭлементСпрОбъект.Пустая() Тогда                      
                    ЭлементСпрОбъект = Справочники.СпецификацииНоменклатуры.СоздатьЭлемент();
                    ЭлементСпрОбъект.Код = КодСпецификации;
                    ЭлементСпрОбъект.Наименование = НаименованиеСпецификации;
                    ЭлементСпрОбъект.Владелец = ВладелецСпецификации;
                    ЭлементСпрОбъект.Количество = КоличествоСпецификации;
                    ЭлементСпрОбъект.ИсходныеКомплектующие.Загрузить(ДокТабЧасть);
                                       
                    Попытка
                    ЭлементСпрОбъект.Записать();
                    Сообщить("Создана Спецификация : "+НаименованиеСпецификации+" Номенклатуры "+ВладелецСпецификации);
                    ФлагНоваяСпецификация = Истина;

                    ВладелецСпецификации.ПолучитьОбъект().ОсновнаяСпецификацияНоменклатуры = ЭлементСпрОбъект;
                    Исключение
                    Сообщить(ОписаниеОшибки());
                    КонецПопытки;
               Иначе
                                       
               Объект = ЭлементСпрОбъект.ПолучитьОбъект();
               Объект.ИсходныеКомплектующие.Загрузить(ДокТабЧасть);
               
               //ЭлементСпрОбъект.ИсходныеКомплектующие.Загрузить(ДокТабЧасть);
                Попытка
                    Объект.Записать();
                    ВладелецСпецификации.ПолучитьОбъект().ОсновнаяСпецификацияНоменклатуры = Объект;
                    Исключение
                    Сообщить(ОписаниеОшибки());
                    КонецПопытки;

               КонецЕсли;


Вот в коде Объект = ЭлементСпрОбъект.ПолучитьОбъект(); почему то недоступна эта процедура не могу понять.
3 Starhan
 
27.01.12
10:23
лол
Объект.Записать();
ВладелецСпецификации.ПолучитьОбъект().ОсновнаяСпецификацияНоменклатуры = Объект;


ВладелецСпецификации.ПолучитьОбъект().ОсновнаяСпецификацияНоменклатуры = Объект.Ссылка;
4 Starhan
 
27.01.12
10:27
(2) Если у тебя элемент не нашелся то ты присваиваешь ЭлементСпрОбъект новый объект
а потом опять из него пытаешься получить объект. Пичалько.
5 gas83
 
27.01.12
10:27
ВладелецСпецификации.ПолучитьОбъект().ОсновнаяСпецификацияНоменклатуры = Объект.Ссылка; :)спасибо - это понятно, меня интересует
Объект = ЭлементСпрОбъект.ПолучитьОбъект(); // в списке процедур ПолучитьОбъект() нет хз почему?
6 Starhan
 
27.01.12
10:27
стаж почти 2 года. Все это время ИТС развозил что ле?
7 gas83
 
27.01.12
10:29
ну вообще то если ЭлементСпрОбъект не пустая ссылка  я пытаюсь получить объект из
ЭлементСпрОбъект
8 Starhan
 
27.01.12
10:31
(7) согласен. Что значит: "почему то недоступна эта процедура "
9 gas83
 
27.01.12
10:38
Слушай ты прав походу  мне пора ИТС развозить :)
моя проблема в  ЭлементСпрОбъект!
10 gas83
 
27.01.12
10:39
спасибо
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший