Как закрыть надоедливые окна, открывающиеся при старте

По мотивам http://forum.infostart.ru/forum26/topic99217/  . Закрываем окно ПереходНаРедакцию30 в Бухгалтерии 2.0 при старте.

По мотивам http://forum.infostart.ru/forum26/topic99217/ . Ничего особенного и секретного в публикации нет, так, что старожилам советую дальше не читать, не имеет смысла. А суть в следующем — при запуске конфигураций часто запускаются всякие окна. Да мы можем их один раз посмотреть. Но что делать если запускаем программу в 1000 раз? В частности дело касается последних релизов 1С Бухгалтерия 2.0 . Создаем обработку. Например teststart.epf . создадим в ней основную форму и обработчик для нее Перед Открытием:

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Попытка
        Ф = Обработки.ПереходНаРедакцию30.ПолучитьФорму();
Если Ф.Открыта() Тогда
Ф.Закрыть();
КонецЕсли;
Ф = Обработки.ДополнительнаяИнформация.ПолучитьФорму("Форма");
Если Ф.Открыта() Тогда
Ф.Закрыть();
КонецЕсли;
        Исключение
        КонецПопытки;
       Отказ = Истина;
КонецПроцедуры

А дальше пропишем в параметрах запуска /Execute «C: eststart.epf» (ну или вместо C: путь, где находится обработка) Да пустячок, но сэкономит нервы, порой так необходимые. И конфигурацию не пришлось менять. 

19 Comments

  1. makas

    Ура, работает! 🙂

    Reply
  2. dock

    огромный плюс за примечание

    И конфигурацию не пришлось менять.
    Reply
  3. TrinitronOTV

    вот это здорово, как теперь стало нормально работать с бухгалтерией

    Reply
  4. yuraos

    Плюс за смекалку и

    приверженность к «простым радостям жизни«!

    Reply
  5. yuraos

    (4)

    а как бы ее нам при старте из справочника «ВнешниеОбработки» запустить?



    а то хранить ее где-то на диске … отдельно от базы

    одним словом — не удобняк

    Reply
  6. Lukich66

    Без использования Формы и +отключить Интернет-поддержку в модуле обработки:

    //сообщить(«Василий Алибабаевич»);

    Попытка

    Ф = Обработки.ПереходНаРедакцию30.ПолучитьФорму();

    Если Ф.Открыта() Тогда

    Ф.Закрыть();

    КонецЕсли;

    Ф = Обработки.ДополнительнаяИнформация.ПолучитьФорму(«Форма»);

    Если Ф.Открыта() Тогда

    Ф.Закрыть();

    КонецЕсли;

    Исключение

    КонецПопытки;

    ХранилищеОбщихНастроек.Сохранить(«ИнтернетПоддержкаПользователей», «ПовторитьПопыткуПодключенияПриСтартеПрограммы», Ложь);

    ХранилищеОбщихНастроек.Сохранить(«ИнтернетПоддержкаПользователей», «ВсегдаПоказыватьПриСтартеПрограммы», Ложь);

    Reply
  7. insurgut

    (5) yuraos, в конфигурации 1 строчку закомментируйте при начале работы системы — будет «удобняк» безо всяких обработок 🙂

    Reply
  8. vitaspsp

    По-моему если интернет-поддержку отключить, то и на 3.0 БП не предлагает переходить.

    Reply
  9. insurgut

    (8) vitaspsp, предлагает, нет там никаких проверок на открытие этой обработки при начале работы системы.

    Reply
  10. vitaspsp

    проверки то нет, а вот вы попробуйте сделать как вам написал «Lukich66», последние 2 строки, или воспользуйтесь приложенной обработкой и не будет никакого окна с переходом на 3.0.

    Reply
  11. insurgut

    (10) vitaspsp, зачем мне пробовать, если я знаю, что эти строчки не имеют никакого отношения к показу формы с информацией перехода? Без запуска одновременного обработки со строчками:

    Ф = Обработки.ПереходНаРедакцию30.ПолучитьФорму();
    Если Ф.Открыта() Тогда
    Ф.Закрыть();
    КонецЕсли; 

    …как висело окно перехода так и будет висеть. Вы хоть код на запуск этой обработки при старте БП посмотрите 🙂

    Reply
  12. vitaspsp

    (11) insurgut, Извиняюсь, туплю. Просто у меня конфигурации клиентов доработанные все, при сравнении- объединении, в модуле обычного приложения эту строку

    // Открытие информации о переходе на ред. 3.0

    Обработки.ПереходНаРедакцию30.ПолучитьФорму().Открыть();

    пропускаю.

    Reply
  13. DAnry

    Идея хорошая. Работаю в основном с конфигурациями «для Украины». У нас «тройка» еще не вышла. Но тема актуальна. Бухгалтера часто просят убрать самопроизвольно выползающие окна. И если конфигурация снята с поддержки то «нет проблем», но в случае невозможности изменения конфигурации, представленная обработка, конечно, выход.

    Reply
  14. q_i

    AdBlock для 1С )))

    Reply
  15. Gotcha

    А что-за проблема — обновлять конфигурацию поддержки, 1 раз на ее основе сделать свои доработки и 2 раза накатывать обновления-поддержки и свои, на конфигурацию поддержки?

    Reply
  16. cool.vlad4

    (15) Gotcha, нет проблем. меняйте, я же вам не запрещаю, что хотите-то и делайте)))

    Reply
  17. Gotcha

    Вынужден это делать, увы…

    Reply
  18. eugen91

    «при запуске конфигураций часто запускаются всякие окна.»

    Отличная идея, давно подобное решение уже искали.спасибо за решение!

    Reply
  19. dinovasya

    ожибка файлового при запуске вылетает

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *