1с как найти битые ссылки запросом

Содержание:

1. Выборка объектов с помощью запроса
2. Использование объектной модели
3. Поиск подстроки 1С «Объект не найден» в представлении ссылки

Трудно найти человека, который при работе с информационными базами данных на платформе 1С более или менее продолжительное время, ни разу не столкнулся с “битыми” ссылками в 1С, которые содержат поля таблиц баз данных (пресловутый текст в 1С «Объект не найден» c уникальным идентификатором отсутствующего объекта в поле со ссылкой на отсутствующий объект информационной базы). Причинами возникновения таких ситуаций могут быть выполнение удаления объектов информационных баз без контроля ссылочной целостности, аварийные завершения работы информационных баз, ошибки при обменах данными и т.д.

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

Существуют несколько способов выявления “битых” ссылок в 1С в таблицах информационной базы.  

1.    Выборка объектов с помощью запроса

Первый способ: выборка объектов информационной базы с “битыми” ссылками в 1С с помощью запроса.

ТекстЗапроса =

    “ВЫБРАТЬ

    |       ПеремещениеТоваров.Ссылка КАК Ссылка

    |ИЗ

    |       Документ.ПеремещениеТоваров КАК ПеремещениеТоваров

    |ГДЕ

    |       НЕ ПеремещениеТоваров.СкладОтравитель ЕСТЬ NULL

    |       И ПеремещениеТоваров.СкладОтравитель.Ссылка ЕСТЬ NULL”.

В данном случае мы с помощью запроса производим поиск документов «Перемещение товаров», у которых “битая” ссылка на склад-отправитель. Для этого в условии отбора убеждаемся, что ссылка на склад-отправитель в принципе не пустая(часть условия “ГДЕ”: “НЕ ПеремещениеТоваров.СкладОтравитель ЕСТЬ NULL”) и, если это так, то проверяем ссылку на “битость”(часть условия “ГДЕ”: “ПеремещениеТоваров.СкладОтравитель.Ссылка ЕСТЬ NULL”).

Во второй части условия “ГДЕ” (“ПеремещениеТоваров.СкладОтравитель.Ссылка ЕСТЬ NULL”) вместо “Ссылка” можно использовать другие реквизиты склада-отправителя, например, “Код” (“ПеремещениеТоваров.СкладОтравитель.Код ЕСТЬ NULL”) – в таком случае мы также сможем отобрать перемещения с “битыми” ссылками на склад-отправитель.

Следует оговорить ситуацию, когда нужно произвести выборку объектов с битыми ссылками в 1С, но при этом поле объекта, в котором возможна “битая” ссылка, имеет составной тип, а нам требуется найти “битые” ссылки только определенного типа. Например, если в нашем случае склад-отправитель имеет составной тип “Склады” + “Подразделения организаций”, а нам нужно отобрать только перемещения с “битыми” складами-отправителями типа “Подразделения организаций”, в текст нашего запроса в условие “ГДЕ” добавится часть “ПеремещениеТоваров.СкладОтравитель ССЫЛКА Справочник.ПодрадзделенияОрганизаций”. Запрос примет следующий вид:

“ВЫБРАТЬ

    |       ПеремещениеТоваров.Ссылка КАК Ссылка

    |ИЗ

    |       Документ.ПеремещениеТоваров КАК ПеремещениеТоваров

    |ГДЕ

    |       ПеремещениеТоваров.СкладОтравитель ССЫЛКА Справочник.ПодрадзделенияОрганизаций

    |       И НЕ ПеремещениеТоваров.СкладОтравитель ЕСТЬ NULL

    |       И ПеремещениеТоваров.СкладОтравитель.Ссылка ЕСТЬ NULL”.  

2.    Использование объектной модели

Второй способ: определение “битой” ссылки с использованием объектной модели данных 1С.

При данном способе для поиска “битых” ссылок используется метод ПолучитьОбъект() платформы 1С по ссылке на объект информационной базы, который возвращает «Неопределено» в случаях с “битыми” ссылками:

Если ЗначениеЗаполнено(ДокументПеремещения.СкладОтправитель) И (ДокументПеремещения.СкладОтправитель.ПолучитьОбъект() = Неопределено) Тогда

// Здесь выполняется требуемый код обработки найденного объекта с “битой” ссылкой.

КонецЕсли;

Если поле с “битой” ссылкой имеет составной тип, и нам необходимо выявлять только битые ссылки определенного типа, тогда, как и при первом случае, мы соответствующим способом модифицируем условие:

Если (ТипЗнч(Объект.СкладОтравитель) = Тип(“СправочникСсылка.ПодрадзделенияОрганизаций”)) И ЗначениеЗаполнено(ДокументПеремещения.СкладОтправитель) И (ДокументПеремещения.СкладОтправитель.ПолучитьОбъект() = Неопределено) Тогда

        // Здесь выполняется требуемый код обработки найденного объекта с “битой” ссылкой.

    КонецЕсли.  

3.    Поиск подстроки «Объект не найден» в представлении ссылки

Третий способ: поиск подстроки «Объект не найден» в представлении ссылки.

    Если СтрНайти(ДокументПеремещения.СкладОтправитель, “Объект не найден”) > 0 Тогда

        // Здесь выполняется требуемый код обработки найденного объекта с “битой” ссылкой.

    КонецЕсли;

По поводу последнего способа хотелось бы отметить следующее: хотя на первый взгляд он выглядит не очень “красивым”, по сравнению со вторым способом, он является более предпочтительным с точки зрения производительности, так как метод ПолучитьОбъект(), используемый во втором способе, немного больше “нагружает” систему в случаях, когда при проверке условия ссылка оказывается не “битой”, и платформа выделяет дополнительные ресурсы вычислительной машины для создания в ее памяти копии объекта информационной базы по проверяемой ссылке.

При это нужно быть аккуратным – используя в коде поиск “битых” ссылок по подстроке «Объект не найден», нужно учитывать, что подстрока “Объект не найден” в представлении “битой” ссылки может изменяться в зависимости от языка, используемого в “региональных установках информационной базы”.

Специалист компании «Кодерлайн»

Аскер Жансуев

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

 Если Ссылка.ПолучитьОбъект() = Неопределено Тогда 

//битая ссылка 

КонецЕсли;

// или так (НО ненадежно):

Если Лев(СокрЛП(Ссылка),18) = "<Объект не найден>" Тогда     

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

Попытка

  обьект=Ссылка.Ссылка;

Исключение

  сообщить("битая");

КонецПопытки;   

 Процедура УдалениеБитыхСсылок(ИмяРегистра,ТипРегистра,ТипРегистраЗ)

    МенеджерРегистра = ТипРегистра[ИмяРегистра];

    
    Запрос = Новый Запрос("

    |ВЫБРАТЬ Регистратор

    |ИЗ "+ТипРегистраЗ+"."+ИмяРегистра+" 

    |ГДЕ Регистратор.Ссылка ЕСТЬ NULL И НЕ Регистратор = &ПустаяСсылкаДокумента");

    Запрос.УстановитьПараметр("ПустаяСсылкаДокумента",Неопределено);

    
    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        Набор = ТипРегистра[ИмяРегистра].СоздатьНаборЗаписей();

        Набор.Отбор.Регистратор.Установить(Выборка.Регистратор);

        Набор.Записать();

        ОбработкаПрерыванияПользователя();

        Состояние(""+ТипРегистра+" "+ИмяРегистра);

    КонецЦикла;

КонецПроцедуры 

 

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


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

        Подчинен        =    (пРегистр.РежимЗаписи = Метаданные.СвойстваОбъектов.РежимЗаписиРегистра.ПодчинениеРегистратору);

        Если Подчинен Тогда

            УдалениеБитыхСсылок(пРегистр.Имя,РегистрыСведений,"РегистрСведений")

        КонецЕсли;    

    КонецЦикла; 



  


                       
  




   
    Для Каждого пРегистр из Метаданные.РегистрыБухгалтерии Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыБухгалтерии,"РегистрБухгалтерии")

    КонецЦикла;

    
    Для Каждого пРегистр из Метаданные.РегистрыРасчета Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыРасчета,"РегистрРасчета")

    КонецЦикла;


    Для Каждого пРегистр из Метаданные.РегистрыНакопления Цикл

        УдалениеБитыхСсылок(пРегистр.Имя,РегистрыНакопления,"РегистрНакопления")

    КонецЦикла;

    
КонецПроцедуры   

• Главная
•  / 
• Статьи
•  / 
• Программирование на 1С:Предприятие
•  / 
• Проверка на битую ссылку в 1С 8

	...
ИЗ
	    РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
	ГДЕ
	    ПартииТоваровНаСкладах.ДокументОприходования.Ссылка ЕСТЬ NULL

ГДЕ ПартииТоваровНаСкладах.ДокументОприходования.Ссылка.Представление ЕСТЬ NULL

Найти(Строка(Ссылка),"<Объект не найден>") <> 0

Ссылка.ПолучитьОбъект() = Неопределено

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

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

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

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

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

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

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

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

Запрос = Новый Запрос;
Запрос.Текст =
          "ВЫБРАТЬ
          |        ПриобретениеТоваровУслуг.Ссылка КАК Ссылка
          | ИЗ
          |        Документ.ПриобретениеТоваровУслуг КАК ПриобретениеТоваровУслуг
          | ГДЕ
          |        ПриобретениеТоваровУслуг.Партнер = ЗНАЧЕНИЕ(Справочник.Партнеры.ПустаяСсылка)
          |	                 И ПриобретениеТоваровУслуг.Партнер ЕСТЬ НЕ NULL";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

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

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

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

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

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

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

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