Код

Процедура ПриДвиженииМыши(Конт,Сост,Икс,Игрек,ФСО)

	Если ТипЗначенияСтр(Конт)="ГрупповойКонтекст" Тогда Сервис.УстановитьКурсор();Возврат;КонецЕсли;
	Окна=СоздатьОбъект("Окна");
	ШиринаMDI=0;ВысотаMDI=0; Окна.РазмерОкна(,ШиринаMDI,ВысотаMDI,,1);
	Ширина=0;Высота=0; Окна.РазмерОкна(,Ширина,Высота);
	//если последний параметр *НЕ* равен 0, то окно MDI
	//http://www.1cpp.ru/forum/YaBB.pl?num=1201856631/5#5
	НомерТайла = 0;
	Если (Икс<=686)И(Игрек<=794) Тогда
		СмещХ = 65;
		СмещY = 110;
		ЗнамX = Цел((686-СмещХ)/6);
		ЗнамY = Цел((794-110)/9);
		Кол   = Цел(1+(Икс-СмещХ)/ЗнамX);
		Ряд   = Цел((Игрек-СмещY)/ЗнамY);
		НомерТайла=Кол+6*Ряд;
		Состояние(" Конт="+Конт+" № "+НомерТайла+" Х="+Икс+" Y="+Игрек+" "+ЗнамX+" "+ЗнамY+" Кол="+Кол+" Ряд="+Ряд+" Ш_MDI="+ШиринаMDI+" В_MDI="+ВысотаMDI+" Ш_="+Ширина+" В_="+Высота);
	КонецЕсли;
	Если НомерТайла=0 Тогда
		Сервис.УстановитьКурсор();
	Иначе
		Если (НомерТайла=3)
		ИЛИ(НомерТайла=4)
		ИЛИ(НомерТайла=5)
		ИЛИ(НомерТайла=8)
		ИЛИ(НомерТайла=9)
		ИЛИ(НомерТайла=10)
		ИЛИ(НомерТайла=14)
		ИЛИ(НомерТайла=15)
		ИЛИ(НомерТайла=16)
		ИЛИ(НомерТайла=39)
		ИЛИ(НомерТайла=33) Тогда
			Сервис.УстановитьКурсор(14);
		Иначе
			Сервис.УстановитьКурсор();
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Процедура ПриНажатииЛевойКнопки(Конт,Сост,Икс,Игрек,ФСО)
	Если ТипЗначенияСтр(Конт)="ГрупповойКонтекст" Тогда Возврат;КонецЕсли;
	Если НомерТайла = 1 Тогда
	ИначеЕсли НомерТайла = 3 Тогда
		ОткрытьФорму("Документ.ПлатежноеПоручение");
	ИначеЕсли НомерТайла = 4 Тогда
		ОткрытьФорму("Документ.АвансовыйОтчет");
	ИначеЕсли НомерТайла = 5 Тогда
		ОткрытьФорму("Документ.Зарплата");
	ИначеЕсли НомерТайла = 8 Тогда
		ОткрытьФорму("Документ.ПриходнаяНакладная");
	ИначеЕсли (НомерТайла = 9)ИЛИ (НомерТайла = 15)  Тогда
		ОткрытьФорму("Документ.БанковскаяВыписка");
	ИначеЕсли НомерТайла = 10 Тогда
		ОткрытьФорму("Документ.РасходныйКассовый");
	ИначеЕсли НомерТайла = 14 Тогда
		ОткрытьФорму("Документ.ВозвратПоставщику");
	ИначеЕсли НомерТайла = 16 Тогда
		ОткрытьФорму("Документ.ПриходныйКассовый");
	ИначеЕсли НомерТайла = 33 Тогда
		ОткрытьФорму("Документ.РасходнаяНакладная");
	ИначеЕсли НомерТайла = 39 Тогда
		ОткрытьФорму("Документ.Перемещение");
	КонецЕсли;
КонецПроцедуры