В результате за 30 мин. была написана обработка которая на основе метаданных обходит все документы в базе находит те которые содержат ключевую пару "номенклатура" и "ЕдиницаИзмерения" в табличной части и исправляет запись реквизита.
Это моя первая публикация. Работаю с метаданными по 8.1 в первый раз...
Поэтому если сильно криво, просьба не ругать, а оценить как есть...
Спасибо за поддержку и понимание.
Процедура КнопкаВыполнитьНажатие(Кнопка)
КоличествоДокументов = Метаданные.Документы.Количество() - 1;
ЭлементыФормы.Надпись2.Заголовок = КоличествоДокументов;
ЭлементыФормы.Индикатор.МинимальноеЗначение = 0;
ЭлементыФормы.Индикатор.МаксимальноеЗначение = КоличествоДокументов;
Для НомерТипаДокумента = 0 По КоличествоДокументов Цикл
ЭлементыФормы.Индикатор.Значение = НомерТипаДокумента;
Документ = Метаданные.Документы.Получить(НомерТипаДокумента);
КолТабЧастей = Документ.ТабличныеЧасти.Количество();
Для НомерТабЧасти=0 По КолТабЧастей-1 Цикл
ТабличнаяЧасть = Документ.ТабличныеЧасти[НомерТабЧасти];
КолРекТабЧасти = ТабличнаяЧасть.Реквизиты.Количество();
ДокументСодержитИскомыеПоля = 0;
Для НомерРекТабЧасти=0 По КолРекТабЧасти-1 Цикл
Реквизит = ТабличнаяЧасть.Реквизиты[НомерРекТабЧасти].Имя;
Если (Реквизит="Номенклатура") или (Реквизит="ЕдиницаИзмерения") Тогда
ДокументСодержитИскомыеПоля = ДокументСодержитИскомыеПоля + 1;
КонецЕсли;
КонецЦикла;
Если ДокументСодержитИскомыеПоля > 1 Тогда
Имя = Документ.Имя;
ВыборкаДок = Документы[Имя].Выбрать();
Пока ВыборкаДок.Следующий() Цикл
ЭлементыФормы.НадписьДокумент.Заголовок = "Текущий документ: "+ВыборкаДок.ПолучитьОбъект();
ЭлементыФормы.ТекстовыйДокумент.ДобавитьСтроку(ВыборкаДок.ПолучитьОбъект());
Объект = ВыборкаДок.ПолучитьОбъект();
Для каждого ТекСтрока Из Объект[ТабличнаяЧасть.Имя] Цикл
ТекСтрока.ЕдиницаИзмерения=ТекСтрока.Номенклатура.БазоваяЕдиницаИзмерения;
КонецЦикла;
Объект.Записать(РежимЗаписиДокумента.Запись);
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт