1carbon
Максим Василовский

Процедура ОбновитьДатуВремя(Объект)

   Отключить(Объект);

   Попытка
      ПрогИД = "AddIn.DrvFR";
      ПодключитьВнешнююКомпоненту(ПрогИД);
      Драйвер = Новый (ПрогИД);
   Исключение
      Подключить(Объект);
      Возврат
   КонецПопытки;

   Скорость = Объект.Параметры.Скорость;

   Если Скорость = 2400 Тогда
      Драйвер.СкоростьОбменаЛУ = 0;
   ИначеЕсли Скорость = 4800 Тогда
      Драйвер.СкоростьОбменаЛУ = 1;
   ИначеЕсли Скорость = 9600 Тогда
      Драйвер.СкоростьОбменаЛУ = 2;
   ИначеЕсли Скорость = 19200 Тогда
      Драйвер.СкоростьОбменаЛУ = 3;
   ИначеЕсли Скорость = 38400 Тогда
      Драйвер.СкоростьОбменаЛУ = 4;
   ИначеЕсли Скорость = 57600 Тогда
      Драйвер.СкоростьОбменаЛУ = 5;
   ИначеЕсли Скорость = 115200 Тогда
      Драйвер.СкоростьОбменаЛУ = 6;
   КонецЕсли;

   Драйвер.COMпортЛУ        = Объект.Параметры.Порт;
   Драйвер.ТаймаутЛУ        = Объект.Параметры.Таймаут;
   Драйвер.ТипПодключенияЛУ = Объект.Параметры.ТипПодключения;
   Драйвер.УстановитьПараметрыЛУ();
   Драйвер.УстановитьАктивноеЛУ();
   Драйвер.Пароль           = Объект.Параметры.ПарольАдминистратора;

   Драйвер.УстановитьСвязь();

   Если Драйвер.Результат <> 0 Тогда
      Предупреждение(Драйвер.ОписаниеРезультата);
      Подключить(Объект);
      Возврат
   КонецЕсли;

   Драйвер.ПолучитьСостояниеККМ();

   Если (Драйвер.РежимККМ = 4 ИЛИ Драйвер.РежимККМ = 7 ИЛИ Драйвер.РежимККМ = 9) И НачалоДня(Дата(Драйвер.Дата)) <> НачалоДня(ТекущаяДата()) Тогда
      Драйвер.Дата = Формат(ТекущаяДата(), "ДФ=dd.MM.yy");
      Драйвер.УстановитьДату();
      Драйвер.ПодтвердитьДату();
   КонецЕсли;

   Драйвер.ПолучитьСостояниеККМ();

   Если (Драйвер.РежимККМ = 4 ИЛИ Драйвер.РежимККМ = 7 ИЛИ Драйвер.РежимККМ = 9) И МодульЧисла(Дата(Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy") + " " + Драйвер.ВремяСтрока) - ТекущаяДата()) > 30 Тогда
      Драйвер.Время = Формат(ТекущаяДата(), "ДФ=HH:mm:ss");
      Драйвер.УстановитьВремя();
   КонецЕсли;

   Драйвер.РазорватьСвязь();
   Драйвер.УдалитьЛУ();

   Подключить(Объект);

КонецПроцедуры

Функция МодульЧисла(ИсходноеЧисло)

   Если ИсходноеЧисло < 0 Тогда
      Возврат -ИсходноеЧисло
   Иначе
      Возврат ИсходноеЧисло
   КонецЕсли;

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