День добрый!
Итак, хочу, чтобы журналы документов закрывались по кнопке "Esc".

Процедура ПриНажатииКнопкиКлавиатуры(мКонтекст, КодКлавиши, Альт, Шифт, Контрол, Символ, ФСО) Экспорт
    
    Перем ТекФорма;

    ФСО = 0;
    
    Если КодКлавиши = 27 Тогда
         глСервис = СоздатьОбъект("Сервис");
         
         РасшФормы = СоздатьОбъект("РасширениеФормы");     
         РасшФормы.УстановитьФорму(ТекФорма.Форма);
         
        Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда
             ТекФорма.Закрыть(0);
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры // ПриНажатииКнопкиКлавиатуры()

Выдает ошибку:
РасшФормы.УстановитьФорму(ТекФорма.Форма);
{Глобальный модуль(532)}: Поле агрегатного объекта не обнаружено (Форма)

Почему?

(95) ФСО = 0 забыла. Нужно же Esc "проглотить" и заменить его на Ctrl+F4
У меня работает, не виснет ничего.

(90) минимальный скрипт
#IfWinActive 1С:Предприятие ;ahk_class Afx:400000:0:0:0:c08df


;========================================================================
;CtrlF4  по Esc  - весьма спорно
$SC001::Send ^+{F4}


Автозапуск: в винде в меню пуск, в папку автозапуск запихать командный файл, с таким примерно содержимым.

start P:\AutoHotkey\AutoHotkey.exe X:\AHK\V7.ahk


Если надо в терминале, то там тоже где-то прописывается скрипт при запуске сессии.

Игры с SendKeys  в обработчике события клавы - штука тонкая, очень легко всё поломать.

(98) Всё, поняла. Не буду.

(97) В таком варианте:

Процедура ПриОтжатииКнопкиКлавиатуры(мКонтекст, КодКлавиши, Альт, Шифт, Контрол, Символ, ФСО) Экспорт
    
    ФСО = 0;

    Если КодКлавиши = 27 Тогда

        глСервис = СоздатьОбъект("Сервис");
        глСервис.ЭмулироватьКлавиатуру("^{F4}");        
        
    КонецЕсли;

если открыть выбор периода - закрывается и выбор, и журнал.

А что мешает использовать ПриПолученииКоманды()
формексом определить тип контекста, если журнал
то Контект.Форма.Закрыть().
Делов то.

Что-то типа того что ты просила для закрытия Таблиц по ECS.

(101) Проблема в системных окнах типа выбора периода или настроек страницы. Они не имеют своего контекста. Ты получил контекст формексом, считаешь, что отчет открыт, а на самом деле активно окно параметров страницы и закрывать таблицу, перехватив Esc, нельзя. 1Ска рухнет, когда родительское окно, из которого было открыто модальное системное, незапланированно исчезнет.

(103)Ну так это ж не проблема.
Отловить Получение команды ВыбораПериода.
Это ж тоже команда.
Я таким образом для закрытия табличного документа в случае открытых Настройки параметра страницы и диалога печати тож использую такие извращения.

а в журналах не так много системных окон.
их можно тоже отловить.

тут главное подход, а реализация это дело второе.

Кстати, а что никто до сих пор не предложил все журналы на ТП переписать?
Вот, предлагаю :)  Обработки то штатно по Esc закрываются.

(107) кстати это тож вариант.
только ж скоко ж журналов переписывать.......

я вот взялся переписать общий журнал с множественными фильтрами, да так и не закончил.

(108) Процесс конечно не быстрый
Мы тут у себя не где-то с год назад довели технологию до ума - и теперь любой журнал клепается за час.

(110) уй! дайте шаблон! ;-) ато меня псевдожурнал мой на ТЗ противоречит моему чувству прекрасного...

(111) Он тя щас своими классами закидает.
Вряд ли с первого раза въедешь.

я его знаю.
в него вся конфа классами прошита.

(101) У каждого журнала своя команда (уже проверила).

+(114) И у справочников тоже - у каждого своя.

Причем, команда возвращается при открытии. По Esc - нету команды.

(114) не журнала а системных команд.
Выбор периода во всех журналах имеет одну и туже команду.
ESC ловим принажатииКнопкиКлавиатуры.
вот там и разруливаем нужные действия.

так я использую Таблица.Показать(-1);
если активный контекст это Таблица.
Что тебе мешает делать тоже если активныйконтекст имеет тип Журнал.

(116) Ну дык - попробуй. У меня не вышло.
ПриПолученииКоманды - возвращает команду при открытии журнала. При нажатии Esc в журнале - тишина...

(117) АктивныйКонтекст (в приполучениикоманды) - Групповой.

(117) Печ. формы по Esc - работает :)

1.Заводи глобальныу переменную БлокироватьЕСкейп.
2. В ПриполученииКоманды Ловим что за команда имея список системных команд либо делаем что-то или не далаем.
3. В ПриНажатииКнопкиКлавиатуры смотрим в каком состоянии
БлокироватьЕскейп.
4.Если блокировать ни чего не далем, в противном выполняем нужные действия.
5.В результате получаем правильное поведение нажатия ESC по системным командам и то что нам нежно если это не системная команда.

все просто доупопения.

(121) А сам пробовал?

(121)яж кажу.
Таким макаром я перехватил системные команды ПараметрыСтраницы и диалог печати.

что мешает перехватить все остальные?

(124) Покажи код, а? Пожалуйста.

о!
кстати это идея!
это ж можно таким макаром и закрывать системные кона для выгона пользователей!

Процедура ПриПолученииКоманды(Команда,Флаг) Экспорт
    Сообщить(Команда);
    Если Команда=32805 Тогда
        Ответ=Вопрос("Запрещено блокировать сеанс!
        |Выйти их системы?","Да+Нет");
        Флаг=1;
        Если Ответ="Да" Тогда
            глВыходВопрос=1;
            ЗавершитьРаботуСистемы(0);
        КонецЕсли;
    ИначеЕсли Команда=57604 Тогда
        Конт=1;
        ОткрытьФормуМодально("Обработка.СохранениеТаблицы",Конт);
        Если Конт=1 Тогда
            Флаг=1;
        КонецЕсли;
    ИначеЕсли Команда=33899 Тогда
        Флаг=1;
        ОткрытьФорму("Обработка.АктивныеПользователи");
    //ИначеЕсли Команда=32875 Тогда
    //    Конт=1;
    //    ОткрытьФормуМодально("Обработка.УстановкаВремени",Конт);
    //    Если Конт=1 Тогда
    //        Флаг=1;
    //    КонецЕсли;
    ИначеЕсли Число(глКонвертировать)=1 Тогда
        Если Команда=57607 Тогда
            БлокироватьЭскейп=1;
            Конт=1;
            ОткрытьФормуМодально("Обработка.ПреобразованиеMXL",Конт);
            Если Конт=1 Тогда
                Флаг=1;
            КонецЕсли;
        КонецЕсли;    
    ИначеЕсли (Команда=57605) ИЛИ (Команда=57609) ИЛИ (Команда=57607)  Тогда
        БлокироватьЭскейп=1;
    КонецЕсли;
КонецПроцедуры    // ПриПолученииКоманды

Процедура ПриНажатииКнопкиКлавиатуры(Конт,Код,Альт,Шифт,Контрл,Символ,ФСО)
    Перем Табличка;
    Если Код = 27 Тогда
        Если глСервис.АктивныйКонтекст (Табличка) = 1 Тогда
            Если (ТипЗначенияСтр (Табличка) = "Таблица") Тогда
                Если БлокироватьЭскейп=1 Тогда
                    БлокироватьЭскейп=0;
                    //ФСО=1;
                    Возврат;
                КонецЕсли;
                ФСО=0;
                Табличка.Показать(,,-1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

(128) Спасибо. Буду пробовать.

только вместо
(Команда=57605) ИЛИ (Команда=57609) ИЛИ (Команда=57607)
можно создать список команд и проверять на вхождение.

спасибо за идею.

Мот тебе такое решение ?
Все системные окошки не закрывает, только журнальчик
http://gfile.ru/aazBQ

как всегда.
твои щаманства над компаундом?

как бы взял и повесил на горячую кнопку кнопу esc?

знаем твои приколы.

только что будешь делать если надо внести в этот журнал изменения?
все нахрен перестанет работать.

всмысле твою хитрую кнопку открыть и нажать не esc а ок.
а потом сохранить.
все ломается.

(136) вноси, хоткей не слетит... никогда

нет конечно это тоже вариант.
но это надо постоянно об этом помнить.

ну дык уже слетело.

не надо ничего помнить, тупо перехватчиком лепим новый атрибут - кнопка при открытии нужных форм, всё.

ежели нужна "автоматизация"

а ну если так то посыпаю голову пеплом.
не сообразил сразу.
т.е. при открытии журналов или че тама еще надо создаем атрибут с формулой Форма.Закрыть(0)
и хоткем ESC правильно понял?

а это точно идея!
так ведь моно закрывать любые формы не только журнала но и списков справочников!

Ну голова!

(143) да

вот что значит нестандартно мыслить.

хотя мой вариант тоже живучь.
вот только кнопки в журнале он не отлавливает.

+(148) т.е при нажатии на кнопку выбора периода ситема невходит в процедуру ПриПолученииКоманды.
обидно.
хотя в какой-то старой версии виджета оно отлавливалось.

(111)  Мне не жалко, но это реально большой комплекс всяких классов. Не так то просто выделить отдельно из конфы. Про разобраться я ваще молчу...

(142) Вы меня извините, но я не нашла где отрабатывается перехватчик?

Я уже повесила в журнал кнопку, но в модуле пришлось написать:

Процедура ПриНажатииКнопки(Кнопка)
    
    Если (Кнопка = "Esc") Тогда
        Форма.Закрыть();
    КонецЕсли;
    
КонецПроцедуры


А у тебя в модуле - ничего нет.
Расскажи про шаманство, пожалуйста.

(151)смотри тщательнее - просто кнопка на форме с хоткеем, вк нет .. вообще

(152) Я вижу. Esc где прописано?

(153) ?
повешен хоткей на кнопку. фсё.

там, на закладке Команда

(155) В твоем примере у меня стоит <<>>.

(156) Ты суслика види ?.. а он есть!

(157) То есть: если клавиша не назначена (<<>>) - по умолчанию это Esc?

(158) конечно нет.

(159) Объясни - ничего не понимаю. Пожалуйста.

(160) Редактором он клавишу в MD-шнике поменял на ESC скорей всего.

на вот, дарю
https://cloud.mail.ru/public/1a3a492f6119/кнопочка.ert

(160) че там объяснять то ? повешен на кнопку нужный хоткей и фсё.

(162) Спасибо.
Ты меня убъешь, наверное, но КАК повешен?! :(

если че, можно повесить любой, есть только ограничения:

-не больше 40 хоткеев на одной форме
-некоторые хоткеи не работаею без многострочной части (или тз на форме)

(164) прямая правка компаунда чем угодно - сторонним софтом, hex редактором, скриптом к опенконфу, короче, любым средством для правки компаунда.

(166) Раньше сказать не мог, противный :)

(167) если бы я был противным, то дал бы тебе ЭТО
https://cloud.mail.ru/public/e98ba7b7b7d1/Примерчик.rar

ищи теперь..

(168) Я же - ласково :) Любя :)
СПАСИБО!

(169) Ничего у меня не получается...
В журнале сделала кнопку (обозвала "КнопокаEscape"). Открываю md-шник nex-ом. Нахожу свою кнопку. Открываю твою обработку (тоже в hex'e), нахожу кнопку Esc. Вижу различия (у тебя и у себя). Меняю 0 на 27 (добавляю 1 байт и меняю значение 0 на 27). Пишет, что изменит размер файла. Меняю, сохраняю...
Запускаю 1С - общая файловая ошибка при доступе к Users... В Users... файл, на который ругается, есть только в момент запуска 1С.
ЧЯДНТ?

(171) ..не все йогурты одинаково полезны...

(171) Сделай не hex-редактором, а разбери конфигурацию gcomp, обычным текстовым редактором поправь что надо и собери gcomp обратно. Заодно, для примера, проделай это над "примерчиком.rar" из (168). Посмотришь, где там в журнале кнопка с хоткеем Esc.

(173) Декомпилировать, поправить - есть. А обратно - как? В смысле собрать?

После декомп - образовался каталог Src. В нем нашла журнал - кнопку - добавила HotKey, сохранила. Теперь - захожу на вкладку "Компиляция" - а там только md дает выбрать, а в папке Src нету md...

Вроде разобралась...
Выдает ошибки:
Неуникальный числовой идентификатор - 0:Бухгалтерия
Нулевой числовой идентификатор для Бухгалтерия
Нулевой числовой идентификатор для Задача

Это чего?

Всем помогающим - огромное спасибо и много чмоки-чмоки!

(176) 'nj hernb c vskjv yflj vsnm cgthdf
^)

(178) Переведи :)

Это не переводимый русский фольклор

В предприятии сейчас почему-то выдает ошибку - процедура не обнаружена (КнопочкаEscape)...
На форме - кнопка, заголовок - Кнопка, идентификатор - КнопочкаEscape, невидимый, далее - все пусто.

(180) У меня чистые руки. Голова только не холодная :)

А все получилось... :))))))))
Огромное СПАСИБО всем! Чмоки!

Опять - здравствуйте.
Итак, воткнула кнопки в журналы, проверила. Теперь запихиваю в рабочую БД. Сравнение - объединение... А показывает, что вся конфа поменялась... Так и должно быть? Только в журналах копалась.

(184) разный стиль винды... будут модифицированны все формы диалога

можешь посмотреть, шо менялось..через компаремд
Ну и совсем православно, через версионирование кдиф3 и т.д и т.п

(185) Все делалось на одном компе.
Вывод изменения везде (справочники, док-ты, отчеты, журналы (это понятно), обработки). Везде - диалог.

(187) и под одним юзверем ?
и стиль винды какой ?
ставь классика, не ошибешься..
А еще, лучше сжать мд..еще

и это, мд-ник, пересобирала поди еще , не ?
:)

(189) Есесьно. Чет мне кажется, что именно поэтому...

(190) какая догадливая, однако :))))))))))))))))))))))))))))0

моменяла все потоки в компаунде , еще и удивляется :)))

Пересобери мд-ник в рабочей базе, потом ужо сравнивай тогда.
Только разбирай-собирай с одинаковыми параметрами

(191) Спасибо (смущаясь и краснея) :)))))))))))))
Я поняла: кнопку делать отдельно, а потом саму кнопку вставлять куда надо.

Спасибо!!!

А так, поставь turbomd и.. половина проблем решена.

(194) так и надо было делать - тупой копи-пасте..