Открытие объекта базы 1С 8.2 по навигационной ссылке из письма.

Практический
вопрос, который необходимо было решить: добавить в уведомления пользователя по
задачам Документооборота кликабельную ссылку на саму задачу, по нажатию которой
запускалась 1С (если не запущена), и открывалась задача.

Данное решение
состоит из скрипта, написанного на AutoIt, и небольшого кода 1С, который нужно
вставить в процедуру формирования текста письма (для создания cmd-файла запуска
скрипта). Скомпилированный скрипт не требует доработки, и благодаря
настраиваемому ini-файлу, может быть применен к любой базе без изменений.

В состав решения
входит исходный файл AutoIt, скомпилированный exe-файл, файл конфигурирования.

[Конфигурация скрипта]

Скрипт настроен
так, чтобы не зависел от конкретной базы, и не было необходимости его заново
компилировать. Предварительно его необходимо настроить. Для этого внесите
изменения в конфигурационный ini-файл.

Параметр BaseWindowName отвечает за название
окна запущенной 1С, которое будет искать скрипт, чтобы активировать его, и
выполнить переход по навигационной ссылке (предположительно, каждая база
отличается наименованием окна).

Параметры BaseServer и BaseName отвечают за размещение базы 1С, которую необходимо
запускать, если 1С неактивна.

Параметр OpenWaitTime указывает скрипт, сколько
секунд необходимо ожидать запуска программы. Если время выходит, скрипт
завершает свою работу.

Параметры RunDirPath1 и RunDirPath2 отвечают за определение каталога локально установленной
1С для 32-х и 64-х битных систем. В параметр RunFile указан файл запуск.

Если скрипт не
находит 1С по локальным путям, считается что она не установлена, и тогда идет
попытка запустить 1С по каталогу, указанному в параметре RunDirPathRemote по
указанному в RunFileRemote файле запуска RemoteApp.

[Выполнение скрипта]

Скрипт работают
с одним ключом запуска – навигационная ссылка объекта базы 1С. Если он не
указан, то работа скрипта прерывается. Далее идет проверка, запущена ли
программа 1С (определяется по названию окна). Если программа запущена, скрипт
активирует окно 1С, помещает навигационную ссылку в буфер обмена, и эмитирует
вызов окна перехода по навигационной ссылке. Содержимое буфера обмена автоматически
подставляется в строку. Далее скрипт эмитирует нажатие Enter (основная кнопка
формы — Перейти), и 1С открывает необходимый объект, если ссылка была
корректной.

Если же
программа 1С не запущена, тогда она будет принудительно запущена. Если происходит
запуск локально установленной 1С, то навигационная ссылка передается как ключ
запуска. Если же 1С локально не установлена, и запускается через ярлык
RemoteApp, то параметр передать невозможно. По этому скрипт ожидает запуска 1С,
затем активирует его окно, и выполняет ранее описанные действия с навигационной
ссылкой.

[Использование скрипта]

Напрямую скрипт
использовать из почты не получится. Исполняемый файл поместить в тело письма, чтобы он запускался с параметрами не выйдет. Для его активации с параметрами пришлось создавать
cmd-файл. Для этого, при генерации письма пользователю необходимо добавить
такой код в 1С:

Функция СоздатьФайлЗапускаДокумента(Задача, ПредставлениеЗадачи)Экспорт 

   Результат =""; 

   ИмяСсылкиПолное = ПолучитьНавигационнуюСсылку(Задача);

   ИмяСсылки = Прав(ИмяСсылкиПолное, СтрДлина(ИмяСсылкиПолное)-Найти(ИмяСсылкиПолное,"="));

   ИмяКаталога = Константы.ПутьЗапускаПрограммыВнешнимиСредствами.Получить();

   ИмяФайла = ИмяКаталога+ИмяСсылки+".cmd";

   КаталогНаДиске =Новый Файл(ИмяКаталога);

   ФайлНаДиске =Новый Файл(ИмяФайла);

   ЕслиНе КаталогНаДиске.Существует()Тогда

      Возврат ПредставлениеЗадачи;

   ИначеЕслиНе ФайлНаДиске.Существует()Тогда

      НовыйТекст =Новый ТекстовыйДокумент();

      НовыйТекст.ДобавитьСтроку(ИмяКаталога+"Open1CObjectByNavigationLink.exe "+ИмяСсылкиПолное);

      НовыйТекст.Записать(ИмяФайла,"cp866");

   КонецЕсли;     

   Результат ="<a href="""+ ИмяФайла +""">"+ ПредставлениеЗадачи +"</a>";

   Возврат Результат;

КонецФункции

То есть,
получаем навигационную ссылку, отсекаем от нее лишнее, и оставляем только само
значение ссылки на объект. Создаем текстовый документ с указанием запуска
скрипта с навигационной ссылкой. Сам же текстовый документ именуем по значащей
части ссылки.

В тело письма
подставляем путь на созданный cmd-файл:

ПредставлениеЗадачи = ПредставлениеЗадачи + РаботаСУведомлениями.СоздатьФайлЗапускаДокумента(ЗадачаСтруктура.Ссылка, СокрЛП(ЗадачаСтруктура.Ссылка));

 

Так же напомню,
чтобы 1С обработала передаваемую навигационную ссылку, нужно добавить код в
обработчик ПриНачалеРаботыСистемы,
который будет разбирать на кусочки переменную ПараметрЗапуска. Ниже приведен пример обработки ключа, который
передает скрипт (ключ /С)

Строкапараметровзапуска

«enterprise
/AppAutoCheckMode /DisableStartupMessages /s BaseServerBaseName /CLNKNavLink

Обработчик

Если Лев(ПараметрЗапуск,3)="LNK"Тогда

   НавигационнаяСтрокаСсылка = СтрЗаменить(ПараметрЗапуск,"LNK","");

   Попытка

      ПерейтиПоНавигационнойСсылке(НавигационнаяСтрокаСсылка);

   Исключение

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

КонецЕсли;

[Неудобства использования]

Необходимо иметь
каталог, с полным доступом всем участникам, чтобы хранить там скрипт и иметь
возможность от имени любого пользователя создавать cmd-файлы. Так же необходимо
наладить регламентное задание, которое будет удалять неактуальные (по времени
создания) cmd-файлы, чтобы их не накапливалось слишком много. Предположительно
cmd-файлы можно заменить VBScript-ом, буду рад, если кто поделится такой реализацией.