ПолеДаты.ДатаИзменена (DateField.DateChanged) Событие

Использование

Чтение и запись.

Значение

Тип: Действие (Action).

Возвращает или задает код события при изменении даты.

Примечание

Пример

ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена");
Полный пример кода 



Перем ТФ, ПолеДаты1, Таймер1;

Процедура ПриОткрытии() Экспорт
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Верхний.Текст = "Измените значение лет, месяцев, дней";
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеДаты1_ДатаИзменена() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + "
	|Было лет = " + АргументыСобытия.БылоГод + "
	|Стало лет = " + АргументыСобытия.СталоГод + "
	|Было месяцев = " + АргументыСобытия.БылоМесяц + "
	|Стало месяцев = " + АргументыСобытия.СталоМесяц + "
	|Было дней = " + АргументыСобытия.БылоДень + "
	|Стало дней = " + АргументыСобытия.СталоДень + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	ТФ.ОтправитьКлавиши("9", Ложь, Ложь, Ложь);
	ПолеДаты1.ПозицияКурсора = 7;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПолеДаты1 = ТФ.Верхний.Добавить(ТФ.ПолеДаты(ТекущаяДата(), , 5));
ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена");

Таймер1 = ТФ.Таймер(1000);
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Тестовый код 



Перем ТФ, ПолеДаты1, Таймер1, АргументыСобытия;

Процедура ПриОткрытии() Экспорт
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Верхний.Текст = "Измените значение лет, месяцев, дней";
	Таймер1.Начать();
КонецПроцедуры

Процедура ПолеДаты1_ДатаИзменена() Экспорт
	АргументыСобытия = ТФ.АргументыСобытия;
	Текст = "Формат даты = " + АргументыСобытия.ФорматДаты + "
	|Было лет = " + АргументыСобытия.БылоГод + "
	|Стало лет = " + АргументыСобытия.СталоГод + "
	|Было месяцев = " + АргументыСобытия.БылоМесяц + "
	|Стало месяцев = " + АргументыСобытия.СталоМесяц + "
	|Было дней = " + АргументыСобытия.БылоДень + "
	|Стало дней = " + АргументыСобытия.СталоДень + "
	|Было тактов = " + АргументыСобытия.БылоТактов + "
	|Стало тактов = " + АргументыСобытия.СталоТактов;
	ТФ.Уведомление().Показать(Текст, -1);
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	ТФ.ОтправитьКлавиши("9", Ложь, Ложь, Ложь);
	ПолеДаты1.ПозицияКурсора = 7;
	ТФ.Завершить();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ПолеДаты1 = ТФ.Верхний.Добавить(ТФ.ПолеДаты(ТекущаяДата(), , 5));
ПолеДаты1.ДатаИзменена = ТФ.Действие(ЭтотОбъект, "ПолеДаты1_ДатаИзменена");

Таймер1 = ТФ.Таймер(1000);
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.Запуск();

Сообщить(?(
Лев("" + АргументыСобытия.СталоГод, 1) = "9"
, "", "!!! ") + "ПолеДаты.ДатаИзменена (DateField.DateChanged) Событие" + " " + ТекущаяДата() + Символы.ПС);

Смотрите также

Библиотека OneScriptTerminalGui