helpf.pro
Регистрация
 0 
Распечатать

1С 8.x : Синхронизация системного Времени по запросу

Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.
Код 1C v 8.х
 Процедура КнопкаВыполнитьНажатие(Кнопка)
ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();
Батник = Новый ТекстовыйДокумент;
Батник.ДобавитьСтроку("echo off");
Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");
Батник.ДобавитьСтроку("w32tm /config /update");
Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");
Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);

WshShell = Новый COMОбъект("WScript.Shell");
//WshExec = WshShell.Exec("c:\settime.bat");
СтрокаЗапуска = "c:\settime.bat";
WshShell.Run(СтрокаЗапуска,0,Истина);

Результат = Новый ТекстовыйДокумент;
Попытка
Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);
Исключение
Сообщить("Ошибка открытия файла!");
Возврат;
КонецПопытки;
Рез = Результат.ПолучитьСтроку(2);
Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));
Попытка
УдалитьФайлы("c:\settime.bat");
УдалитьФайлы("c:\res_set_time.txt");
Исключение
КонецПопытки;
ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();
КонецПроцедуры
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 11660
 0 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 52
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
ZIP-архив Чтение 1
Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать инициализированный объект или
Автоматическое резервное копирование 1С:Предприятия в облако с помощью ПО Effector Saver 4
Всем известно, для большей гарантии восстановления важных данных, необходимо копировать архивы в несколько мест хранения. Отдельный диск может помочь в случае порчи основного, но в случае если устройство будет потеряно или украдено, он будет так же
Автоматическое резервное копирование 1С:Предприятия в облако с помощью ПО Effector Saver 1
Всем известно, для большей гарантии восстановления важных данных, необходимо копировать архивы в несколько мест хранения. Отдельный диск может помочь в случае порчи основного, но в случае если устройство будет потеряно или украдено, он будет так же
Ввод дополнительного ежегодного отпуска 2
Вид расчета, используемый для начисления оплаты дополнительного ежегодного отпуска , описывается в плане видов расчета Основные начисления организаций . Новый вид расчета удобнее создать копированием предопределенного вида расчета Оплата отпуска п
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.