Показать сообщение отдельно
Старый 19.08.2004, 20:10     # 429
Altir
Advanced Member
 
Регистрация: 07.01.2003
Сообщения: 453

Altir Нимб уже пробиваетсяAltir Нимб уже пробивается
Пробуй так
Цитата:
Процедура ОбработкаПодбора(Выб)
перем товсс;
Если ПустоеЗначение(Выб)=1 Тогда
возврат;
КонецЕсли;
Товсс=СоздатьОбъект("Справочник.ТОварыСС");
Если Товсс.НайтиЭлемент(Выб.текущийЭлемент())=0
сообщить("элемент не найден");
возврат;
КонецЕсли;
Если товсс.товарграда.выбран()=1 Тогда
предупреждение("....");
Возврат;
иначе
Товсс.ТОварграда=текущийэлемент();
Товсс.Записать();
КонецЕсли;

КонецПроцедуры
Altir вне форума