СнятьПризнакПредопределенныйДляВидовКонтактнойИнформации (БСП)

Снять признак предопределенный для видов контактной информации. Удаляет информацию о соответствии элемента справочника виде контактной информации предопределенному значению,

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

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

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

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

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

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////