92
306.
Для Каждого Элемент Из ФайлМакета.Элементы Цикл
307.
Если ПолучитьРасширениеФайла(Элемент.Имя) = "dll" Тогда
308.
ФайлМакета.Извлечь(Элемент, КаталогУРВ,
РежимВосстановленияПутейФайловZIP.Восстанавливать, "");
309.
Прервать;
310.
КонецЕсли;
311.
КонецЦикла;
312.
313.
// закрыть и удалить архив
314.
ФайлМакета.Закрыть();
315.
УдалитьФайлы(ИмяАрхива);
316.
317.
// попытаться подключить внешнюю компоненту
318.
Попытка
319.
Если ПодключитьВнешнююКомпоненту(ФайлБиблиотеки, "URVObject",
ТипВнешнейКомпоненты.Native) Тогда
320.
Если ВыводитьСообщения Тогда
321.
Сообщить(Формат(ТекущаяДата(), "ДЛФ=ДВ") + " " + "Внешняя компонента
загружена.");
322.
КонецЕсли;
323.
Результат = Новый("AddIn.URVObject.URVObject");
324.
КонецЕсли;
325.
Если ВыводитьСообщения И Результат <> Неопределено Тогда
326.
Сообщить(Формат(ТекущаяДата(), "ДЛФ=ДВ") + " " + "Создан объект URV.");
327.
КонецЕсли;
328.
Исключение
329.
Сообщить(Формат(ТекущаяДата(), "ДЛФ=ДВ") + " " + "Ошибка: " +
ОписаниеОшибки(), СтатусСообщения.ОченьВажное);
330.
КонецПопытки;
331.
332.
КонецЕсли;
333.
334.
Возврат Результат;
335.
336.
КонецФункции
337.
338.
//
*************************************************************************************************
* //
93
339.
// ************************ Хранилище дополнительной
информации ************************* //
340.
//
*************************************************************************************************
* //
341.
342.
// Описание: сохраняет настройки программы в хранилище дополнительной информации.
343.
// Параметры:
344.
// Возвращаемое значение:
345.
Процедура СохранитьПараметрыОбработки() Экспорт
346.
347.
Настройки = Новый Структура;
348.
Настройки.Вставить("АдресОрион2Интерфейса", АдресОрион2Интерфейса);
349.
Настройки.Вставить("ПортОрион2Интерфейса", ПортОрион2Интерфейса);
350.
Настройки.Вставить("АдресСервераУРВ", АдресСервераУРВ);
351.
Настройки.Вставить("ПортСервераУРВ", ПортСервераУРВ);
352.
Настройки.Вставить("ПортЛинииПередачи", ПортЛинииПередачи);
353.
Настройки.Вставить("ПортЛинииПриёма", ПортЛинииПриёма);
354.
Настройки.Вставить("ОдинПортНаПриёмПередачу", ОдинПортНаПриёмПередачу);
355.
Настройки.Вставить("ПервичныйПортПоВходящимПакетам", ПервичныйПортПоВходящимПакетам);
356.
Настройки.Вставить("ПериодПроверкиЗадач", ПериодПроверкиЗадач);
357.
Настройки.Вставить("ПериодСинхронизацииВремени", ПериодСинхронизацииВремени);
358.
Настройки.Вставить("ТаймаутКоманды", ТаймаутКоманды);
359.
Настройки.Вставить("КаталогДляЛогФайлов", КаталогДляЛогФайлов);
360.
Настройки.Вставить("Парам_ВремяВнеГрафикаРаботы", Парам_ВремяВнеГрафикаРаботы);
361.
Настройки.Вставить("Парам_ИсходнаяПозицияДоЧас", Парам_ИсходнаяПозицияДоЧас);
362.
Настройки.Вставить("Парам_МаксВремяПерекура", Парам_МаксВремяПерекура);
363.
Настройки.Вставить("Парам_МаксВремяНаОбъекте", Парам_МаксВремяНаОбъекте);
364.
Настройки.Вставить("Парам_КоличествоЗнаковПослеЗапятой",
Парам_КоличествоЗнаковПослеЗапятой);
365.
Настройки.Вставить("ЛицензияЕсть", ЛицензияЕсть);
366.
Настройки.Вставить("ИДКлючаЗащиты", ИДКлючаЗащиты);
367.
Настройки.Вставить("ТочекДоступа", ТочекДоступа);
368.
Настройки.Вставить("МестФотоверификации", МестФотоверификации);
369.
Настройки.Вставить("ВерсияБиблиотеки", ВерсияБиблиотеки);
370.
// новый формат настроек
371.
ВыгрузитьДвоичныеДанные("БолидУРВ: Настройки", Настройки);
372.
373.
КонецПроцедуры
374.
94
375.
// Описание: функция загружает настройки программы из хранилища дополнительной информации.
376.
// Параметры:
377.
// Возвращаемое значение: Истина - параметры загружены, Ложь - произошла ошибка.
378.
Функция ВосстановитьПараметрыОбработки() Экспорт
379.
380.
// новый формат настроек
381.
Настройки = ЗагрузитьДвоичныеДанные("БолидУРВ: Настройки", ТипДвоичныхДанных);
382.
Если Настройки <> Неопределено Тогда
383.
384.
Если Настройки.Свойство("АдресОрион2Интерфейса") Тогда
385.
АдресОрион2Интерфейса =
Настройки.АдресОрион2Интерфейса;
386.
КонецЕсли;
387.
Если Настройки.Свойство("ПортОрион2Интерфейса") Тогда
388.
ПортОрион2Интерфейса =
Настройки.ПортОрион2Интерфейса;
389.
КонецЕсли;
390.
Если Настройки.Свойство("АдресСервераУРВ") Тогда
391.
АдресСервераУРВ = Настройки.АдресСервераУРВ;
392.
КонецЕсли;
393.
Если Настройки.Свойство("ПортСервераУРВ") Тогда
394.
ПортСервераУРВ = Настройки.ПортСервераУРВ;
395.
КонецЕсли;
396.
Если Настройки.Свойство("ПортЛинииПередачи") Тогда
397.
ПортЛинииПередачи = Настройки.ПортЛинииПередачи;
398.
КонецЕсли;
399.
Если Настройки.Свойство("ПортЛинииПриёма") Тогда
400.
ПортЛинииПриёма = Настройки.ПортЛинииПриёма;
401.
КонецЕсли;
402.
Если Настройки.Свойство("ОдинПортНаПриёмПередачу") Тогда
403.
ОдинПортНаПриёмПередачу =
Настройки.ОдинПортНаПриёмПередачу;
404.
КонецЕсли;
405.
Если Настройки.Свойство("ПервичныйПортПоВходящимПакетам") Тогда
406.
ПервичныйПортПоВходящимПакетам =
Настройки.ПервичныйПортПоВходящимПакетам;
407.
КонецЕсли;
408.
Если Настройки.Свойство("ПериодПроверкиЗадач") Тогда
409.
ПериодПроверкиЗадач = Настройки.ПериодПроверкиЗадач;
410.
КонецЕсли;
95
411.
Если Настройки.Свойство("ПериодСинхронизацииВремени") Тогда
412.
ПериодСинхронизацииВремени =
Настройки.ПериодСинхронизацииВремени;
413.
КонецЕсли;
414.
Если Настройки.Свойство("ТаймаутКоманды") Тогда
415.
ТаймаутКоманды = Настройки.ТаймаутКоманды;
416.
КонецЕсли;
417.
Если Настройки.Свойство("КаталогДляЛогФайлов") Тогда
418.
КаталогДляЛогФайлов = Настройки.КаталогДляЛогФайлов;
419.
КонецЕсли;
420.
Если Настройки.Свойство("Парам_ВремяВнеГрафикаРаботы") Тогда
421.
Парам_ВремяВнеГрафикаРаботы =
Настройки.Парам_ВремяВнеГрафикаРаботы;
422.
КонецЕсли;
423.
Если Настройки.Свойство("Парам_ИсходнаяПозицияДоЧас") Тогда
424.
Парам_ИсходнаяПозицияДоЧас =
Настройки.Парам_ИсходнаяПозицияДоЧас;
425.
КонецЕсли;
426.
Если Настройки.Свойство("Парам_МаксВремяПерекура") Тогда
427.
Парам_МаксВремяПерекура =
Настройки.Парам_МаксВремяПерекура;
428.
КонецЕсли;
429.
Если Настройки.Свойство("Парам_МаксВремяНаОбъекте") Тогда
430.
Парам_МаксВремяНаОбъекте = Настройки.Парам_МаксВремяНаОбъекте;
431.
Иначе
432.
Парам_МаксВремяНаОбъекте = 48;
433.
КонецЕсли;
434.
Если Настройки.Свойство("Парам_КоличествоЗнаковПослеЗапятой") Тогда
435.
Парам_КоличествоЗнаковПослеЗапятой =
Настройки.Парам_КоличествоЗнаковПослеЗапятой;
436.
Иначе
437.
Парам_КоличествоЗнаковПослеЗапятой = 2;
438.
КонецЕсли;
439.
Если Настройки.Свойство("ЛицензияЕсть") Тогда
440.
ЛицензияЕсть = Настройки.ЛицензияЕсть;
441.
КонецЕсли;
442.
Если Настройки.Свойство("ИДКлючаЗащиты") Тогда
443.
ИДКлючаЗащиты = Настройки.ИДКлючаЗащиты;
444.
КонецЕсли;
445.
Если Настройки.Свойство("ТочекДоступа") Тогда
96
446.
ТочекДоступа = Настройки.ТочекДоступа;
447.
КонецЕсли;
448.
Если Настройки.Свойство("МестФотоверификации") Тогда
449.
МестФотоверификации = Настройки.МестФотоверификации;
450.
КонецЕсли;
451.
Если Настройки.Свойство("ВерсияБиблиотеки") Тогда
452.
ВерсияБиблиотеки = Настройки.ВерсияБиблиотеки;
453.
КонецЕсли;
454.
455.
КонецЕсли;
456.
457.
Если Настройки = Неопределено Тогда
458.
// старый формат настроек
459.
Настройки = ЗагрузитьДвоичныеДанные("БолидУРВ: Общие настройки",
ТипДвоичныхДанных);
460.
Если Настройки <> Неопределено Тогда
461.
462.
Попытка
463.
АдресОрион2Интерфейса = Настройки[0].Значение;
464.
ПортОрион2Интерфейса = Настройки[1].Значение;
465.
АдресСервераУРВ = Настройки[2].Значение;
466.
ПортСервераУРВ = Настройки[3].Значение;
467.
ПортЛинииПередачи = Настройки[4].Значение;
468.
ПортЛинииПриёма = Настройки[5].Значение;
469.
ТаймаутКоманды = Настройки[6].Значение;
470.
РежимОтладки = Настройки[7].Значение;
471.
ПериодПроверкиЗадач = Настройки[8].Значение;
472.
ОдинПортНаПриёмПередачу = Настройки[9].Значение;
473.
ПапкаИмпорт = Настройки[10].Значение;
474.
ПапкаЭкспорт = Настройки[11].Значение;
475.
ДатаОт = Настройки[12].Значение;
476.
ДатаДо = Настройки[13].Значение;
477.
478.
Парам_МетодУчетаИнтервалов = Настройки[14].Значение;
479.
Парам_ВремяВнеГрафикаРаботы = Настройки[15].Значение;
480.
Парам_МетодРасчета = Настройки[16].Значение;
481.
Парам_ОбрабатыватьРазрывы = Настройки[17].Значение;
482.
Парам_УчитыватьПереработку = Настройки[18].Значение;
483.
Парам_ИсходнаяПозицияДоЧас = Настройки[19].Значение;
484.
Парам_МаксВремяПерекура = Настройки[20].Значение;
97
485.
486.
Попытка
487.
ЛицензияЕсть = Настройки[21].Значение;
488.
ИДКлючаЗащиты = Настройки[22].Значение;
489.
ТочекДоступа = Настройки[23].Значение;
490.
МестФотоверификации = Настройки[24].Значение;
491.
Исключение
492.
// ничего не сообщать
493.
КонецПопытки;
494.
495.
ВерсияБиблиотеки = Настройки[25].Значение;
496.
ПериодПроверки1С = Настройки[26].Значение;
497.
ТаймаутПроверки1С = Настройки[27].Значение;
498.
ПервичныйПортПоВходящимПакетам = Настройки[28].Значение;
499.
КаталогДляЛогФайлов = Настройки[29].Значение;
500.
501.
Попытка
502.
ТаймаутКоманды = Настройки[30].Значение;
503.
Исключение
504.
ТаймаутКоманды = 2000;
505.
КонецПопытки;
506.
Попытка
507.
ПериодСинхронизацииВремени = Настройки[31].Значение;
508.
Исключение
509.
ПериодСинхронизацииВремени = 720;
510.
КонецПопытки;
511.
512.
Исключение
513.
Сообщить(Формат(ТекущаяДата(), "ДЛФ=ДВ") + " " + "Не удалось считать
параметры настроек!", СтатусСообщения.Внимание);
514.
КонецПопытки;
515.
516.
СохранитьПараметрыОбработки(); // записать настройки программы в новом формате
517.
КонецЕсли;
518.
КонецЕсли;
519.
520.
Возврат Настройки <> Неопределено;
521.
522.
КонецФункции
