Программное заполнение реквизита справочника реквизитом из другого справочника

[OlegMorozov]

Добрый день/вечер!

Есть два справочника Статьи и Рецензенты, в каждом из них есть реквизит "Специализация"
Нужно сделать так, чтобы в справочнике Статьи в зависимости от выбранной специализации, при записи, автоматически заполнялось поле "Рецензент".
Помогите пожалуйста, все перепробовал ничего не работает!

[LexaK]

OlegMorozov, встречный вопрос:
по какой-то Специализации можно найти 100 Рецензентов, какого из них надо вставить в элемент справочника Статьи ?

[OlegMorozov]

LexaK ну допустим если специализации не пересекаются
а там уже в будущем в зависимости от нагрузки можно сделать выборку
мне просто хотя бы на реализацию данного модуля посмотреть и понять что я делаю не так

[LexaK]

OlegMorozov,

и понять что я делаю не так

так выкладывайте что вы делаете (сделали) не так, посмотрим, подскажем!

[OlegMorozov]

Код Выделить Развернуть

&НаСервере
Функция ПолучитьЗначениеРеквизитаСправочникаРецензенты(ДанныеЗаполнения)
СпрРецензенты = Справочники.Рецензенты.ПолучитьЗначение("ФИО");
СпрРецензенты.Записать();
КонецФункции
&НаСервере
Процедура ПриЗаписи(Отказ, СтандартнаяОбработка)
СпрРецензенты = Справочники.Рецензенты.ПолучитьЗначение("ФИО");
Специализация = Справочники.Рецензенты.ПолучитьЗначение(Специализация);
Если не ЗначениеЗаполнено(Объект.Рецензент) Тогда
Если  Объект.Специализация = Специализация Тогда
ПолучитьЗначениеРеквизитаСправочникаРецензенты(СпрРецензенты);
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Ну как-то так
Ошибок не вылезает
Но и не работает при записи

[LexaK]

OlegMorozov, попробуйте такую процедуру
только непременно найдите это событие формы и назначьте обработчик (эту процедуру)

Код Выделить Развернуть

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
//Вставить содержимое обработчика
лкРецензент = Справочники.Рецензенты.НайтиПоРеквизиту("Специализация", Объкт.Специализация);
Если Не ЗначениеЗаполнено(лкРецензент) Тогда
Сообщить("По специализации: " + Объкт.Специализация + " - Рецензентов нет!")
КонецЕсли;
Объект.Рецензент = лкРецензент;

КонецПроцедуры


[OlegMorozov]

LexaK, все сделал
так ничего и не происходит

[LexaK]

OlegMorozov, включайте отладчик (заодно и его освоите) ставьте точку остановки в процедуре и проходите по шагам.
еще раз все перепроверьте! соответствию типов уделите особенное внимание! (на начальном этапе освоения 1С это самая распространенная ошибка)