helpf.pro
  Регистрация
Все категории 1С 8.x : » Запросы Запросы 
 +6 
 
 
Распечатать

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

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

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

КонецЕсли;

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

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

Код 1C v 8.х
 // Еще вариант (действует для обьектов, которые имеют ссылку)

Попытка

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

Исключение

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

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


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

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

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

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

    

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

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

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

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

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

    

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

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

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

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

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

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

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

    КонецЦикла;

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

 



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



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

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

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

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

        КонецЕсли;    

    КонецЦикла; 

   

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

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

    КонецЦикла;

    

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

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

    КонецЦикла;



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

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

    КонецЦикла;

    

КонецПроцедуры
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 39077
 +6 
 
 
Распечатать
Возможно, вас также заинтересует
17 правил для составления оптимального ЗАПРОСа к данным базы 1С  50
  Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps  21
 была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1С Предприятие что это?  12
  Что такое 1С? 1С — это фирма , у которой одно из направлений деятельности — разработка программного обеспечения для автоматизации бизнес-процессов предприятий. « 1С:Предприятие » - конкретный продукт, который выпускает компания 1С . Что такое
COM-подключение к базе 7.7 из 8.2 1С  7
 Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине. Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)): НаКлиенте Процедура Загрузки() ПутьКБазе=" D:ВашаБаза1с77" ; Пользователь=
Cклонения по падежам  6
  НаКлиенте Процедура Команда1(Команда) ФИО = " Иванов Иван Иванович" ; Падеж = 2; Пол = 1; Результат = СклонениеФИО(ФИО, Падеж, пол); Сообщить(Результат); КонецПроцедуры НаСервере Функция СклонениеФИО(ФИО, Падеж, пол) Результат = " " ;
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.