Подскажите как в 7-ке получить дату последнего изменения периодического реквизита справочника?
И можно ли вообще такое сделаит программно?

Хочется посмотреть в торговле все цены, которые не менялись, например, пол года. И не пойму как это сделать. С 7-й ужк давно не работал.

Начал бы с ЖКК, если типовых под рукой нет, а поиск юзать западло.

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

(1) а в типовых это где-то используется?

(3) поищи в конфигурации поиск по вусем текстам "Периодический" - получишь ответ

(2) спасибо! то что надо!

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


Вот кусок кода из моей базы, чтоб долго не мучился

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

(7) И получите первую, а не последнюю дату.....

(8)+1 про ОбратныйПорядок() тоже не мешало бы почитать...

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