Архивы периодический реквизит

1c 7.7 Получения последней даты занесения периодического реквизита

24.03.2023 Павел Грибов 1C

Задача: необходимо получить дату, когда было последний раз изменено значение периодического реквизита справочника.

Решение: используем следующую функцию:

Функция ПолучитьПоследнююДатуВводаПериодическогоРеквизита(ИмяРеквизита,спрЭлементСправочника)
	ДатаПерЗначения = ПолучитьПустоеЗначение("Дата");
	Пер = СоздатьОбъект("Периодический");
	Пер.ИспользоватьОбъект(ИмяРеквизита,спрЭлементСправочника);
	Пер.ОбратныйПорядок(1);
	Если Пер.ВыбратьЗначения() = 1 Тогда
		Если Пер.ПолучитьЗначение() = 1 Тогда
	   		ДатаПерЗначения = Пер.ДатаЗнач;
		КонецЕсли;
	КонецЕсли;
	Пер = 0;         
	//сообщить(ДатаПерЗначения);
	Возврат ДатаПерЗначения;
КонецФункции

Функция ПолучитьПоследнююДатуВводаПериодическогоРеквизита(ИмяРеквизита,спрЭлементСправочника)

ДатаПерЗначения = ПолучитьПустоеЗначение("Дата");

Пер = СоздатьОбъект("Периодический");

Пер.ИспользоватьОбъект(ИмяРеквизита,спрЭлементСправочника);

Пер.ОбратныйПорядок(1);

Если Пер.ВыбратьЗначения() = 1 Тогда

Если Пер.ПолучитьЗначение() = 1 Тогда

ДатаПерЗначения = Пер.ДатаЗнач;

КонецЕсли;

Пер = 0;

//сообщить(ДатаПерЗначения);

Возврат ДатаПерЗначения;

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

Оставить комментарий 7.7, периодический реквизит

Пн	Вт	Ср	Чт	Пт	Сб	Вс
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31