A
Antonn28
Создаю элемент справочника при записи документа! 1С ругается! Подскажите в чем может быть ошибка!
&НаКлиенте
Процедура ПередЗаписью(Отказ,Код,Объект, ПараметрыЗаписи)
УправлениеПоступлением.ГруппироватьЭРИ(Объект,Код)
КонецПроцедуры
&НаСервере
Процедура ГруппироватьЭРИ(Объект,Код) Экспорт
ПартияЭРИ=Справочники.ПартииЭРИ;
СсылкаНайденного=ПартияЭРИ.НайтиПоКоду(Код);
Если СсылкаНайденного.Пустая() Тогда
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭРИ.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
Иначе СправочникОбъект=СсылкаНайденного.ПолучитьОбъект();
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭри.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
{ОбщийМодуль.УправлениеПоступлением.Модуль(15)}: Значение не является значением объектного типа (Поступление)
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
Подскажите в чем ошибка!!!
&НаКлиенте
Процедура ПередЗаписью(Отказ,Код,Объект, ПараметрыЗаписи)
УправлениеПоступлением.ГруппироватьЭРИ(Объект,Код)
КонецПроцедуры
&НаСервере
Процедура ГруппироватьЭРИ(Объект,Код) Экспорт
ПартияЭРИ=Справочники.ПартииЭРИ;
СсылкаНайденного=ПартияЭРИ.НайтиПоКоду(Код);
Если СсылкаНайденного.Пустая() Тогда
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭРИ.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
Иначе СправочникОбъект=СсылкаНайденного.ПолучитьОбъект();
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭри.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
{ОбщийМодуль.УправлениеПоступлением.Модуль(15)}: Значение не является значением объектного типа (Поступление)
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
Подскажите в чем ошибка!!!