19.08.2004, 20:10
|
# 429
|
Advanced Member
Регистрация: 07.01.2003
Сообщения: 453
|
Пробуй так
Цитата:
Процедура ОбработкаПодбора(Выб)
перем товсс;
Если ПустоеЗначение(Выб)=1 Тогда
возврат;
КонецЕсли;
Товсс=СоздатьОбъект("Справочник.ТОварыСС");
Если Товсс.НайтиЭлемент(Выб.текущийЭлемент())=0
сообщить("элемент не найден");
возврат;
КонецЕсли;
Если товсс.товарграда.выбран()=1 Тогда
предупреждение("....");
Возврат;
иначе
Товсс.ТОварграда=текущийэлемент();
Товсс.Записать();
КонецЕсли;
КонецПроцедуры
|
|
|
|