Как программно установить время и дату на фискальном регистраторе?

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

	Час = Формат(Час(ТекущаяДата()),"ЧЦ=2; ЧВН=");
	Минута = Формат(Минута(ТекущаяДата()),"ЧЦ=2; ЧВН=");
	Секунда = Формат(Секунда(ТекущаяДата()),"ЧЦ=2; ЧВН=");
	Драйвер.Время = Дата("18991230"+Час+Минута+Секунда);
	Драйвер.Дата = НачалоДня(ТекущаяДата());
	Драйвер.SetTime();

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

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

	Попытка
		ПрогИД = "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 Тогда
		Возврат -ИсходноеЧисло
	Иначе
		Возврат ИсходноеЧисло
	КонецЕсли;

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

Процедура  ДанныДляОтправкиПоКассе()  
	
		//Синхронизируем время
		Попытка
			// Загрузка внешней компоненты
			ВнешняяКомпонента = "AddIn.FPrnM8";
			ПодключитьВнешнююКомпоненту(ВнешняяКомпонента);   		  
			
			//ПодключитьВнешнююКомпоненту("AddIn.ATOL_KKM_1C");			
			Попытка
				// Создание объекта  	
				Драйвер = Новый (ВнешняяКомпонента);   				
			Исключение
				
			КонецПопытки;
		Исключение
			Возврат;
		КонецПопытки;  	
		
		
			Попытка
				//Подключаемся к кассе
				//Параметры можно посмотреть в логгах кассы
				Драйвер.AddDevice();   
				Драйвер.PortNumber = Касса.Порт;//порт кассы;
				//Драйвер.BaudRate = Касса.Скорость;//Объект.Параметры.Скорость;
				// параметры выше (порт, скорость) можно вычитать в файле логов
				// FprnM1C.log или FprnM1C82.log, в папке C:\Users\user\AppData\Roaming\ATOL\DRIVERS
				// например - сначала сделав тест устройства из 1С (появятся записи в логах, вы увидите все значения полей
				// в последних строках файла логов )
				Драйвер.DeviceEnabled = 1;
				Драйвер.Password = Касса.Пароль; //Пароль Пользователя кассы
				
				//Устанавливаем время
				Драйвер.Режим = 0;	
				Драйвер.SetMode();
				Драйвер.Hour = Строка(Час(ТекущаяДата()));
				Драйвер.Minute = Строка(Минута(ТекущаяДата()));     
				Драйвер.Second = Строка(Секунда(ТекущаяДата()));
				РезультатУстановкиВремени = Драйвер.SetTime(); 				
						
				Если   РезультатУстановкиВремени = 0 Тогда
					//Все нормально, время установленно
					
				Иначе
					//Время не установленно				
				КонецЕсли;
				//Отключаемся
				Драйвер.DeviceEnabled = 0; //на последние строки драйвер атола ругался на
				Драйвер.DeleteDevice();    //последовательность команд (но только в логах, юзер этого не видит) 
			Исключение
				
			КонецПопытки;   		
		   		
		
		Драйвер.DeviceEnabled = 0; //на последние строки драйвер атола ругался на
		Драйвер.DeleteDevice();    //последовательность команд (но только в логах, юзер этого не видит) 
		
		Драйвер = 0;	//Незнаю зачем, нашел в чужом коде      
		
			
КонецПроцедуры