|
10.07.2010, 00:49
#36733684
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: Дагестан,Махачкала
Сообщения: 1 080
Рейтинг:
0
/ 0
|
|
|
|
http://www.forum.mista.ru/topic.php?id=253467
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43.
ИначеЕсли Источник="Hook" Тогда // вот этот раздел касается клавиатуры
// Управляющие клавиши
Стат="";
Стат=СокрЛП(Рарус_Компонента.GetHookKeysState()); // Состояния Shift+Ctrl+Alt в момент Hook'a
СкКод=Число(Данные);
Если СкКод= 13 Тогда // <Enter>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнПробить"); КонецЕсли;
ИначеЕсли СкКод= 27 Тогда // <Escape>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнОтмена") КонецЕсли;
ИначеЕсли СкКод= 38 Тогда // <UP Arrow>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнВверх");
ИначеЕсли Стат="010" Тогда Код = 28 КонецЕсли;
ИначеЕсли СкКод= 40 Тогда // <Down Arrow>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнВниз");
ИначеЕсли Стат="010" Тогда Код = 27 КонецЕсли;
ИначеЕсли СкКод= 45 Тогда // <Insert>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнВыборМеню");КонецЕсли;
ИначеЕсли СкКод= 46 Тогда // <Delete>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнУдалитьСтроку");КонецЕсли;
ИначеЕсли СкКод= 122 Тогда // <Down Arrow>
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнЗакрыть");
ИначеЕсли Стат="010" Тогда Код = 27 КонецЕсли;
ИначеЕсли СкКод= 113 Тогда // <F2> МЕНЮ, КОЛИЧЕСТВО, НАЛИЧНЫЕ, СКИДКА НА ЧЕК, СКИДКА НА ПОЗИЦИЮ
Если Стат="000" Тогда флОбработано = ПриВыбореЗначения("кнВыборМеню"); //
ИначеЕсли Стат="010" Тогда флОбработано = ПриВыбореЗначения("кнКоличество"); // Ctrl
ИначеЕсли Стат="001" Тогда флОбработано = ПриВыбореЗначения("кнНаличные"); // Alt
ИначеЕсли Стат="110" Тогда флОбработано = ПриВыбореЗначения("кнСкидкаЧек"); // Shift + Ctrl
ИначеЕсли Стат="101" Тогда флОбработано = ПриВыбореЗначения("кнСкидкаПозиция"); // Shift + Alt
ИначеЕсли Стат="111" Тогда флОбработано = ПриВыбореЗначения("кнОтменаКарты"); КонецЕсли; // Ctrl + Shift + Alt
ИначеЕсли СкКод= 116 Тогда // <F5> ВОЗВРАТ, 0 , X, Z, ->, <-
Если Стат="010" Тогда флОбработано = ПриВыбореЗначения("кнВозврат"); // Ctrl
ИначеЕсли Стат="001" Тогда флОбработано = ПриВыбореЗначения("кн0Чек"); // Alt
ИначеЕсли Стат="011" Тогда флОбработано = ПриВыбореЗначения("кнXотчет"); // Ctrl + Alt
ИначеЕсли Стат="111" Тогда флОбработано = ПриВыбореЗначения("кнZотчет"); // Shift + Ctrl + Alt
ИначеЕсли Стат="100" Тогда флОбработано = ПриВыбореЗначения("кнВнесение"); // Shift
ИначеЕсли Стат="110" Тогда флОбработано = ПриВыбореЗначения("кнИзъятие"); // Shift + Ctrl
ИначеЕсли Стат="101" Тогда флОбработано = ПриВыбореЗначения("кнЯщик"); КонецЕсли; // Shift + Alt
КонецЕсли;
КонецЕсли;
// Если здесь не смогли обработать - на глобальный обработчик
Если флОбработано = - 1 Тогда
глОбработкаВнешнегоСобытия(Источник, Событие, Действие, Контекст);
КонецЕсли;
есть ли что то подобное в 1с8.1 Управление торговлей 10? Искал в ФормаРегистрацииПродаж.
Хочу запрограммировать клавиатуру и че то не могу найти ниче подобного
|
|
|