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