День добрый. Вопрос собственно в теме. Делается чито для поиска битых ссылок в значениях того или иного регистра сведений. Т.е есть РегистрыСведений - штук 11, вот все их перебираем, перебираем их измерения, их ресурсы, их реквизиты и ищем ссылку в которой "Объект не найден". Кто нить что нить подобное делал?

выборка ?

Тестирование и исправление

(1) В выборке придется явно указывать каждый регистр конфигурации. А я вот такое нашел:

Для Каждого РегистрСведений Из Метаданные.РегистрыСведений Цикл
НО!!! Там берутся только объекты, сами данные получить не могу допереть.

ну и что? нет никаких идей???

(3)Можно сделать программный запрос с объединением данных регистра

(5) Ого! И каким же это макаром?

(3) Для лазания конкретно по записями удаления их это тебе нужен объект вида РегистрСведенийНаборЗаписей.ИмяРегистра

(7) Да это я понимаю. Но как мне получить на каждый регистр сведений вот этот самый НаборЗаписей?

Обходишь по метаданным регистры сведений и нужные поля добавляешь программно к тексту запроса, используя ключевое слово объединить все. Но это чтобы получить данные для изменения таких данных нужно лазить по наборам записей

(8) Щас помозгуем:)

Для Каждого РегистрСведений Из Метаданные.РегистрыСведений Цикл

НаборЗаписеЙ = [РегистрСведений.Имя].СоздатьНаборЗаписей();
НаборЗаписей.Прочитать();
Для каждого ЗапИсь Из НаборЗаписей Цикл
.....

типа что-то

Одного не пойму зачем это тебе? или у тебя свойство "Ведущее" не во всех измерениях выставлено?

(0) на инфост_арте (антимат... гы...) таких обработок вроде полно...

(12) у него ссылки в ресурсах, видать...

(9) "Идешь туда не знаю куда, искать то не знаю что" - я нифига не понял. Допустим Начинаю беребирать регистры сведений
Для Каждого РегистрСведений Из Метаданные.РегистрыСведений Цикл
       Сообщить("!");
       Для Каждого Измерения Из РегистрСведений.Измерения Цикл
           Если Строка(Измерения.Тип) = "Число"
               ИЛИ Строка(Измерения.Тип) = "Строка"
               ИЛИ Строка(Измерения.Тип) = "Дата"
               ИЛИ Строка(Измерения.Тип) = "Булево" Тогда
           Иначе
               
               Сообщить("!!");
           КонецЕсли;
       КонецЦикла;
       Для Каждого Ресурса Из РегистрСведений.Ресурсы Цикл
           Если Строка(Ресурса.Тип) = "Число"
               ИЛИ Строка(Ресурса.Тип) = "Строка"
               ИЛИ Строка(Ресурса.Тип) = "Дата"
               ИЛИ Строка(Ресурса.Тип) = "Булево" Тогда
           Иначе
               
               Сообщить("!!");
           КонецЕсли;
       КонецЦикла;
       
   КонецЦикла;

Вот что то в этом роде. НО!!! Если Измерение имеет тип СправочникСсылка.ФизическиеЛица? Как получить данные?

(11) Тут проблема в том как от метаданных к объекту перейти

(12) А у тебя во всех это стоит?)

(15) Ты лучше скажи нам конечную цель такого поиска, так может и решение оптимальней найдем

(15) Если ТипЗнч(Измерения) = Тип("СправочникСсылка.ФизЛица") Тогда
...

(17) Ну вроде при контроле ссылочной целостности у он не удалит объект если на него есть ссылки даже в регистрах сведений,такая трабла может возникнуть либо при переносе данных либо при непосредственном удалении

(19) Ага и так для каждого справочника в конфигурации, коих может быть под сотню

(18) Удалить записи регистров сведений, где ссылка = "Объект не найден".
И потом (11) впихнул этот код, ругается:
{Форма.Форма.Форма(170,17)}: Ожидается выражение
       НаборЗаписей =<<?>> [РегистрСведений.Имя].СоздатьНаборЗаписей(); (Проверка: Толстый клиент (обычное приложение))

(22) А вас с восьмеркой вообще как?

(23) Начинания. Но это же он (11) посоветовал.

Тестирование и исправление по идее само найдет и удалит ссылки на несуществующие объекты, может попробуете на копии прогнать?

(24) Ну он в виде синтаксического шаблона:). Все таки попробуйте для начала тестирование и исправление, только на копии

(24) я ж не проверял) как то так должно быть...
(22) v8: Вопрос знатокам. Объект не найден в звпросе!

вникни

(25) Блин. А можно не прибегать к ТИИ??? Можно все таки программно, раз уж мы тут программеры.

ищите на ин-стрте по "Объект не найден"

там есть обработки борьбы (выявления,удаления) с битыми ссылками

И кстати откуда у вас в базе битые ссылки взялись?

(27) + Книга знаний: Пустые ссылки

вот главное

нашёл?

Ниже дана программа для удаления записей регистров, у которых регистратор - битая ссылка, т.е. не существует в базе.


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


Процедура КнопкаВыполнитьНажатие(Кнопка)

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

   Для Каждого пРегистр из Метаданные.РегистрыНакопления Цикл
       УдалениеБитыхСсылок(пРегистр.Имя,РегистрыНакопления,"РегистрНакопления")
   КонецЦикла;
   
КонецПроцедуры

Можно закрывать:)

Я все это читал. Там затрагивают регистраторы. А у меня режим записи всех регистров независимый.

(34) Ну проверяй не регистратор а измерения... Регистратор - такое же поле как и другие

Все просто...

(36) Ты думаешь? Объясни.
(35) Ладно. Попробую. Уже конец рабочего дня. Отпишуь.

(37) я не думаю, я знаю.

(38) Так поделись опытом.

http://infostart.ru/public/82878/ - скачай эту обработку, она поможет.

(39) тут ничего сложного нет. Только запросом не пользуйся для получения данных, лучше выборкой. Если регистры большие, то 1Ска может упасть.

Проверить, существует  ли такое значение легко:

БитаяСсылка = Ложь;
Попытка
   ТекущееЗначение.ПолучитьОбъект();
Исключение
   БитаяСсылка = Истина;
КонецПопытки;
Попытка