удаляемый » Поиск

Результаты по ключевому слову: удаляемый

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

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

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

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

Код 1C v 8.х

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

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

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

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

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

	

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

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

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

		Текст = 

		"ВЫБРАТЬ

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

		|ИЗ

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

		|ГДЕ

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

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

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

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

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

		ном=0;

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

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

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

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

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

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

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

			

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

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

			Иначе

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

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

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

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

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

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

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

			КонецЕсли; 		  

			

		КонецЦикла; 

	КонецЦикла;

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

Особенности работы с хранилищем конфигурации Категория: Администрирование

Удаление документа

Код 1C v 8.2 УП

 &НаКлиенте

Процедура УдалитьДокумент(Команда)

   

        // Вставить содержимое обработчика.

        УдалитьДокументНаСервере(0);

   

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



&НаСервере

Процедура УдалитьДокументНаСервере(ПометкаУдаления)

   

        // Вставить содержимое обработчика.

        Перем УдаляемыйДокумент;

   

        УдаляемыйДокумент =Документы.РасходнаяНакладная.НайтиПоНомеру("000000004");

        Если ПометкаУдаления = 1 Тогда

                УдаляемыйДокумент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

        Иначе

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

        КонецЕсли;

   

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

Код 1C v 8.х

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

ТС=ЭлементыФормы.Список.ТекущиеДанные;

    ТД=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ТС.Номер, ТС.Дата);

    Если ТД.Пустая() Тогда

       Сообщить("Документ по номеру <такому то> не найден");

       возврат;

    КонецЕсли;

    ТД.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

Код 1C v 8.х

 // Непосредственное удаление документов

Запрос = Новый Запрос("ВЫБРАТЬ

                          |    Заказы.Ссылка

                          |ИЗ

                          |    Документ.Заказы КАК Заказы

                          |ГДЕ

                          |    Заказы.ПометкаУдаления = ИСТИНА");

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

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

  ОбъектДокумент = Выборка.Ссылка.ПолучитьОбъект();

  ОбъектДокумент.Удалить();

КонецЦикла;

Код 1C v 7.x

 Д = СоздатьОбъект("Документ");

Д.ВыбратьДокументы(НачДата,КонДата);

Пока Д.ПолучитьДокумент() = 1 Цикл

   Сообщить(Д.ТекущийДокумент());

   Состояние(Д.ДатаДок);

   Д.Удалить();

КонецЦикла;

Категория: Документы

Удаление элемента справочника с проверкой на существование ссылок на него? Категория: Справочники

Удаление элемента справочника

Внимание!!! Непосредственное удаление справочника ведет к нарушению целостности данных. Например если удалить Контрагента по которому были сделаны документы, то в этих документах будет пустая ссылка.
Поэтому - лучше на удаляемые объекты ставить пометку на удаление, а непосредственное удаление делать встроенной функцией:
в 1С 7.7 или 8.1 - Меню-Операции - Удаление помеченных объектов.
в 1С 8.2 - Меню - Все функции... - Стандартные - Удаление помеченных объектов.

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ПоКнопкеУдалитьКонтрагента(Команда)

   

   Режим = РежимДиалогаВопрос.ДаНетОтмена;

    Ответ = Вопрос("Удалить непосредственно? Да - удалить, Нет - пометка удаления",Режим, 0);

   

    Если Ответ = КодВозвратаДиалога.Да Тогда

          УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Ложь);

    ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда

        УдалитьКонтрагента(Элементы.СписокКонтрагентов.ТекущаяСтрока, Истина);

   КонецЕсли;

   

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



&НаСервере

Процедура УдалитьКонтрагента(УдаляемыйКонтрагент, ПометкаНаУдаление)

   

    Если ПометкаНаУдаление = Истина Тогда

        УдаляемыйКонтрагент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина, Истина);

    Иначе

        УдаляемыйКонтрагент.ПолучитьОбъект().Удалить();

    КонецЕсли;       

   

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

Код 1C v 8.х

 СпрСотр = Справочники.Сотрудники;

СпрСотр.Удалить(); //непосредственное удаление



СпрСотр.УстановитьПометкуУдаления (Истина); //пометка на удаление

СпрСотр.УстановитьПометкуУдаления (Ложь); //снять пометку на удаление



//можно проверить, помечен ли элемент на удаление

//есть свойство ПометкаУдаления, оно имеет тип Булево - Истина или Ложь

Пометка = СпрСотр.ПометкаУдаления; //обратите внимание: это свойство

Если Пометка = Истина Тогда

.....//элемент помечен на удаление

КонецЕсли;

Код 1C v 7.x

  спр=СоздатьОбъект("Справочник.Материалы");

// далее необходимо найти элемент и 

// Удалить элемент справочника, на который установлена переменная спр, можно так:

спр.Удалить(1); //собственно удаление элемента



// Установить пометку на удаление элемента справочника можно так:

спр.Удалить(0); //пометка элемента на удаление

// впоследствии можно снять установленную пометку удаления

спр.СнятьПометкуУдаления();

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