- 01
 - 02
 - 03
 - 04
 - 05
 - 06
 - 07
 - 08
 - 09
 - 10
 - 11
 - 12
 - 13
 - 14
 - 15
 - 16
 - 17
 - 18
 - 19
 - 20
 - 21
 - 22
 - 23
 - 24
 - 25
 - 26
 - 27
 - 28
 - 29
 - 30
 - 31
 - 32
 - 33
 - 34
 - 35
 - 36
 - 37
 - 38
 - 39
 - 40
 - 41
 - 42
 - 43
 - 44
 - 45
 - 46
 - 47
 - 48
 - 49
 - 50
 - 51
 - 52
 - 53
 - 54
 
                        Процедура ПокрытияКодПокрытияОкончаниеВводаТекста(Элемент, Текст, Значение, СтандартнаяОбработка)
Покрытия = ЭтаФорма.Покрытия;
Количество = 0;
Для Каждого СтрокаПокрытия из Покрытия Цикл 
Если СтрокаПокрытия.КодПокрытия = Текст Тогда
Количество = 1;
КонецЕсли;
КонецЦикла;
Если Количество > 0 Тогда 
ПоказатьОповещениеПользователя("Ошибка!",,"Такое покрытие уже присутствует в составе изделия", БиблиотекаКартинок.Ошибка);
НеНайденоПокрытие = Истина;
Возврат;
КонецЕсли;
НеНайденоПокрытие = Ложь;
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = Неопределено;
Если ЭлементыФормы.Покрытия.ТекущиеДанные <> Неопределено Тогда
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
| Покрытия.Ссылка,
| Покрытия.НаименованиеПокрытия
|ИЗ
| Документ.Покрытия КАК Покрытия
|ГДЕ
| Покрытия.КодПокрытия = &КодПокрытия";
Запрос.УстановитьПараметр("КодПокрытия", Текст);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Если ВыборкаДетальныеЗаписи.Количество() > 0 Тогда
ВыборкаДетальныеЗаписи.Следующий();
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = ВыборкаДетальныеЗаписи.Ссылка;
ЭлементыФормы.Покрытия.ТекущиеДанные.НаименованиеПокрытия = ВыборкаДетальныеЗаписи.НаименованиеПокрытия;
Иначе
ПоказатьОповещениеПользователя("Ошибка!",,"Не найдено введенное покрытие", БиблиотекаКартинок.Ошибка);
ЭлементыФормы.Покрытия.ТекущиеДанные.СвязьСПокрытиями = Неопределено;
ЭлементыФормы.Покрытия.ТекущиеДанные.НаименованиеПокрытия = Неопределено;
НеНайденоПокрытие = Истина;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
                                     
        
            Моё творение. =)