Файл.НачатьПолучениеУниверсальногоВремениИзменения

Установить и прочитать UTC/местное время через оповещения

Своё время изменения проверяем обратным методом в той же шкале. Дата-результат приходит в получающий обработчик, установочные передают только Состояние.

Подготовка

1. Создайте учебную внешнюю обработку с пустой управляемой основной формой. Создайте команду УчебныйПример и кнопку этой команды.

2. В свойстве команды Действие выберите процедуру УчебныйПример. Вставьте полный приведённый модуль формы.

3. Откройте EPF в тонком или толстом клиенте Windows и нажмите кнопку. Не переносите Ждать и Асинх в серверный общий модуль.

4. Файл создаётся на компьютере клиента Windows во временном каталоге. Веб-клиент и сервер для данного модуля не используйте.

5. Требуется разрешённый в учебной базе доступ к локальной файловой системе. Не отключайте профиль безопасности рабочей базы ради запуска.

6. Создаётся только собственный временный файл с режимом СоздатьНовый. После ожидания операций ресурсы закрываются, точное собственное имя удаляется.

7. Вставьте весь модуль одной задачи в новую учебную форму. Здесь обычные процедуры и ОписаниеОповещения, не Асинх/Ждать.

8. Учебный файл ABC123 создаётся с СоздатьНовый; поток записи закрывается до запуска операций карточки.

9. В обработчиках успеха сначала идут результаты метода, затем Состояние; установочные методы передают только Состояние.

10. При очистке снимаются Hidden/readonly только у собственного точного имени. Ошибки закрытия/удаления показываются, не скрываются.

11. Для местной пары нужен режим совместимости 8.2.13 или новее; пример рассчитан на Windows/NTFS.

Перем Выполняется;

&НаКлиенте
Процедура УчебныйПример(Команда)
    Если Выполняется = Истина Тогда
        Сообщить("Дождитесь окончания предыдущего примера");
        Возврат;
    КонецЕсли;
    Состояние = Новый Структура("Поток,Копия,Буфер,Прочитанный,ИмяФайла,СвойФайл",
        Неопределено, Неопределено, Неопределено, Неопределено, "", Ложь);
    Попытка
        Состояние.ИмяФайла = ПолучитьИмяВременногоФайла("bin");
        Файл = Новый Файл(Состояние.ИмяФайла);
        Если Файл.Существует() Тогда
            ВызватьИсключение "Имя уже занято: существующий файл не открываем";
        КонецЕсли;
        Состояние.Поток = Новый ФайловыйПоток(Состояние.ИмяФайла,
            РежимОткрытияФайла.СоздатьНовый, ДоступКФайлу.ЧтениеИЗапись);
        Состояние.СвойФайл = Истина;
        Состояние.Буфер = ПолучитьБуферДвоичныхДанныхИзСтроки("ABC123", КодировкаТекста.UTF8, Ложь);
        Состояние.Прочитанный = Новый БуферДвоичныхДанных(6);
        Состояние.Поток.Записать(Состояние.Буфер, 0, 6);
        Состояние.Поток.Закрыть();
        Состояние.Поток = Неопределено;
        Состояние.Вставить("Карточка", Новый Файл(Состояние.ИмяФайла));
    Исключение
        ОсвободитьРесурсы(Состояние);
        ВызватьИсключение;
    КонецПопытки;
    Выполняется = Истина;
    Попытка
        Состояние.Карточка.НачатьУстановкуУниверсальногоВремениИзменения(ОповещениеДля("ПослеUTC", Состояние), Дата(2026, 10, 3, 12, 0, 0));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Функция ОповещениеДля(Имя, Состояние)
    Возврат Новый ОписаниеОповещения(Имя, ЭтотОбъект, Состояние,
        "ОшибкаОперации", ЭтотОбъект);
КонецФункции

&НаКлиенте
Процедура ОсвободитьРесурсы(Состояние)
    Если Состояние.Копия <> Неопределено Тогда
        Попытка
            Состояние.Копия.Закрыть();
            Состояние.Копия = Неопределено;
        Исключение
            Сообщить("Не удалось закрыть собственную копию: " + ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;
    Если Состояние.Поток <> Неопределено Тогда
        Попытка
            Состояние.Поток.Закрыть();
            Состояние.Поток = Неопределено;
        Исключение
            Сообщить("Не удалось закрыть собственный источник: " + ОписаниеОшибки());
        КонецПопытки;
    КонецЕсли;
    Если Состояние.СвойФайл Тогда
        Если Состояние.Поток = Неопределено Тогда
            Попытка
                ФайлДляОчистки = Новый Файл(Состояние.ИмяФайла);
                Если ФайлДляОчистки.Существует() Тогда
                    ФайлДляОчистки.УстановитьТолькоЧтение(Ложь);
                    ФайлДляОчистки.УстановитьНевидимость(Ложь);
                КонецЕсли;
                Файл = Новый Файл(Состояние.ИмяФайла);
                Если Файл.Существует() Тогда
                    УдалитьФайлы(Состояние.ИмяФайла);
                КонецЕсли;
                Сообщить(Не Файл.Существует());
                Состояние.СвойФайл = Ложь;
            Исключение
                Сообщить("Свой временный файл остался: " + Состояние.ИмяФайла);
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
        Иначе
            Сообщить("Источник не закрыт; собственный файл не удаляем: " + Состояние.ИмяФайла);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    ОсвободитьРесурсы(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

&НаКлиенте
Процедура ПослеUTC(Состояние) Экспорт
    Попытка
        Состояние.Карточка.НачатьПолучениеУниверсальногоВремениИзменения(ОповещениеДля("ПрочитаноUTC", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПрочитаноUTC(Время, Состояние) Экспорт
    Попытка
        Сообщить(Время = Дата(2026, 10, 3, 12, 0, 0));
        Сообщить(ТипЗнч(Время) = Тип("Дата"));
        Состояние.Карточка.НачатьУстановкуВремениИзменения(ОповещениеДля("ПослеМестного", Состояние), Дата(2026, 10, 4, 10, 0, 0));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеМестного(Состояние) Экспорт
    Попытка
        Состояние.Карточка.НачатьПолучениеВремениИзменения(ОповещениеДля("ПрочитаноМестное", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПрочитаноМестное(Время, Состояние) Экспорт
    Попытка
        Сообщить(Время = Дата(2026, 10, 4, 10, 0, 0));
        Сообщить(ТипЗнч(Время) = Тип("Дата"));
        Сообщить(Состояние.Карточка.Размер() = 6);
        ЗавершитьПример(Состояние);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ЗавершитьПример(Состояние) Экспорт
    Попытка
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        Сообщить("Проверка файловой карточки завершена");
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

Разбор по шагам

1. Сначала задаём UTC 2026-10-03 12:00 собственному файлу.

2. ПослеUTC запускает универсальное обратное чтение; ПрочитаноUTC получает Дата первым аргументом.

3. Отдельно задаём местную 2026-10-04 10:00 и проверяем именно местной парой.

4. Результат не переводим вручную фиксированным смещением. Часы ОС не меняем и данные после отметок времени не записываем.

Как проверить результат

1. На Windows/NTFS в указанном режиме пять сравнений Истина: UTC/тип, местное/тип и размер 6.

2. При округлении времени другим носителем проверка обнаружит отличие, а не объявит выдуманное совпадение.

Ожидаемый результат

Пройдены обе временные пары методов с корректными сигнатурами оповещений.

На что обратить внимание

1. Дата 1С не содержит часовой пояс; не сравнивайте местное и UTC как одну шкалу без контекста.

2. В старом режиме совместимости справка предупреждает о сезонной ошибке NTFS; здесь такой режим не поддержан.

3. СоздатьНовый и точное имя обязательны: не используйте установку времени на рабочем архиве/документе.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.