Всем привет!!! Не судите строго, я не волшебник - только учусь )))). В справочник "Контрагенты" добавил новый реквизит "Пароль" (у каждого контрагента свой пароль).
Процедура ПриОткрытии()
СпрВ = СоздатьОбъект("Справочник.ВидыСвойств");
СпрВ.НайтиПоНаименованию("Пароль");
СвПароль=СпрВ.ТекущийЭлемент();
СпрСв = СоздатьОбъект("Справочник.СвойстваСправочников");
СпрСв.ИспользоватьВладельца(СвПароль);
СпрСв.ВыбратьЭлементыПоРеквизиту("Хозяин",ТекущийЭлемент());
Пока СпрСв.ПолучитьЭлемент()=1 Цикл
Если СпрСв.ПометкаУдаления()=0 Тогда
Пароль=СокрЛП(СпрСв.Наименование);
КонецЕсли;
КонецЦикла;
КонецПроцедуры