справочниках » Поиск

Результаты по ключевому слову: справочниках

Перестал работать поиск в документах, справочниках и журналах Категория: 1С Общие вопросы - Управляемые формы и Такс…

Как очистить справочник удалив все не используемые элементы?

Очень часто менеджеры дублируют информацию в справочниках и время от времени их приходится чистить.

Но как удалить только те элементы справочника, которые не используются в документах?

Следующий пример кода поможет это сделать(в примере обрабатывается 4 справочника: Сотрудники, ФизЛица, Договора и Контрагенты) Скачать: Обработка для УТ 10:

Код 1C v 8.х

 сп=Новый СписокЗначений;

	сп.Добавить("СотрудникиОрганизаций");

	сп.Добавить("ФизическиеЛица");

	сп.Добавить("ДоговорыКонтрагентов");

	сп.Добавить("Контрагенты");

	

	Для Каждого стр из сп Цикл

		текСпр=стр.Значение;

		Запрос = Новый Запрос;

		Текст = 

		"ВЫБРАТЬ

		|	СотрудникиОрганизаций.Ссылка

		|ИЗ

		|	Справочник.%текСпр% КАК СотрудникиОрганизаций

		|ГДЕ

		|	НЕ СотрудникиОрганизаций.ПометкаУдаления И НЕ СотрудникиОрганизаций.ЭтоГруппа";

		Запрос.Текст = СтрЗаменить(Текст,"%текСпр%",текСпр);

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

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

		итЗаписей = Строка(ВыборкаДетальныеЗаписи.Количество());

		ном=0;

		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

			ном=ном+1; Состояние(текСпр+": "+Строка(ном)+" из "+итЗаписей);

			СсылкаНаУдаляемыйЭлемент = ВыборкаДетальныеЗаписи.Ссылка;

			// Найти ссылки на удаляемый элемент - СсылкаНаУдаляемыйЭлемент. 

			МассивСсылок = Новый Массив; 

			МассивСсылок.Добавить(СсылкаНаУдаляемыйЭлемент); 

			НайденныеСсылки = НайтиПоСсылкам(МассивСсылок); 

			

			Если НайденныеСсылки.Количество() > 0 Тогда 

				Сообщить("Нельзя удалять элемент:"+Строка(СсылкаНаУдаляемыйЭлемент)+", на него имеются ссылки",СтатусСообщения.Внимание); 

			Иначе

				Сообщить("Удаляем элемент:"+Строка(СсылкаНаУдаляемыйЭлемент),СтатусСообщения.Информация); 

				// Получаем объект

				УдаляемыйЭлемент = СсылкаНаУдаляемыйЭлемент.ПолучитьОбъект(); 

				// Установить пометку

				//УдаляемыйЭлемент.УстановитьПометкуУдаления(Истина); 

				// Удалить сразу

				УдаляемыйЭлемент.Удалить();

			КонецЕсли; 		  

			

		КонецЦикла; 

	КонецЦикла;

Категория: Справочники

Обработка "Универсальные подбор и обработка объектов" Категория: 1С Общие вопросы - Обычные формы

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

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

Код 1C v 8.х

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

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

КонецЕсли;

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

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

Код 1C v 8.х

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

Попытка

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

Исключение

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

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

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

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

Код 1C v 8.х

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

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

    

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

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

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

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

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

    

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

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

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

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

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

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

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

    КонецЦикла;

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

 



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



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

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

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

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

        КонецЕсли;    

    КонецЦикла; 

   

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

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

    КонецЦикла;

    

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

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

    КонецЦикла;



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

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

    КонецЦикла;

    

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

Категория: Запросы

Технология восстановления удаленных объектов Категория: 1С Общие вопросы - Обычные формы