warpath
Алексей Редин

Процедура УстановитьХронологию(ПостфиксБУ = "")
   
   ИмяПоследовательности = "ПартионныйУчет" + ПостфиксБУ;
   
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |   ПартионныйУчет.МоментВремени
                  |ИЗ
                  |   Последовательность." + ИмяПоследовательности + " КАК ПартионныйУчет
                  |ГДЕ
                  |   НЕ ПартионныйУчет.ПроведенВХронологическойПоследовательности
                  |   И ПартионныйУчет.Организация = &Организация
                  |   И ПартионныйУчет.Период <= &Период
                  |
                  |УПОРЯДОЧИТЬ ПО
                  |   ПартионныйУчет.МоментВремени";
               
   Запрос.УстановитьПараметр("Организация", Организация);
   Запрос.УстановитьПараметр("Период", КонецДня(ЭтаФорма[ИмяПоследовательности]));
   
   Результат = Запрос.Выполнить().Выгрузить();
   
   Для Каждого Строка Из Результат Цикл
      
      ДокументМоментВремени = Строка.МоментВремени;
      
      Набор = Последовательности[ИмяПоследовательности].СоздатьНаборЗаписей();
      Набор.Отбор.Регистратор.Установить(ДокументМоментВремени.Ссылка);
      Если ЗначениеЗаполнено(Набор.Отбор.Регистратор.Значение) ТОгда
      
         Если ДокументМоментВремени.Ссылка.Проведен Тогда
            
            Набор.Прочитать();
            Для Каждого ТекСтрока Из Набор Цикл
               ТекСтрока.ПроведенВХронологическойПоследовательности = Истина;
            КонецЦикла;
            Набор.Записать();

         Иначе
            Набор.Записать();
         КонецЕсли;   
      КонецЕсли;
      
   КонецЦикла;
   
КонецПроцедуры