Подсистема учета характеристик. Стремление к совершенству

Процедура ПередЗаписью(Отказ)

	//доработка+
	Если ОбменДанными.Загрузка Тогда
		Возврат;   //ничего не проверяем
	КонецЕсли;
	
	Если Не РольДоступна("РаботаСХарактеристиками") 
		И (ПометкаУдаления ИЛИ НеИспользовать) Тогда
		ОбщегоНазначения.СообщитьОбОшибке("У вас нет прав удалять/скрывать характеристики", Отказ);
		Возврат;
	КонецЕсли;
		
	Если НЕ ОбменДанными.Загрузка
	   И НЕ Владелец.ВестиУчетПоХарактеристикам Тогда
		ОбщегоНазначения.СообщитьОбОшибке(
		"Для номенклатуры """ + Владелец + """ не ведется учет по характеристикам.
		|Характеристика """ + Наименование + """ не может быть записана.", 
		Отказ); 
	КонецЕсли;

	Если НЕ Отказ И ЭтоНовый() Тогда
		Автор = глЗначениеПеременной("глТекущийПользователь");
	КонецЕсли;
	
	
	Если НЕ Отказ И НЕ ЭтоНовый() Тогда
		
		//проверим на документооборот
		//при наличии ключевых документов, редактировать хар-ку нельзя!
		
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ
		|	ХарактеристикаВДокументах.Ссылка
		|ИЗ
		|	КритерийОтбора.ХарактеристикаВДокументах(&Характеристика) КАК ХарактеристикаВДокументах
		|ГДЕ
		|	ХарактеристикаВДокументах.Ссылка.Проведен
		|			И (ХарактеристикаВДокументах.Ссылка ССЫЛКА Документ.ЗаказПоставщику
		|				ИЛИ ХарактеристикаВДокументах.Ссылка ССЫЛКА Документ.ПоступлениеТоваровУслуг
		|				ИЛИ ХарактеристикаВДокументах.Ссылка ССЫЛКА Документ.РеализацияТоваровУслуг)";
		
		Запрос.УстановитьПараметр("Характеристика", Ссылка);
		
		Результат = Запрос.Выполнить();
		Если НЕ Результат.Пустой() Тогда
			
			Если Не РольДоступна("РаботаСХарактеристиками") Тогда
				ОбщегоНазначения.СообщитьОбОшибке("Нельзя перезаписывать характеристику, когда она проведена в документах", Отказ);
				Возврат;
			Иначе
				ОбщегоНазначения.СообщитьОбОшибке("Внимание! Вы перезаписываете характеристику, которая проведена в документах",,,СтатусСообщения.Информация);
				Возврат;
			КонецЕсли;
		КонецЕсли;
		
	КонецЕсли;    	
	
КонецПроцедуры

Процедура ОтобратьХарактеристики()

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

	Запрос.УстановитьПараметр("ВладелецХарактеристики", ПараметрВыборПоВладельцу);

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

	Для каждого Строка Из ОбработкаОбъектЗначенияСвойств.СвойстваИЗначения Цикл
		Если ЗначениеЗаполнено(Строка.Значение) Тогда
			Индекс = ОбработкаОбъектЗначенияСвойств.СвойстваИЗначения.Индекс(Строка);

			Запрос.УстановитьПараметр("Свойство" + Индекс, Строка.Свойство);
			Запрос.УстановитьПараметр("Значение" + Индекс, Строка.Значение);

			Запрос.Текст = Запрос.Текст + "
			|ВНУТРЕННЕЕ СОЕДИНЕНИЕ
			|	РегистрСведений.ЗначенияСвойствОбъектов             КАК ЗначенияСвойствОбъектов" + Индекс + "
			|
			|ПО
			|	ЗначенияСвойствОбъектов" + Индекс + ".Объект = ХарактеристикиНоменклатуры.Характеристика
			|	И
			|	ЗначенияСвойствОбъектов" + Индекс + ".Свойство = &Свойство" + Индекс +"
			|	И
			|	ЗначенияСвойствОбъектов" + Индекс + ".Значение = &Значение" + Индекс +"
			|";
		КонецЕсли;
	КонецЦикла;

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

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

Процедура ХарактеристикиПередНачаломДобавления(Элемент, Отказ, Копирование)

	Отказ = Истина;

	//доработка+
	//было
	//ВвестиНовуюХарактеристику();
	//стало
	Если Характеристики.Количество()>0 Тогда
		ОбщегоНазначения.СообщитьОбОшибке("Имеются нужные характеристики товара! Выберите имеющиеся или уточните фильтр свойств!", Отказ);
		Возврат;	
	Иначе
		ВвестиНовуюХарактеристику();
	КонецЕсли;
	
КонецПроцедуры

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

Процедура ХарактеристикиПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
	
	Если ДанныеСтроки = Неопределено Тогда
		Возврат;
	КонецЕсли;
	
	Если ДанныеСтроки.Ссылка.ЧастоИспользуемый Тогда
		ОформлениеСтроки.Шрифт = Новый Шрифт(,,Истина);
	КонецЕсли; 
	
КонецПроцедуры

1) [Расширение] УНФ. Список заказов + Структура подчиненности

2) [Расширение] УТ 11.4. Счет на оплату с факсимиле

3) [Расширение] БП 3.0. Список счетов/ Список реализаций + Связанные документы

Внешние обработки (не расширения!):

2) Список заказов поставщикам + структура подчиненности

3) Список заказов покупателей + структура подчиненности

4) Список реализаций со структурой подчиненности + реестр документов

5) Список заказов покупателей (Расширенная версия)

Другие публикации:

1) Удаление справочников для любых баз на управляемых формах

2) Удаление документов для любых баз на управляемых формах

3) Удаление чеков ККМ в Рознице 2.2

4) Загрузка товаров, штрихкодов, цен и остатков на УФ - Розница 2.2

5) Отчет Остатки и цены (прайс с остатками)

6) Как свернуть базу УТ 10.3

7) [ЦФшник] Доработка конфигурации Конвертация Данных

8) [Внешняя обработка] Ввод показателей план-факта БП 3.0

9) [Шаблоны] Договоры для 1с-ника ТОП-скачиваний