v7: Хочу закрывать журналы по Esc #712797

День добрый! Итак, хочу, чтобы журналы документов закрывались по кнопке "Esc". РасшФормы.УстановитьФорму(ТекФорма.Форма); {Глобальный модуль}: Поле агрегатного объекта не обнаружено (Форма) Почему?

День добрый! Итак, хочу, чтобы журналы документов закрывались по кнопке "Esc". РасшФормы.УстановитьФорму(ТекФорма.Форма); {Глобальный модуль}: Поле агрегатного объекта не обнаружено (Форма) Почему?

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

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

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

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

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

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

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

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

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

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

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

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

см. работает ?

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

+ Да нет ФСО при открытии 1... А нельзя, чтобы док-т отдельно закрывался, а журнал отдельно?

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

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

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

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

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

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

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

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

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

хрень полная..

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

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

это к

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

Уже вижу.

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

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

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

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

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

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

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

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

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

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

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

Закрыл усе... Зараза...

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

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

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

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

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

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

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

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

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

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

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

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

Обойти - никак?

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

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

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

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

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

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

То есть не обойти?

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

см

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

Название темы навеяло :) , "хочу окна мышкой открывать, и не смотря на советскую власть хочу чтобы на рабочем столе иконки были"

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

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

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

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

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

Не, никак ?

А это принципиально чтоб скриптами? Имхо всегда такое работало:

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

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

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

в каждой

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

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

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

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

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

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

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

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

есть куча всяких фиговин, которые перехватывают очередь клавиатуры, и модифицируют её. Например AutoHotKey у меня используется в пофигураторе, чтобы раскладку поменьше переключать (всякие < > # $ | ~ и т.п.) скрипт выглядит так Ctrl_A = ^{SC01E} #IfWinActive 1С:Предприятие ;ahk_class Afx:400000:0:0:0:c08df ;======================================================================== ;Закрытие окна сообщение Ctrl+z (не всем нравится) ;$^SC02C::SendMessage %WM_COMMAND%, 0x1802c, 0,, A $!SC02B::Send | У меня запускается при старте системы. Можно при старте 1С запускать, или ещё как. В твоём случае в скрипте д.б. строчка $SC001::Send ^+{F4} (001 - это скан-код Esc)

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

В глобальнике ПриНачалеРаботыСистемы добавила Hello - выводится, а вот по Esc не закрывается...

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

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

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

Фигасе себе... Предупреждать надо.

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

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

минимальный скрипт #IfWinActive 1С:Предприятие ;ahk_class Afx:400000:0:0:0:c08df ;======================================================================== ;CtrlF4  по Esc  - весьма спорно $SC001::Send ^+{F4} Автозапуск: в винде в меню пуск, в папку автозапуск запихать командный файл, с таким примерно содержимым. start P:AutoHotkeyAutoHotkey.exe X:AHKV7.ahk Если надо в терминале, то там тоже где-то прописывается скрипт при запуске сессии. Игры с SendKeys  в обработчике события клавы - штука тонкая, очень легко всё поломать.