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

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

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

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

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

Почему?

а что за ТекФорма?

РасшФормы.УстановитьФорму(Форма);

(2) Ругается сразу при входе в Предприятие :(

РасшФормы.УстановитьФорму(Форма<<?>>);
{Глобальный модуль(532)}: Переменная не определена (Форма)

Забыла сказать - процедура в глобальнике.

ааа..

РасшФормы.УстановитьФорму(мКонтекст.Форма);

(4) Не ругается, но клава - не реагирует :(
Ни стрелки, ни Enter, ни Esc.

>>> Если глСервис.АктивныйКонтекст (ТекФорма)

вот этот мусор хоть поправила ?

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

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

там должно быть тип того:

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

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

(8) Ты - как всегда - УМНИЦА!!!!
Вот так работает:

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

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

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


Дальше - буду ковырять.
ОГРОМНОЕ СПАСИБО! Чмоки!

+(9) ФСО - буду пробовать.
Еще раз - СПАСИБО!!!!

(10) не помню ужо, но разве в АктивныйКонтекст форма передается ?
Был же контекст раньше..
:)

ну и, лучше ПриОТжатии пользовать, а не приНажатии..

(13) Не понял?

Тут еще грабли оказались:

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

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

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

//************ Закрытие печатной формы по кнопке "Esc" *************************
Процедура ПриПолученииКоманды(Команда) Экспорт
    
    Перем ТекФорма;
    
    глСервис = СоздатьОбъект("Сервис");

    Если (Команда = 98848) Тогда
        Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда
            Если (ТипЗначенияСтр(ТекФорма) = "Таблица") Тогда
                ФСО = 0;
                ТекФорма.Показать( , , -1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры    // ПриПолученииКоманды

ПриПолученииКоманды - закрывает только открытую печ. форму.
Теперь, если в открытой печ. форме нажать Esc - ругается -
РасшФормы.УстановитьФорму(мКонтекст.Форма);
{Глобальный модуль(531)}: Значение не представляет агрегатный объект (Форма)

Дурдом какой-то.

(14) см. (9)

работает ?

(15) Да... Но открыла журнал, открыла док-т, открыла печ. форму. Нажала Esc - закрылась печ. форма (ура - не ругается), опять нажимаю Esc - закрывается и док-т и журнал. Оба сразу.
По-моему, я знаю в чем грабли...

+(16) Да нет ФСО при открытии 1...

А нельзя, чтобы док-т отдельно закрывался, а журнал отдельно?

(17) проверяй тип контекста

у тебя же еще там и команды рвджетсом вроде перехватываются, не ?..
хз, че там у тебя, а так, всё можно :)

(19) Вот обе две процедуры.

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

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

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

//************ Закрытие печатной формы по кнопке "Esc" *************************
Процедура ПриПолученииКоманды(Команда) Экспорт
    
    Перем ТекФорма;
    
    глСервис = СоздатьОбъект("Сервис");

    Если (Команда = 98848) Тогда
        Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда
            Если (ТипЗначенияСтр(ТекФорма) = "Таблица") Тогда
                ФСО = 0;
                ТекФорма.Показать( , , -1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры    // ПриПолученииКоманды


Больше нигде Я клаву и команды не хватаю.

(18) Групповой. И для документа, и для журнала.

в ПриПолученииКоманды бред же написан.. с ТекФормой..

(22) Согласна. Но "бред" работает. Там столько проблем было, пока "бред" заработал...
И "бред касается только печ. формы. Или нет?

(23)
ты объявила Перем ТекФорма и далее у неё проверяешь
Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда

там всегда 0 будет, ибо ТекФорма - дырка от бублика.

(24)

    Если (Команда = 98848) Тогда
Сообщить("! - " + глСервис.АктивныйКонтекст (ТекФорма));         
        Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда
            Если (ТипЗначенияСтр(ТекФорма) = "Таблица") Тогда
                ФСО = 0;
                ТекФорма.Показать( , , -1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;


Пишет: ! - 1

(20) а если зайти в форму нового элемента справочника и нажать ESC, что будет?

(26) Стандарт отрабатывается - Сохранить - да, нет.

(25) хрень полная..

одна из черепашек врёт :)

у меня с твоим кодом сыпет ошибки на РасшФормы.УстановитьФорму(мКонтекст.Форма);
при ESC в форме нового элемента справочника

это к (27)

(30) А у меня - нет.
(28) Ну работает же! Там были заморочки: если в печ. форме открыть предпросмотр, еще там чего-то. Сейчас печ. форма отлично закрывается. А сам док-т остается открытым.

Теперь журнал не закрывается. И не ругается :(

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

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

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

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

(32) Уже вижу.

+(32) Поправила. Закрывается и док-т, и журнал. По одному Esc.

Если в начале процедуры воткнуть Сообщить(...), то выводится 2 раза. Esc нажат 1 раз. Почему?

Упс...
А ПриНажатии.... тот же код отрабатывает...

Нафиг, нафиг. Я когда-то боролся, так все глюки не победил. То что-то лишнее закрывается по Esc, то наоборот, не закрывается. Самая суровая проблема была с системными окнами типа выбора периода и поиска по номеру.

(37) В принципе - да. Но - печ. формы (хотя Ё и ругается) отрабатывает. Без глюков и вылетов.

Может попробовать обходным манёвром? Ну что-то типа распаковать конфу GComp, руками поправить хоткей на кнопке Закрыть в журналах и запаковать снова? Если, конечно, GComp позволит произвольный хоткей поставить.

(39) Да нет. Так глубоко копать - не знаешь, что выкопаешь. Сегодня проверю ПриНажатии...

(39)  gcomp то сможет, но что характерно, 1С всё это сожрёт. Вплоть до всяких NumLock, Pause и т.д.

У меня - работает:

//************ Закрытие журналов и справочников по кнопке "Esc" *******************************
Процедура ПриНажатииКнопкиКлавиатуры(мКонтекст, КодКлавиши, Альт, Шифт, Контрол, Символ, ФСО) Экспорт
    
    ФСО = 1;

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

        глСервис = СоздатьОбъект("Сервис");
        
        Если глСервис.АктивныйКонтекст (мКонтекст) = 1 Тогда
            Если (ТипЗначенияСтр(мКонтекст) = "ГрупповойКонтекст") Тогда

                РасшФормы = СоздатьОбъект("РасширениеФормы");     
                РасшФормы.УстановитьФорму(мКонтекст.Форма);

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

            КонецЕсли;

        КонецЕсли;

    КонецЕсли;

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

//************ Закрытие печатной формы по кнопке "Esc" *************************
Процедура ПриПолученииКоманды(Команда) Экспорт
    
    Перем ТекФорма;
    
    глСервис = СоздатьОбъект("Сервис");

    Если (Команда = 98848) Тогда
        Если глСервис.АктивныйКонтекст (ТекФорма) = 1 Тогда
            Если (ТипЗначенияСтр(ТекФорма) = "Таблица") Тогда
                ФСО = 0;
                ТекФорма.Показать( , , -1);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры    // ПриПолученииКоманды


FomEx v 2.0.5.108

Попробуйте теперь в этом журнале открыть, например, окно выбора периода (штатное) и нажать Esc.

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

(43) Закрыл усе... Зараза...

В ПриПолученииКоманды не рабочий код + не ясно, нафига всё это там надо, когда Таблица и так всегда по  Esc сама закрывается всегда, штатно

(46) Да не закрывается открытая печ. форма по ESC. Не закрывается...

(46) Где? Первый раз слышу, что бы таблицы штатно закрывались по Esc.

Похоже у Ёпрст 1С версии 7.8.3 :)

(49) Пусть делится :)

+(47) Грабли...
А кто-нибудь знает команды для журналов?

не туда посмотрел, в активный контекст возвращается сам контекст в параметры функции, тогда да, будет работать
:)

всё равно, не проще так то ?

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

нафига тебе приПолученииКоманды  ?

менюшку ловить ?

(54) попробуй в открытой печ. форме октрыть предпросмотр.

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

(57) Обойти - никак?

(56) ты не хочешь, чтоб при предпросмотре, форма таблицы закрывалась.. логично

(58) запретить их открытие разве что

(53) Такой код, на сколько помнится, косячит, когда жмёшь Esc при открытой системной форме. Например, параметров страницы.

+60 точнее, нужно всего лишь в одном из общих журналов воткнуть галки - что он используется как полный и доп журнал

чтоб всегда его форма открывалась

(61) Не-а. Поэтому и код не окшерный (Ё ругается :( ).

То есть (57) не обойти?

(64) не-не, я затупил, снеговик съедает мозг, не обращай внимания, код рабочий

(65) см (62)

(67) Чего-то у меня не получается :(

Название темы навеяло :) https://www.youtube.com/watch?v=j2fDEZOvVBc ,
"хочу окна мышкой открывать, и не смотря на советскую власть хочу чтобы на рабочем столе иконки были"

Извините, но я еще спрошу.
А в телепате нельзя переопределить кнопки?

(70) можно, только не в "телепате", а в примитивном скрипте к опенконфу

(71) А кинь пример, пожалуйста.

Чёт не получается у меня :)
Сделала файл - Keyboards.vbs, в нем написала следующее:

function CtrlF()' Поиск
    Set wsh = CreateObject("wScript.Shell")
    wsh.SendKeys("^{F3}")
end function

Sub CtrlH() 'Поиск с заменой
    Set wsh = CreateObject("wScript.Shell")
    wsh.SendKeys("^+{F3}")
End Sub

Sub Esc() 'Закрытие
    Set wsh = CreateObject("wScript.Shell")
    wsh.SendKeys("^+{F4}")
End Sub

В конфигураторе - все вижу. А не работает...

Подскажите, пожалуйста, можно ли (если да, то как) сделать так, чтобы скрипты работали в режиме Предприятия?

Не, никак (74)?

А это принципиально чтоб скриптами?
Имхо всегда такое работало:
Процедура ПриОткрытии(Отказ)
    ЭтаФорма.Параметры.РежимВыбора = Истина;    
КонецПроцедуры

(76) Хочу кнопке Esc назначить комбинацию Ctrl + F4. В режиме Предприятия.

(77) в неуправляемых формах Параметры не нужны (ругается..)
ЭтаФорма.РежимВыбора = Истина
и любая форма закроется по ESC

(78) В каждой форме писать надо?

(79) в каждой

(80) Во-о-о-от. А хочется: один раз и для всех.

(81) а скрипты работают в режиме предприятия?

(82) Я и спрашиваю. Да или нет?

(77)

Процедура ПриОтжатииКнопкиКлавиатуры(Конт,Код,Альт,Шифт,Контрл,Символ,ФСО)
...
Сервис.ЭмулироватьКлавиатуру("^{F4}");
...
КонецПроцедуры

(81) "Во-о-о-от. А хочется: один раз и для всех."
Не всегда благо то, что для всех. Вот сделаешь закрытие Таблиц по кнопке Esc. Для печатных форм документов самое то. А для отчетов очень спорно. За такое, как говорится, можно и канделябром по морде. Как будешь отличать таблицу отчета от таблицы печатной формы документа?

+(85) Аналогично для журналов. Закрытие их по Esc спорный функционал. Например, пользователь в журнале пользуется инкрементальным поиском. Этот поиск в 7.7 временами сильно тупит, тормозит и не сразу прерывается по Esc. Пользователь раздраженно Esc-Esc-Esc. В конце концов у него прерывается поиск и, заодно, еще и пара журналов закрывается :)

(86) В 8ке по Esc ничего не прерывается.

(87) 8ка обсуждается в соседней теме.

(83) есть куча всяких фиговин, которые перехватывают очередь клавиатуры, и модифицируют её. Например AutoHotKey
у меня используется в пофигураторе, чтобы раскладку поменьше переключать (всякие < > # $ | ~ и т.п.)

скрипт выглядит так

Ctrl_A = ^{SC01E}
Ctrl_L = ^{SC026}
Ctrl_Shift_Z = ^+{SC02C}

WM_COMMAND := 0x111

#IfWinActive 1С:Предприятие ;ahk_class Afx:400000:0:0:0:c08df


;Ctrl-A - select all
;$^SC01E::SendMessage %WM_COMMAND%, 0xe12a, 0,, A

;========================================================================
;Закрытие окна сообщение Ctrl+z (не всем нравится)
;$^SC02C::SendMessage %WM_COMMAND%, 0x1802c, 0,, A


;========================================================================
;символ '<' по Ctrl-,
$^SC033::Send <


;========================================================================
;символ '>' по Ctrl-.
$^SC034::Send >



#IfWinActive Конфигуратор

;Ctrl-4 --> $
^SC005::Send $

;========================================================================
;символ '[' по Alt-[
$!SC01A::Send [
;символ ']' по Alt-]
$!SC01B::Send ]

;символ '~' по Alt-~
$!SC029::Send ~
$!SC003::Send @
$!SC004::Send #
$!SC005::Send $
$!SC02B::Send |


У меня запускается при старте системы. Можно при старте 1С запускать, или ещё как.
В твоём случае в скрипте д.б. строчка
$SC001::Send ^+{F4}

(001 - это скан-код Esc)

(89) Скажи, пожалуйста, куда вставить эту строчку и как запустить при старте.

В глобальнике ПриНачалеРаботыСистемы добавила

    // скрипт
    Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
    Скрипт.Language = "vbscript";
    Скрипт.AddCode("
    |Function Esc()
    |Set wsh = CreateObject(""wScript.Shell"")
    |wsh.SendKeys(""^{F4}"")
    |MsgBox ""Hello, my macro!""
    |end Function
    |");
    Скрипт.Run("Esc");    


Hello - выводится, а вот по Esc не закрывается...

Что не так-то?

чем тебе (84) не нравится ?

(93) Упс... Пропустила... Попробую. А со скриптом - что не так?

Фигасе себе...

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

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

        глСервис = СоздатьОбъект("Сервис");
        глСервис.ЭмулироватьКлавиатуру("^{F4}");        
        
//Сообщить("актив - " + глСервис.АктивныйКонтекст (мКонтекст));
//        Если глСервис.АктивныйКонтекст (мКонтекст) = 1 Тогда
//            Если (ТипЗначенияСтр(мКонтекст) = "ГрупповойКонтекст") Тогда
//
//                РасшФормы = СоздатьОбъект("РасширениеФормы");     
//                РасшФормы.УстановитьФорму(мКонтекст.Форма);
//Сообщить("тип - " + РасшФормы.ТипОбъекта());
//                Если ((РасшФормы.ТипОбъекта() = "Журнал") или (РасшФормы.ТипОбъекта() = "Справочник")) Тогда
//                    ФСО = 1;
//                    мКонтекст.Форма.Закрыть(1);
//                КонецЕсли;
//
//            КонецЕсли;
//
//        КонецЕсли;

    КонецЕсли;

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


Намертво повисла...
Предупреждать надо.

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

(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) так и надо было делать - тупой копи-пасте..