ТекстЗапроса = "ВЫБРАТЬ Ссылка ИЗ Справочник.НоменклатурныеГруппы";
Запрос = Новый Запрос(ТекстЗапроса);
СписокСсылок = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
СсылкиНаДокументы = НайтиПоСсылкам(СписокСсылок);
Для Каждого СД Из СсылкиНаДокументы Цикл
Сообщить("OK");
КонецЦикла;
Для Каждого Док Из Метаданные.Документы Цикл
Если Док.ТабличныеЧасти.Количество() > 0 Тогда
Для Каждого ТЧ из Док.ТабличныеЧасти Цикл
Для Каждого Рек Из ТЧ.Реквизиты Цикл
Если Рек.Тип.СодержитТип(Тип("СправочникСсылка.НоменклатурныеГруппы")) Тогда
//Сообщить(Строка(Док) + " - " + Строка(ТЧ.Имя) + " - " + Строка(Рек.Имя) + " - " + Рек.Тип);
ДокВыборка = Документы[Док.Имя].Выбрать(Дата(2019,04,01), Дата(2019,07,30));
Пока ДокВыборка.Следующий() Цикл
ДокОбъект = ДокВыборка.Ссылка.ПолучитьОбъект();
ТЧОбъект = ДокОбъект[ТЧ.Имя];
Для Каждого Стр Из ТЧОбъект Цикл
Если ТипЗнч(Стр[Рек.Имя]) = Тип("СправочникСсылка.НоменклатурныеГруппы") Тогда
Сообщить("OK");
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Для Каждого Док Из Метаданные.Документы Цикл
Если Док.ТабличныеЧасти.Количество() > 0 Тогда
Для Каждого ТЧ из Док.ТабличныеЧасти Цикл
Для Каждого Рек Из ТЧ.Реквизиты Цикл
Если Рек.Тип.СодержитТип(Тип("СправочникСсылка.НоменклатурныеГруппы")) Тогда
//Сообщить(Строка(Док) + " - " + Строка(ТЧ.Имя) + " - " + Строка(Рек.Имя) + " - " + Рек.Тип);
ДокВыборка = Документы[Док.Имя].Выбрать(Дата(2019,04,01), Дата(2019,07,30));
Пока ДокВыборка.Следующий() Цикл
ДокОбъект = ДокВыборка.Ссылка.ПолучитьОбъект();
ТЧОбъект = ДокОбъект[ТЧ.Имя];
Для Каждого Стр Из ТЧОбъект Цикл
Если ТипЗнч(Стр[Рек.Имя]) = Тип("СправочникСсылка.НоменклатурныеГруппы") Тогда
Сообщить("OK");
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
ВЫБРАТЬ
Ссылка
ПОМЕСТИТЬ ВТ_Счета
ИЗ
ПланСчетов.Хозрасчетный.ВидыСубконто
ГДЕ
ВидСубконто В (&ВидСубконто)
СГРУППИРОВАТЬ ПО Ссылка;
ВЫБРАТЬ
РБ.Регистратор
ПОМЕСТИТЬ ВТ_Документы
ИЗ
РегистрБухгалтерии.Хозрасчетный КАК РБ
ГДЕ РБ.Период > ДАТАВРЕМЯ(2019, 04, 01) И
(СчетДт В (ВЫБРАТЬ ССЫЛКА ИЗ ВТ_Счета)
ИЛИ СчетКт В (ВЫБРАТЬ ССЫЛКА ИЗ ВТ_Счета))
СГРУППИРОВАТЬ ПО РБ.Регистратор;
Процедура ОбновитьГруппыНоменклатурыНаСервере()
Для Каждого Док Из Метаданные.Документы Цикл
Если Док.ТабличныеЧасти.Количество() > 0 Тогда
Для Каждого ТЧ из Док.ТабличныеЧасти Цикл
Для Каждого Рек Из ТЧ.Реквизиты Цикл
Если Рек.Тип.СодержитТип(Тип("СправочникСсылка.НоменклатурныеГруппы")) Тогда
Сообщить(Строка(Док) + " - " + Строка(ТЧ.Имя) + " - " + Строка(Рек.Имя) + " - " + Рек.Тип);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры