V 8.2 Создать элемент справочника

24.04.2011, 08:36. **Показов** 27229. **Ответов** 7

Author24 — интернет-сервис помощи студентам

Создаю элемент справочника при записи документа! 1С ругается! Подскажите в чем может быть ошибка!
&НаКлиенте
Процедура ПередЗаписью(Отказ,Код,Объект, ПараметрыЗаписи)
УправлениеПоступлением.ГруппироватьЭРИ(Объект,Код)
КонецПроцедуры

&НаСервере
Процедура ГруппироватьЭРИ(Объект,Код) Экспорт
ПартияЭРИ=Справочники.ПартииЭРИ;
СсылкаНайденного=ПартияЭРИ.НайтиПоКоду(Код);
Если СсылкаНайденного.Пустая() Тогда
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭРИ.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
Иначе СправочникОбъект=СсылкаНайденного.ПолучитьОбъект();
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
СправочникОбъект=Справочники.ПартииЭри.СоздатьЭлемент();
СправочникОбъект.Наименование=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Владелец=СтрокаДокумента.ТипЭРИ;
СправочникОбъект.Индекс=СтрокаДокумента.Индекс;
СправочникОбъект.Изготовитель=СтрокаДокумента.Изготовитель;
СправочникОбъект.ДатаПоступления=Объект.Дата;
СправочникОбъект.Партия=СтрокаДокумента.Партия;
СправочникОбъект.ДатаИзготовления=СтрокаДокумента.ДатаИзготовления;
СправочникОбъект.ЕдИзмерения=СтрокаДокумента.ЕдИзмерения;
СправочникОбъект.Цена=СтрокаДокумента.Цена;
СправочникОбъект.Количество=СтрокаДокумента.Количество;
СправочникОбъект.ДокументПоступления=Объект.Ссылка;
СправочникОбъект.Счет=Объект.Счет;
СправочникОбъект.ПроцентНДС=Объект.ПроцентНДС;
СправочникОбъект.Сумма=СтрокаДокумента.Сумма;
СправочникОбъект.ДокКачества=СтрокаДокумента.ДокКачества;
СправочникОбъект.Золото=СтрокаДокумента.Золото;
СправочникОбъект.ЗолотоКобальт=СтрокаДокумента.ЗолотоКобальт;
СправочникОбъект.Серебро=СтрокаДокумента.Серебро;
СправочникОбъект.Серебро999=СтрокаДокумента.Серебро999;
СправочникОбъект.СереброПалладий=СтрокаДокумента.СереброПалладий;
СправочникОбъект.СереброПлатина=СтрокаДокумента.СереброПлатина;
СправочникОбъект.СерМагнНик=СтрокаДокумента.СерМагнНик;
СправочникОбъект.Записать();
СсылкаНаЭлемент=СправочникОбъект.Ссылка;
СтрокаДокумента.Код=СсылкаНаЭлемент.Код;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

{ОбщийМодуль.УправлениеПоступлением.Модуль(15)}: Значение не является значением объектного типа (Поступление)
Для каждого СтрокаДокумента Из Объект.Поступление Цикл
Подскажите в чем ошибка!!!

@kyr · 24.04.2011, 09:48

отладчик в зубы! и смотреть что содержит в себе Объект

@Дийнеки · 24.04.2011, 12:27

Обожаю примеры в 2 экрана, да еще не оформленные стилем. Я добрый и помочь готов, но изложите мне проблему а не "ДокКачества".

@umkmowm181538 · 24.04.2011, 20:14

Мож нету у него такой табличной части?))

@ottyxyy · 27.04.2011, 05:30

Включаешь остановку по ошибке и смотришь что там такого ты наворотил. Так же посмотри что содержит в себе сам Объект и определи является ли доступным твои "Продажи" в контексте сервера

27.04.2011, 08:26

Уже Давно разобрался!!!

@umkmowm181538 · 02.05.2011, 17:14

За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй?

Добавлено:

Сообщение от unknown181538

За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй?

И ЗаполнитьЗначенияСвойств() напрашивается.

03.05.2011, 03:53

Сообщение от unknown181538

За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй?

Добавлено:
И ЗаполнитьЗначенияСвойств() напрашивается.

Уже давно все переделал и разобрался! Тема закрыта!

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

@kyr 1 / 1 / 0 Регистрация: 04.12.2005 Сообщений: 1,588
	24.04.2011, 09:48	2
	отладчик в зубы! и смотреть что содержит в себе Объект 0

@Дийнеки 1 / 1 / 0 Регистрация: 15.11.2009 Сообщений: 947
	24.04.2011, 12:27	3
	Обожаю примеры в 2 экрана, да еще не оформленные стилем. Я добрый и помочь готов, но изложите мне проблему а не "ДокКачества". 0

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	24.04.2011, 20:14	4
	Мож нету у него такой табличной части?)) 0

@ottyxyy 0 / 0 / 0 Регистрация: 27.04.2008 Сообщений: 371
	27.04.2011, 05:30	5
	Включаешь остановку по ошибке и смотришь что там такого ты наворотил. Так же посмотри что содержит в себе сам Объект и определи является ли доступным твои "Продажи" в контексте сервера 0

omtomm28
	27.04.2011, 08:26	6
	Уже Давно разобрался!!!

@umkmowm181538 0 / 0 / 0 Регистрация: 24.12.2008 Сообщений: 1,399
	02.05.2011, 17:14	7
	За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй? Добавлено: Сообщение от unknown181538 За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй? И ЗаполнитьЗначенияСвойств() напрашивается. 0

omtomm28
	03.05.2011, 03:53	8
	Сообщение от unknown181538 За дублированный код отрывать руки!!! Знаете, как тоскливо разбирать чем код в первой ветви условия отличается от второй? Добавлено: И ЗаполнитьЗначенияСвойств() напрашивается. Уже давно все переделал и разобрался! Тема закрыта!