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


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

Выдает ошибку:
РасшФормы.УстановитьФорму(ТекФорма.Форма);
{Глобальный модуль(530)}: Значение не представляет агрегатный объект (Форма)
Почему?!

не вижу инициализацию переменной ТекФорма

(1) а я вижу

(2) я уже тоже

вот весь код:

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


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

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

(2) (3) Ну и?

АктивныйКонтекст / ActiveContext

Синтаксис: АктивныйКонтекст(Контекст)

Параметры:

Контекст - тип: Любой. Переменная, в которую возвращается активный контекст.

Возвращает: результат выполнения метода в виде числа: 1 в случае успеха, 0 в противном случае.

Описание: Предназначен для получения контекст активного в данный момент окна. В качестве контекста окна с выведенной mxl-таблицей возвращается объект Таблица.

не вижу проверки результата

Опачки.....
При открытии журнала сразу после запуска 1с - ошибка.
Тут же открываю другой журнал
Команда = 49278 - 1 - ГрупповойКонтекст
Журнал

Почему сразу после запуска ругается?

А если засунуть РасшФормы.УстановитьФорму(ТекФорма.Форма) в условия?

(10) Я вот тут у себя порылась... РасширениеФормы вызывается в ПослеОткрытия().
Чего делать - пока не знаю.

(12) каких команд?

(13) Вот этих:

 	Если (Команда = 98848) Тогда

(15) ты не мудри, ты скажи, что сделать хочешь

(16) Щас - процесс идет...

(17) какой процесс?

(18) Хочу закрывать журналы док-тов по Esc.

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

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

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

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

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

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

Вторая процедура (приПолученииКоманды) закрывает по Esc печ. форму.

(21) >>Кто хочет - проверяйте
Тебя уволить просто надо. Надо же додуматься: птичьим бейсиком стандартный ввод ловить... Бабья логика, уж извините.

(22) Предложи другой вариант, мужская логика.

(23) Вообще-то я уже высказал свое мнение. Но увольнять вас или нет - прерогатива ваших же работодателей. Мне все равно, как вы понимаете.

(24) Меня бесит, когда критика безосновательная. Можешь предложить лучший вариант - давай посмотрим. Нет - помолчи.

(25) Мне неинтересно, что с вами. Факт в том, что вы глупости делаете.
Касательно же того, что вас бесит или того, что вы предлагаете совместно посмотреть - то это ваши же субъективные замороки.
Дабы продолжить дальнейшую дискуссию в более конструктивном русле - требуется по меньшей мере ваше фото, желательно в неглиже. Отказ же от этого, на мой взгляд, можно рассматривать как нежелание сотрудничать.

(26) А прямо спросить про "неглиже" религия не позволяет? Нужно давить своим начальствующим положением?

(27) Кхм... Какая вы прыткая. Надо сначала неглиже, а потом уже может быть давить. Давайте соблюдать этикет. [smile=:P]

(28) Нет уж. Сначала обоснуйте критику. А потом (в зависимости от предложенного решения) - посмотрим.

(29) *зеваю*

Женщины бывают "прелесть какие глупенькие" и "ужас какие дуры"©

Собственно, для правильной классификации и необходимо (28)

(30) (31) Слушайте, ну поройтесь в инете, посмотрите на голых баб. А как мысли осенят - возвращайтесь из "нирваны" и поговорим.

(32)>>и поговорим
О чем?

А никто не писал скрипты в клюшках?

(34) все писали

(35) Почему не работает?

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

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

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

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

(37) Вопрос тот же - закрывать по Esc.

Вроде надо
wsh.AppActivate(ЗаголовокОдинэс)

WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("%");
WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
WSHShell = 0;

(40) Это что?

Это тело функции ESC

(36) это чё такое?

(43) Воткнула - не работает.
(45) Скажи по 1с. Я уже не знаю, чего оно не работает...

(46) ответь на (44)

(47) Первые две - пример, нашла в инете.
Последняя - хочу Esc назначить комбинацию нажатия Ctrl+F4 (закрывает активное окно в 1С).
Не работает ни одна из трех [smile=;_;]

(48) и куда ты этот скрипт, извиняюсь за выражение, втыкаешь?

(49) Конфигурация - OpenConf - Скрипты.
Сделала файл Keyboards.vbs.

(50) гениально

(51) А куда надо?

существует абсолютно штатный способ, без использования внешних библиотек и скриптов

(54) Издеваешься, да? [smile=;_;]

(55) нет.

короче, нужно сделать невидимую кнопку на форме журнала, назначить ей клавишу "Esc", и в обработчике сделать закрытие формы

обработчик будет выглядеть так:

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

кнопку с кодом Esc можно выдрать отсюда:
Кнопки2.zip

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

(58) И в каждом журнале надобно втыкать?

(61) ага

andrewks континуум журналов

Это чего? [smile=o_O]

(67) ну, и долго втыкать кнопки? по пол-минуты на журнал. за 5 минут можно 10 журналов обработать. зато - никакого гемора, никаких компонент, всё абсолютно штатно

Андрей! Но по Ctrl + F4 - закрываются же журналы. Закрываются. Неужели нельзя переопределить Esc эту же комбинацию? А?

(69) ты не ищешь лёгких путей, да?

(71) Да нет. Просто - люблю четко, минимально и красиво.

Скажи - куда пихать скрипты? А?

(73) я не знаю, куда их пихать, чтобы работало в предприятии, а не конфигураторе

(74) Блин.
Осталось только утопиться [smile=;_;]

(75) пихуй как в (40) с учетом (39)

(73) А так же бессмысленно и беспощадно :) Вообще-то практика показывает, что оператор утром открывает журналы тех документов, с которыми работает, и до вечера они открытыми и висят. Смысла во всех этих извращениях особенно никакого.

(76) Не пойму - как? Подскажи, пожалуйста.

(78) Давай сделаем проще? Ты фото в неглиже - а я тебе как?
Очень просто это делается на 7.7. И никакие скрипты не нужны. Ну факт, да. Элементарно.

Что-то мне подсказывает, что-то вроде WSHShell.SendKeys("{^F4}");
Ну или как-то так. С синтаксисом экспериментировать надо, смысл думаю понятен. А так... 10 секунд в гугле:
http://msdn.microsoft.com/ru-ru/library/system.windows.forms.sendkeys.aspx

(81) Неа. ;) Скрипты тут не нужны.
"Зри в корень".