Код

Процедура икали,ФСО)
	Если ТипЗначенияСтр(кнт) = "ГрупповойКонтекст" Тогда
		РасшФормы = СоздатьОбъект("РасширениеФормы");
		РасшФормы.УстановитьФорму(кнт.форма);
		Атр = тикали);
		Если ПустоеЗначение(атр) = 0 Тогда
			//нашли чего то
			Если атр.ТипЗначенияСтр() = "Справочник" Тогда
				//справочник
				ВыполнитьДействие(Атр.Значение,,,2);
				ФСО=0;
			ИначеЕсли атр.ТипЗначенияСтр() = "Документ" Тогда
				//справочник
				ВыполнитьДействие(Атр.Значение,,,2);
				ФСО=0;
			ИначеЕсли атр.ТипЗначенияСтр() = "МногострочнаяЧасть" Тогда
				//многострочная часть, обработаем только мн.ч.документа документ
				Если лев(РасшФормы.ПолныйТипОбъекта(),9) = "Документ." Тогда
					ВыполнитьДействие(кнт.ПолучитьАтрибут(кнт.форма.АктивныйЭлемент()),,,2);
					ФСО = 0;
				КонецЕсли;
			ИначеЕсли атр.ТипЗначенияСтр() = "ТаблицаЗначений" Тогда
				табл = атр.Значение;
				если табл.ТекущаяСтрока()>0 Тогда
					имяКолонки = табл.ТекущаяКолонка();
					типКолонки = "";
					табл.ПолучитьПараметрыКолонки(имяКолонки,типКолонки);
					Если (лев(типКолонки,8) = "Документ") или (лев(типКолонки,10) = "Справочник") Тогда
						ВыполнитьДействие(табл.ПолучитьЗначение(табл.ТекущаяСтрока(),имяКолонки),,,2);
						ФСО = 0;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		Иначе
			Если РасшФормы.ТипОбъекта() = "Справочник" Тогда
				ВыполнитьДействие(кнт,,,2);
				ФСО = 0;
			ИначеЕсли РасшФормы.ТипОбъекта() = "Документ" Тогда
				ВыполнитьДействие(кнт,,,2);
				ФСО = 0;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
 

Код

Процедура ПриНажатииЛевойКнопки(Состояние, КоордПоГоризонтали, КоордПоВертикали, ФСО)
	Сообщить("Нажата левая кнопка мыши " + Состояние);
КонецПроцедуры