8.х Имитация нажатия клавиш

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Tiger86, 19 мар 2014.

0/5, Голосов: 0
  1. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    посмотрела что есть на форуме - это немного не то (как мне кажется). Вот в чем вопрос...
    Есть табличное поле. Своя кнопка на добавление строки. При добавлении надо чтоб сразу открылась форма выбора справочника. Решила сделать через имитацию нажатия клавиш. Добавляю строку, позиционируюсь на нужную строку и колонку и выполняю след.код

    Код:
    Shell = Новый COMОбъект("WScript.Shell");
    Shell.SendKeys("{Enter}");
    Shell.SendKeys("{F4}");
    он работает, никто не спорит. Но вот в чем беда. 1 строку он отрабатывает, при повторном нажании на кнопку добавить, просто добавляется строка, указанный код как бы не срабатывает и окно выбора не открывается. Что не так? Как это исправить?
    Tiger86, 19 мар 2014
    #1
  2. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    560
    Баллы:
    204
    Может нужно заново получать ком-объект ?
    Хотя зачем такой изврат, может стоит использовать УстановитьСобытие() ?
    Конфа-то какая ?
    alexburn, 19 мар 2014
    #2
  3. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    ну тык весь код же заново обрабатывается по кнопке, так что объект как раз азаново и получается... хз
    щас посмотрю про УтсанвоитьСобытие()
    конфа - самопал на обычных формах
    --- Объединение сообщений, 19 мар 2014 ---
    Алекс не нашла в СП УстановитьСобытие()
    Tiger86, 19 мар 2014
    #3
  4. alexburn
    Offline

    alexburn Модераторы Команда форума Модератор

    Регистрация:
    5 янв 2009
    Сообщения:
    15.150
    Симпатии:
    560
    Баллы:
    204
    Сейчас посмотрю, как точно называется.
    --- Объединение сообщений, 19 мар 2014 ---
    Примерно вот так не подойдет ?
    Код:
    ОбработчикИзменения = Новый Действие("НачалоВыбора");
ТаблицаРасшифровки.Колонки.Документ.ЭлементУправления.УстановитьДействие("НачалоВыбора", ОбработчикИзменения);
    --- Объединение сообщений, 19 мар 2014 ---
    Т.е. как-то задействовать УстановитьДействие()
    Последнее редактирование: 19 мар 2014
    alexburn, 19 мар 2014
    #4
  5. Thelearning
    Offline

    Thelearning Профессионал в 1С Команда форума

    Регистрация:
    9 сен 2010
    Сообщения:
    701
    Симпатии:
    72
    Баллы:
    54
    Эм... или я чуть вопрос не понял... а что мешает просто на свою кнопку повесить добавление строки и открытие нужной формы?? У ТЧ есть событие "ПередНачалоДобавления". И без всяких имитаций и прочего.
    Thelearning, 19 мар 2014
    #5
  6. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    тож лишние события прописывать, т.к. мне потребуется НачалоВыбора (задать свои параметры формы выбора справочника), ОбработкаВыбора (произвести действия с выбранным значением). Потому хотелось бы штатный метод. Предложенный код срабатывает, но почему то только 1 раз, второй раз уже не открывается форма выбора
    Tiger86, 19 мар 2014
    #6
  7. mialord
    Offline

    mialord Модераторы Команда форума Модератор

    Регистрация:
    31 июл 2009
    Сообщения:
    5.467
    Симпатии:
    53
    Баллы:
    54
    Тоже не вижу смысла в прикручивании пятого колеса, я никогда не парился, просто ставил кнопки вручную и обрабатывал команду
    mialord, 19 мар 2014
    #7
  8. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    ладно попробую через события... хотя вопрос остается открытым, может кто сталкивался
    Tiger86, 19 мар 2014
    #8
  9. Alex_fess
    Offline

    Alex_fess Опытный в 1С

    Регистрация:
    23 мар 2011
    Сообщения:
    267
    Симпатии:
    7
    Баллы:
    29
    Может подойдет такой вариант:
    В процедуре ПриАктивацииСтроки поставить условие на заполненность определенного значения (например, номенклатура, если рассматривать таб часть "товары"), если не заполнено тогда выполнять нужную функцию (открыть окно выбора справочника и вернуть значение). Тогда не нужны дополнительные кнопки добавления строк
    Alex_fess, 19 мар 2014
    #9
  10. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    зачем мне проверка? мне надо именно добавить строку, встать на определенную ячейку и открыть окно выбора и выполнить все последующие штатные процедуры. Этот код и открывает окно выбора. И все ок. Но только 1 раз, при повторном нажатии строка то добавляется, но вот окно выбора не открывается - в этом вся печалька и есть. Путаюсь по другому...
    Tiger86, 19 мар 2014
    #10
  11. Alex_fess
    Offline

    Alex_fess Опытный в 1С

    Регистрация:
    23 мар 2011
    Сообщения:
    267
    Симпатии:
    7
    Баллы:
    29
    Код:
    Процедура ПриАктивацииСтроки()
    ТекСтр=ЭлементыФормы.Таблица.ТекущаяСтрока;
Если ЗначениеЗаполнено(ТекСтр) Тогда //При удалении последней строки таблицы может выдать ошибку
        Если ЗначениеЗаполнено(ТекСтр.Номенклатура) Тогда //параметр по которому система определит новая это строка или нет
            //ВашКод
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
    Выполнение корректно и при стандартном добавлении
    Alex_fess, 19 мар 2014
    #11
  12. GlukAl
    Offline

    GlukAl Опытный в 1С

    Регистрация:
    4 окт 2012
    Сообщения:
    196
    Симпатии:
    9
    Баллы:
    29
    а автовыбор незаполненного не пробовали применять ??
    GlukAl, 19 мар 2014
    #12
  13. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    это где? в УФ вроде видела такое свойство, а в обчных чет не нахожу
    Tiger86, 21 мар 2014
    #13
  14. GlukAl
    Offline

    GlukAl Опытный в 1С

    Регистрация:
    4 окт 2012
    Сообщения:
    196
    Симпатии:
    9
    Баллы:
    29
    попробовал сам через автовыборнезаполненного, фигово получается

    а вот такой каркас вроде ничего
    Код:
    Процедура КнопкаСформироватьНажатие(Кнопка)
    ЭлементыФормы.ТабличноеПоле1.Добавитьстроку();
КонецПроцедуры

Процедура ТабличноеПоле1ПриАктивизацииСтроки(Элемент)
    Если Не ЗначениеЗаполнено(Элемент.ТекущаяСтрока.Банк) Тогда
        ФормаПодбора = Справочники.Банки.ПолучитьФормуВыбора(,ЭтаФорма,);
        ФормаПодбора.МножественныйВыбор = Ложь;
        Элемент.ТекущаяСтрока.Банк = ФормаПодбора.ОткрытьМодально();
    КонецЕсли;
КонецПроцедуры
    GlukAl, 24 мар 2014
    #14
    Tiger86 нравится это.
  15. TopicStarter Overlay
    Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    спасибо, я примерно также и сделала, только не ПриАктивизации (у меня тут другие события обрабатываются), а при нажатии на мою кнопку Добавить.
    Tiger86, 24 мар 2014
    #15
Похожие темы
  1. spiteful41

    8.х имитация нажатия кнопки

    spiteful41, 3 сен 2008, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    10
    Просмотров:
    3.314
    lazy
    7 окт 2008
  2. kamrad

    8.х Имитация нажатия кнопки выбора поля ввода

    kamrad, 20 май 2009, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    2
    Просмотров:
    2.077
    kamrad
    20 май 2009
  3. Konrad

    7.7 Почему новый слой блокирует нажатия клавиш?

    Konrad, 4 июн 2009, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    8
    Просмотров:
    1.230
    Konrad
    4 июн 2009
Загрузка...