|
//*******************************************************************
//ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА FORMEX
//
Процедура ПослеОткрытия()
локРасшФормы = СоздатьОбъект("РасширениеФормы");
локСервис = СоздатьОбъект("Сервис");
локРасшФормы.Максимизирована = 1;
текФорма = локРасшФормы.ПолучитьФорму();
локРасшФормы = "";
//убираем все лишнее с экрана
локРасшФормы1 = СоздатьОбъект("Окна");
локРасшФормы1.ПоказыватьПанели(0);
локРасшФормы1.ПоказыватьСтрокуСостояния(0);
локРасшФормы1.СтильОкна(,2);
локРасшФормы1.СтильОкна(текФорма,2);
локРасшФормы1.РазмерОкна(текФорма,800,600);
локРасшФормы1.ЦентрироватьОкно(текФорма);
КонецПроцедуры // ПослеОткрытия
//*******************************************************************
//ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА
//
Процедура ПриОткрытии()
_текКаталог = ФС.ТекКаталог();
СпрП = СоздатьОбъект("Справочник.Пользователи");
СпрТ = СоздатьОбъект("Справочник.Табель");
_СтрокаСортировки = "Сотрудник+"; //список сотрудников - по алфавиту
//настройку между сеансами - не сохраняем!!!
РазрешеноЗакрыть = 0; //блокировка выхода по ESC
иКартинка.РежимРисования(3); //режим "пропорционально"
Форма.ИспользоватьСлой("Общий,Основной,Изображение",2); //основное рабочее поле
_ПолеВвода = "ВыбШКтовар"; //объект приёма фокуса/ввода
_Тикер = _getPerformanceCounter(); //пауза перед переходом в режим ожидания
Форма.Закрыть(); //активизируем поле приема данных
КонецПроцедуры // ПриОткрытии()
//*******************************************************************
//ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА
//
Процедура ПриЗакрытии()
Если РазрешеноЗакрыть = 0
Тогда //финт ушами для перемещения фокуса в поле ввода
Активизировать(_ПолеВвода);
СтатусВозврата(0);
Возврат;
КонецЕсли;
ФС.УстТекКаталог(_текКаталог);
Если Найти(Врег(ИмяПользователя()),"АДМИНИСТРАТОР") = 0
Тогда //для всех, кроме админиа - доступен только "дежурный" режим...
ЗавершитьРаботуСистемы(0);
КонецЕсли;
КонецПроцедуры // ПриЗакрытии()
*******************************************************************
//ПРЕДОПРЕДЕЛЕННАЯ ПРОЦЕДУРА FORMEX
//
Процедура ПриНажатииКнопкиКлавиатуры(код, _а, _ш, _к, символ, ФСО=1)
//Предупреждение("нажат "+Код+"="+символ);
Если (код = 121) и (_к=1)
Тогда //выход, ctrl+ф10
ФСО = 0;
ВыбШКтовар = "";
РазрешеноЗакрыть = 1;
Форма.Закрыть();
Возврат;
КонецЕсли;
Если код = 123
Тогда //в режим ожидания, ф12
ФСО = 0;
кнОжидание();
Возврат;
КонецЕсли;
Если код = 114
Тогда //ручной выбор, ф3
ФСО = 0;
ВыбШКтовар = "";
Форма.ИспользоватьСлой("Общий,Основной,Изображение,Список",2);
//прочий рабочий код..
КонецЕсли;
Если код = 119
Тогда //сортировка таблицы ручного выбора, ф8
ФСО = 0;
Если _ПолеВвода = "ВыбШКтовар"
Тогда Возврат;
КонецЕсли;
Если _СтрокаСортировки="Сотрудник+"
Тогда _СтрокаСортировки="Подкраска+,Подразделение+,Сотрудник+";
Иначе _СтрокаСортировки="Сотрудник+";
КонецЕсли;
ТЗСписок.Сортировать(_СтрокаСортировки);
КонецЕсли;
КонецПроцедуры // ПриНажатииКнопкиКлавиатуры
|
Страницы: [1] 
В модальном режиме формы не ловятся нажатия клавиш (число прочтений - 13179 )
