Материал: Автоматизация учета рабочего времени сотрудников компании Московского филиала АО «ФПК»
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
82
83
84
Приложение 2
1.
Перем Платформа1С_Версия Экспорт; // версия 1С
2.
Перем Платформа1С_Подверсия Экспорт; // подверсия 1С
3.
Перем Платформа1С_Релиз Экспорт; // релиз 1С
4.
Перем Платформа1С_Сборка Экспорт; // сборка 1С
5.
6.
Перем Конфигурация_Имя Экспорт; // имя конфигурации
7.
Перем Конфигурация_Версия Экспорт; // версия конфигурации
8.
Перем Конфигурация_ПодВерсия Экспорт; // подверсия конфигурации
9.
Перем Конфигурация_Релиз Экспорт; // релиз конфигурации
10.
Перем Конфигурация_Сборка Экспорт; // сборка конфигурации
11.
12.
Перем ПустаяСсылка_Организация Экспорт; // пустая ссылка на организацию
13.
Перем ПустаяСсылка_Подразделение Экспорт; // пустая ссылка на подразделение организации
14.
Перем ПустаяСсылка_Должность Экспорт; // пустая ссылка на должность
15.
Перем ПустаяСсылка_ГрафикРаботы Экспорт; // пустая ссылка на график работы
16.
Перем ПустаяСсылка_Сотрудник Экспорт; // пустая ссылка на сотрудника
17.
18.
Перем ОписаниеТипа_Организация Экспорт; // описание типа "организация"
19.
Перем ОписаниеТипа_Подразделение Экспорт; // описание типа "подразделение"
20.
Перем ОписаниеТипа_Должность Экспорт; // описание типа "должность"
21.
Перем ОписаниеТипа_ГрафикРаботы Экспорт; // описание типа "график работы"
22.
Перем ОписаниеТипа_Сотрудник Экспорт; // описание типа "сотрудник"
23.
24.
Перем ТипКонфигурации Экспорт; // тип конфигурации
25.
Перем ТипДвоичныхДанных Экспорт; // тип двоичных данных
26.
Перем ТипФотографииСотрудника Экспорт; // тип фотографии сотрудника
27.
28.
Перем КаталогУРВ Экспорт; // каталог УРВ
29.
30.
// Сведения о внешней обработке.
31.
Функция СведенияОВнешнейОбработке() Экспорт
32.
33.
ПараметрыРегистрации = Новый Структура;
34.
35.
Попытка
36.
// заполнить структуру параметров регистрации
37.
ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
38.
ПараметрыРегистрации.Вставить("Наименование", "Болид: СКУД и УРВ для 1С:Предприятие 8");
39.
ПараметрыРегистрации.Вставить("Версия", "2.8.1"); // константа, не изменять!
85
40.
ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);
41.
ПараметрыРегистрации.Вставить("Информация", "Болид: СКУД и УРВ для 1С:Предприятие 8");
42.
43.
// создать таблицу команд
44.
тзКоманд = Новый ТаблицаЗначений;
45.
тзКоманд.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
46.
тзКоманд.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
47.
тзКоманд.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
48.
тзКоманд.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
49.
тзКоманд.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
50.
51.
// добавить команду (открытие обработки)
52.
строкаКоманды = тзКоманд.Добавить();
53.
строкаКоманды.Идентификатор = "ОбработкаБолидУРВдля1С";
54.
строкаКоманды.Представление = "Болид: СКУД и УРВ для 1С";
55.
строкаКоманды.ПоказыватьОповещение = Истина;
56.
строкаКоманды.Использование = "ОткрытиеФормы";
57.
строкаКоманды.Модификатор = "";
58.
59.
ПараметрыРегистрации.Вставить("Команды", тзКоманд);
60.
Исключение
61.
Сообщить(Формат(ТекущаяДата(), "ДЛФ=ДВ") + " " + ОписаниеОшибки(),
СтатусСообщения.Внимание);
62.
КонецПопытки;
63.
64.
Возврат ПараметрыРегистрации;
65.
66.
КонецФункции
67.
68.
// Описание: выполняет запрос версии и типа конфигурации 1С.
69.
// Параметры:
70.
// Возвращаемое значение:
71.
Процедура ЗапросВерсииИКонфигурации1С() Экспорт
72.
73.
Платформа1С_ИмяВерсии = "";
74.
Платформа1С_Версия = 0;
75.
Платформа1С_Подверсия = 0;
76.
Платформа1С_Релиз = 0;
77.
Платформа1С_Сборка = 0;
78.
86
79.
СисИнфо = Новый СистемнаяИнформация;
80.
Попытка
81.
Платформа = СисИнфо.ТипПлатформы; // Windows x86
82.
Исключение
83.
КонецПопытки;
84.
Попытка
85.
Платформа1С_ИмяВерсии = СисИнфо.ВерсияПриложения; // "8.2.19.116"
86.
Исключение
87.
КонецПопытки;
88.
89.
// парсинг версии платформы 1С
90.
МассивПараметров = РазборСтроки(Платформа1С_ИмяВерсии, ".");
91.
Если МассивПараметров.Количество() >= 4 Тогда
92.
Попытка
93.
Платформа1С_Версия = Число(МассивПараметров[0]);
94.
Платформа1С_Подверсия = Число(МассивПараметров[1]);
95.
Платформа1С_Релиз = Число(МассивПараметров[2]);
96.
Платформа1С_Сборка = Число(МассивПараметров[3]);
97.
Исключение
98.
КонецПопытки;
99.
КонецЕсли;
100.
101.
Конфигурация_Имя = Метаданные.Имя; // "ЗарплатаИУправлениеПерсоналом"
102.
Конфигурация_ИмяВерсии = Метаданные.Версия; // "2.5.50.1"
103.
Конфигурация_Версия = 0;
104.
Конфигурация_ПодВерсия = 0;
105.
Конфигурация_Релиз = 0;
106.
Конфигурация_Сборка = 0;
107.
108.
// парсинг версии конфигурации
109.
МассивПараметров = РазборСтроки(Конфигурация_ИмяВерсии, ".");
110.
Если МассивПараметров.Количество() >= 4 Тогда
111.
Попытка
112.
Конфигурация_Версия = Число(МассивПараметров[0]);
113.
Конфигурация_ПодВерсия = Число(МассивПараметров[1]);
114.
Конфигурация_Релиз = Число(МассивПараметров[2]);
115.
Конфигурация_Сборка = Число(МассивПараметров[3]);
116.
Исключение
117.
КонецПопытки;
118.
КонецЕсли;
Источник: https://baza.diplomsite.ru/previewfile/2428