yasar92

Для Каждого СтрТаб Из Мета.ТабличныеЧасти Цикл
         Таб = Объект_Документ_Справочник[СтрТаб.Имя];
         Если Таб.Количество() > 0 Тогда
            МасСтрок = Новый СписокЗначений;
            Для Индекс = 0 По Таб.Количество() - 1 Цикл
               Стр = Таб[Индекс]; 
               
                                       //Например этого
               ЕстьРеквизитНезаполнен=Ложь;
               Для Каждого СтрРек из СтрТаб.Реквизиты Цикл 
                  Эл = Стр[СтрРек.Имя];   
                  Если Строка(СтрРек.ПроверкаЗаполнения)="Выдавать ошибку" тогда 
                     Если Строка(СтрРек.Тип)<>"Номенклатура" тогда
                        Если НЕ ЗначениеЗаполнено(Эл) Тогда
                            ЕстьРеквизитНезаполнен=Истина;
                        КонецЕсли;    
                     КонецЕсли;
                  КонецЕсли;   
               КонецЦикла;
               
               Если ЕстьРеквизитНезаполнен тогда
                   МасСтрок.Добавить(Стр.НомерСтроки);
               КонецЕсли;
                //Например этого
   
            КонецЦикла;
            МасСтрок.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
            Для Каждого НомерСтр Из МасСтрок Цикл
               Для Каждого СтрТ Из Таб Цикл
                  Если СтрТ.НомерСтроки = НомерСтр.Значение Тогда
                     Таб.Удалить(СтрТ);
                  КонецЕсли;
               КонецЦикла;
            КонецЦикла;
         КонецЕсли;
      КонецЦикла;

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