Получение точного времени через Яндекс.Время

17.08.17

Интеграция - WEB-интеграция

В данное время Росалкогольрегулирование активно отрабатывает все случаи продажи спиртного после 22-00. И даже законопослушные компании периодически попадают под санкции, вследствие банального несоответствия времени на компьютере с реальным, т.к. данные для отправки в ЕГАИС фиксируются по времени компьютера. Как одно из решений проблемы перед пробитием чека предлагаю сверять время на компьютере и время с сервера точного времени. Алгоритм, естественно, можно использовать и любым другим образом.

Скачать исходный код

Наименование Файл Версия Размер
Получение точного времени через Яндекс.Время:
.epf 5,93Kb
2
.epf 5,93Kb 2 Скачать

Получать время будем с сервера Яндекс.Времени. У меня все объекты находятся в одном часовом поясе, поэтому я получаю данные только по нему. Иначе придется этот параметр также определять.

Для того, чтобы получить код нужного региона в сервисе Яндекс.Времени, добавляю новые часы.

После этого нужно зайти в настройку часов и в меню выбрать "Информер на сайт". В коде информера параметр geoid это и есть наш код региона. Далее в коде в строке "АдресСкрипта" меняем параметр geo на нужный (в примере Томск).

Попытка                                
	ИмяФайлаОтвета = ПолучитьИмяВременногоФайла("json");
	АдресСервера = "yandex.com";    
	АдресСкрипта = "/time/sync.json?geo=67";
		
	НТТР = Новый HTTPСоединение(АдресСервера, 443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
	Ответ = НТТР.Получить(Новый HTTPЗапрос(АдресСкрипта), ИмяФайлаОтвета);
		
	ЧтениеОтвета = Новый ЧтениеJSON;
	ЧтениеОтвета.ОткрытьФайл(ИмяФайлаОтвета);
			
	ДанныеОтвета = ПрочитатьJSON(ЧтениеОтвета, Истина);
	ЧтениеОтвета.Закрыть();
		
	ВремяСтрокой = Формат(ДанныеОтвета.Получить("time"), "ЧГ=0");
	ДатаВремя = ПрочитатьДатуJSON("new Date(" + ВремяСтрокой + ")", ФорматДатыJSON.JavaScript);
	Сообщить(ДатаВремя);
  Исключение
	Сообщить(ОписаниеОшибки());
КонецПопытки;

сервер точного времени обработка яндекс

См. также

Интеграция Альфа Авто 5 / Альфа Авто 6 и AUTOCRM / Инфотек

Сайты и интернет-магазины WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Интеграционный модуль обмена между конфигурацией Альфа Авто 5 и Альфа Авто 6 и порталом AUTOCRM. Данный модуль универсален. Позволяет работать с несколькими обменами AUTOCRM разных брендов в одной информационной базе в ручном и автоматическом режиме.

36000 руб.

03.08.2020    16055    13    18    

13

Интеграция 1С — Битрикс24. Обмен задачами

Сайты и интернет-магазины Интеграция WEB-интеграция Платформа 1С v8.3 Конфигурации 1cv8 Управленческий учет Платные (руб)

Интеграция 1С и Битрикс24. Разработка имеет двухстороннюю синхронизацию 1С и Битрикс24 задачами. Решение позволяет создавать пользователя в 1С из Битрикс24 и наоборот. Данная разработка технически подходит под все основные конфигурации линейки продуктов 1С:Предприятие 8.3 (8.3.18.1289). При приобретении предоставляется 1 месяц бесплатных обновлений разработки. Доступна демо-версия продукта с подключением Вашего Битрикс24

5040 руб.

04.05.2021    18102    10    15    

16

SALE! 10%

Автоматическая загрузка файлов (например, прайс-листов) из электронной почты, FTP, HTTP, их обработка и выгрузка на FTP (на сайт) и для других целей

Прайсы WEB-интеграция Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Автомобили, автосервисы Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Программа с заданным интервалом времени (или по ручной команде) скачивает файлы (например, прайс-листы поставщиков) из различных источников: письма электронной почты, FTP или HTTP-адреса, и сохраняет их в каталог упорядоченной структуры. При этом извлекает файлы из архивов, может переименовывать файлы и менять их формат (csv, xls, txt). Можно настроить выгрузку обработанных файлов на сайт (через FTP-подключение). Программа будет полезна компаниям, у которых есть большое количество поставщиков и/или прайс-листы поставщиков обновляются часто (необязательно прайс-листы, файлы могут быть любого назначения). Собранные таким образом актуальные версии прайс-листов можно выгрузить с помощью программы себе на сайт (или на любой FTP-сервер) или выполнить другие необходимые задачи.

28000 25200 руб.

28.05.2015    85322    26    51    

50

Модуль для обмена "1С:Предприятие 8. УАТ. ПРОФ" с FortMonitor

WEB-интеграция 8.3.8 Конфигурации 1cv8 Автомобили, автосервисы Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

Расширение предназначено для конфигурации "1С:Предприятие 8. Управление Автотранспортом. ПРОФ". Функционал модуля: 1. Заполнение регистров сведений по подсистеме "Мониторинг", а именно: события по мониторингу, координаты по мониторингу, пробег и расход по мониторингу, текущее местоположение ТС по мониторингу 2. Заполнение путевого листа: пробег по мониторингу, время выезда/заезда, табличная часть ГСМ, места стоянок по геозонам. 3. Отчеты по данным загруженным в регистры сведений. 4. Предусмотрена автоматическая загрузка данных в фоновом режиме (условия работы данной загрузке читайте в описании товара) Модуль работает без включенной константы по настройкам мониторинга. Модуль формы предоставляется с открытым кодом, общий модуль защищен. Любой заинтересованный пользователь, имеет возможность скачать демо-версию расширения.

22656 руб.

25.05.2021    12974    32    8    

12

Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС

Обмен с ГосИС WEB-интеграция Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:Документооборот 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Обработка является альтернативой механизму, разработанному фирмой 1С и заполняющему реквизиты контрагента по ИНН или наименованию. Не требуется действующей подписки ИТС. Вызывается как внешняя дополнительная обработка, т.е. используется, непосредственно, из карточки контрагента. Заполнение по ИНН или наименованию реквизитов контрагента по данным сайта ФНС (egrul.nalog.ru) для БП 2.0, БП 3.0, БГУ 1.0, БГУ 2.0, УТ 10.3, УТ 11.x, КА 1.1, КА 2.x, УПП 1.x, ERP 2.x, УНФ 1.5, УНФ 1.6, УНФ 3.0, ДО 2.1

2400 руб.

28.04.2016    89575    163    217    

320
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Altair777 644 18.08.17 12:23 Сейчас в теме
Время должно получаться с компьютера, а тот синхронизироваться с контроллером домена. А тот уже с серверами точного времени.
Все остальное - от лукавого
2. kot26rus 18.08.17 14:16 Сейчас в теме
(1)а если домена нет? не везде он нужен.
3. ipoloskov 163 18.08.17 14:24 Сейчас в теме
(1) в Мухосранском ООО "Бухнём" контроллера домена может банально не быть.
4. spacecraft 18.08.17 14:51 Сейчас в теме
(3) даже если один единственный компьютер, то и он может синхронизироваться с сервером точного времени напрямую.
5. Requiem 36 21.08.17 06:43 Сейчас в теме
(3) Игорь все правильно понял, именно для этого решение и сделано
6. Altair777 644 21.08.17 10:15 Сейчас в теме
(5) учите кoманды DOS!
net time
7. markers 274 20.11.17 07:40 Сейчас в теме
Код без использования временных файлов:
Функция ПолучитьТекущееВремяИзИнтернета(КодЧасовогоПоясаЯндекс = 65) Экспорт

	Попытка
		
		АдресСервера = "yandex.ru";    
		АдресСкрипта = "/time/sync.json?geo=" + КодЧасовогоПоясаЯндекс;
		
		НТТР = Новый HTTPСоединение(АдресСервера, 443,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		Ответ = НТТР.Получить(Новый HTTPЗапрос(АдресСкрипта));
		
		Если Ответ.КодСостояния <> 200 Тогда
			
			Возврат Неопределено;
			
		КонецЕсли;
		
		ЧтениеОтвета = Новый ЧтениеJSON;
		ЧтениеОтвета.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
		
		ДанныеОтвета = ПрочитатьJSON(ЧтениеОтвета, Истина);
		ЧтениеОтвета.Закрыть();
		
		ВремяСтрокой = Формат(ДанныеОтвета.Получить("time"), "ЧГ=0");
		Возврат ПрочитатьДатуJSON("new Date(" + ВремяСтрокой + ")", ФорматДатыJSON.JavaScript);
		
	Исключение
	КонецПопытки;	
	
	Возврат Неопределено;

КонецФункции // ПолучитьТекущееВремяИзИнтернета()
Показать
8. gufadmin 5 12.03.20 12:19 Сейчас в теме
Пробовал менять параметр geo. Все равно выдает одно и то же время Москвы.
Оставьте свое сообщение