Как проверить на битую ссылку 1с

Пожалуйста, помогите разобраться:
Организация = Справочники.Организации.НайтиПоКоду(«000000001»);
Возвращает в Организация — Объект не найден, тип СправочникСсылка.Организации. Так и должно, т.к. код равен «00001». Но как проверить переменную на предмет выбранного значения? Метод ЗначениеЗаполнено(Организация) — возвращает ИСТИНА, Организация.Пустая()- возвращает ЛОЖЬ. При попытки Организация.Наименование — «Нарущение прав доступа, ошибка чтения. «. Сразу скажу права есть и их достаточно. Элемент справочника открывается на чтение (ФормаЭлемента) без проблем.

Метод ЗначениеЗаполнено(Организация) — возвращает ИСТИНА, Организация.Пустая()- возвращает ЛОЖЬ

Как в запросе отобрать битые ссылки, поиск Битых Ссылок

Когда объект был удален непосредственно, то все ссылки на него в справочниках, в документах, в регистрах стали битыми и отображаются следующим образом: (16:bca8000c6efdd52111d8eaba7c9706eb)
Битая ссылка не является пустой. Т.е. метод Пустая() возвращает Ложь. Определить, что ссылка битая можно так:
Код 1C v 8.х

 Если Ссылка.ПолучитьОбъект() = Неопределено Тогда 
//битая ссылка 
КонецЕсли; 
// или так (НО ненадежно): 
Если Лев(СокрЛП(Ссылка),18) = "" Тогда

Код 1C v 8.х

 // Еще вариант (действует для обьектов, которые имеют ссылку) 
Попытка 
обьект=Ссылка.Ссылка; 
Исключение 
сообщить("битая"); 
КонецПопытки;

И последний вариант для проверки в запросах:
ГДЕ Объект.РеквизитОбъекта ЕСТЬ NULL И Не Объект=&ПустаяСсылкаОбъекта

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

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

Как в запросе отобрать битые ссылки, поиск Битых Ссылок

Распечатать

 Если Ссылка.ПолучитьОбъект() = Неопределено Тогда 
//битая ссылка 
КонецЕсли; 
// или так (НО ненадежно): 
Если Лев(СокрЛП(Ссылка),18) = "" Тогда

Код 1C v 8.х

 // Еще вариант (действует для обьектов, которые имеют ссылку) 
Попытка 
обьект=Ссылка.Ссылка; 
Исключение 
сообщить("битая"); 
КонецПопытки;

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

Разместил: E_Migachev Версии: | 8.x | Дата: 04.05.2011 Прочитано: 37556

Распечатать

Возможно, вас также заинтересует

Еще в этой же категории

Значения NULL ( ЕСТЬ NULL и ЕСТЬNULL()) 53
NULL – отсутствующие значения. Не путать с нулевым значением! NULL – это не число, не равно пробелу, пустой ссылке, Неопределено. NULL – типообразующее значение, т.е. есть тип NULL и единственное значение этого типа. NULL значения появляются в 17 правил для составления оптимального ЗАПРОСа к данным базы 1С 50
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ Нарастающий итог в запросе 26
Необходимо использовать левое соединение таблицы с самой собой. ВЫБРАТЬ Обороты.Период, Обороты.Номенклатура, Обороты.Количество ПОМЕСТИТЬ ВТдвижения ИЗ РегистрНакопления.Обороты КАК Обороты ; //////////////////////////////////////////////// Полезные сведения о языке запросов 1С 8.х 24
В статье приведены полезные приемы при работе с запросами 1С v.8.2, а также сведения, которые не так хорошо известны о языке запросов. Я не стремлюсь дать полное описание языка запросов, а хочу остановиться лишь на некоторых моментах, которые для ко Оператор ПОДОБНО 22
ПОДОБНО — Оператор проверки строки на подобие шаблону. Аналог LIKE в SQL. Оператор ПОДОБНО позволяет сравнить значение выражения, указанного слева от него, со строкой шаблона, указанной справа. Значение выражения должно иметь тип строка. Если з Посмотреть все в категории Запросы

Как найти и удалить битые ссылки в 1С 8.3

Анна Викулина

Открыв документ или справочник на месте реквизита, который обычно заполнен, вы обнаруживаете надпись «Объект не найден…». Это может означать только одно – кто-то из пользователей удалил данные базы данных, не проконтролировав их использование. Ситуация неприятная, но не безвыходная – подобные проблемы можно и нужно решать, не допуская в будущем. К сожалению, штатных механизмов для решения не предусмотрено, поэтому придется самостоятельно писать обработку для проверки и исправления. Описанные ниже действия требуют определенных знаний, поэтому, если вы не уверены в своих силах, обращайтесь за услугами по доработке и обслуживанию 1С к профессионалам.

Причины, поиск и исправление битых ссылок

При возникновении любой ошибки мы стараемся не только нивелировать ее последствия, но и предотвратить ее возникновение в будущем. Чтобы не допустить повторного появления ссылок на удаленные объекты, нам необходимо понять причины их появления в базах 1С 8.3. Обычно подобные явления, называемые битыми ссылками, возникают из-за следующих нюансов:

Недостаточно безопасно настроены права, из-за чего у пользователей есть возможность прямого удаления элементов базы данных. Обычно простым пользователям не дают права на удаление во избежание подобных ситуаций;
Случайное программное удаление данных. Для недопущения битых ссылок используйте функцию «УдалитьОбъекты», передавая объекты в нее в виде массива ссылок. Эта функция проверяет, есть ли в базе ссылки на удаляемые объекты, и стирает только неиспользуемые данные;
Неверно настроенный обмен данными. Здесь совет один – при создании обмена между различными базами стоит быть внимательнее и проверить все ключевые реквизиты.

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

После того, как мы разобрались с причинами, нам предстоит исправить сложившуюся ситуацию. Для этого необходимо найти битые ссылки и удалить или исправить их. Для этих целей платформа 1С имеет функционал тестирования и исправления, встроенный в конфигуратор. Чтобы его запустить, необходимо зайти в меню «Администрирование» — «Тестирование и исправление», настроить параметры и нажать «Выполнить». Если оптимизация и ускорение работы 1С вызывает у вас сложности, обратитесь к нашим специалистам по сопровождению 1С.

После выполнения тестирования и исправления 1С выдаст информационное окно, в котором перечислены все исправленные объекты. Эти данные лучше сохранить, чтобы в будущем не было претензий со стороны пользователей. Но у этого механизма есть два серьезных недостатка – он медленный и ему необходим монопольный доступ. Поэтому большинство специалистов самостоятельно пишут небольшие обработки, которые ищут и исправляют битые ссылки.

Для программного поиска обычно используют один из двух методов – с помощью языка запросов или через функцию «ПолучитьОбъект». Рассмотрим пример, когда нам необходимо найти ссылки на удаленного поставщика в документах «ПриобретениеТоваровУслуг». Выберем все документы, где значение поля «Партнер» не равно пустой ссылке, то есть заполнено, и есть NULL. Этот метод хорош тем, что можно установить дополнительные отборы или взять сразу несколько типов документов.

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

Результатом запроса будет перечень документов с битыми ссылками. Чтобы их удалить, мы получаем объект каждого документа по ссылке, заменяем реквизит «Партнер» на пустую ссылку и записываем документ. Также можно заменить « .» на другого партнера или попробовать восстановить данные из резервной копии.

Использование метода «ПолучитьОбъект» постепенно уходит в прошлое, но остается достаточно эффективным решением для поиска битых ссылок. Суть в проверке каждого документа определенного типа и, если обнаружена битая ссылка в 1С, то удаляем ее или заменяем.

На практике удаление битых ссылок и их замена чаще всего осуществляются в ручном режиме ответственными пользователями. Для этого им нужен перечень документов, который мы им можем обеспечить, заменив в коде запись документа на команду «Сообщить».

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

Существует возможность воссоздать удаленные данные, используя ссылку из документов. Однако в современных конфигурациях количество реквизитов достаточно большое и программно все их заполнить сложно. В любом случае помните, что необходимо устранить причину возникновения битых ссылок после их ликвидации в базе.

По всем вопросам, связанным с оптимизацией работы 1С, обращайтесь за консультацией по 1С по телефону, а также оставляйте заявки на нашем сайте. Наши специалисты свяжутся с вами в кратчайшие сроки.

Как проверить на битую ссылку 1с