Перенос и очистка дополнительных реквизитов справочников

23.05.21

База данных - Чистка данных

Обработка для облегчения переноса значений дополнительных реквизитов в основные с последующей очисткой. Работает с любым справочником, у которого есть набор свойств и табличная часть "Дополнительные реквизиты". Весь код в статье.

Скачать файлы

Наименование Файл Версия Размер
Замена и очистка дополнительных реквизитов
.epf 10,80Kb
18
.epf 1 10,80Kb 18 Скачать

Тестирование проводилось на:

Платформа: 1С:Предприятие 8.3 (8.3.18.1334)

Конфигурация: 1С:ERP Управление предприятием 2 (2.5.6.144)

Старт работы:

  1. Выбрать набор свойств, табличная часть с доп. реквизитам заполниться сама, если таковые существуют
  2. Задать настройки выполнения
  3. В табличной части задать наименование основного реквизита (как в конфигураторе) если необходим перенос и флаг "Очистить" если необходимо очистить значения. Перенос будут выполнен ДО очистки.

У всех настроек есть подсказки. Полный список:

  1. Кнопка "Проверить". Проверит ТЧ на корректность заполнения. Если не назначено действий или основной реквизит написан неправильно - строка подсветится красным, при начале обработки такие строки будут удалены.
  2. Поле "Обработать". Указывает количество элементов справочника, которые нужно обработать. Элементы сортируются по наименованию. Если указано 0, будут обработаны все элементы.
  3. Флаг "Проверять основной реквизит". Проверяет основной реквизит после переноса. Если основной реквизит пустой, элемент не запишется и будет сгенерирована ошибка.
  4. Флаг "Останавливать при ошибке". При первой же ошибке записи данных обработка будет остановлена. В ином случае обработка продолжит обрабатывать другие элементы. Все ошибки будут сохранены в журнале регистрации.

Код:

 
&НаКлиенте
Процедура НаборСвойствПриИзменении(Элемент)
	ЗаполнитьИмяСправочника();
	Если ЗначениеЗаполнено(НаборСвойств) Тогда
		ЗаполнитьТаблицуДополнительныеРеквизиты();
	КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьИмяСправочника()
	
	ИмяСправочника = ?(ЗначениеЗаполнено(НаборСвойств.ИмяПредопределенныхДанных), НаборСвойств.ИмяПредопределенныхДанных, НаборСвойств.ИмяПредопределенногоНабора);
	ИмяСправочника = Прав(ИмяСправочника, СтрДлина(ИмяСправочника)-СтрНайти(ИмяСправочника, "_"));
	НайтиВторойЗнак = СтрНайти(ИмяСправочника, "_");
	Если НайтиВторойЗнак <> 0 Тогда
		ИмяСправочника = Лев(ИмяСправочника, НайтиВторойЗнак - 1);
	КонецЕсли;
		
КонецПроцедуры

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

&НаКлиенте
Процедура ВыполнитьКод(Команда)
	Продолжаем = ПроверитьДанные();
	Если Не Продолжаем Тогда Возврат КонецЕсли;
	ВыполнитьОбрабатываниеДанных();
КонецПроцедуры

&НаКлиенте
Процедура Проверить(Команда)
	ПроверитьДанные(Ложь);
КонецПроцедуры

&НаСервере
Функция ПроверитьДанные(УдалятьСтроки = Истина)
	
	Попытка
		ЭлементСправочника = Справочники[ИмяСправочника].СоздатьЭлемент();
	Исключение
		Сообщить("Справочник " + ИмяСправочника + " не поддерживается обработкой");
		Возврат Ложь;
	КонецПопытки;
	
	Для каждого СтрокаТЗ Из ДополнительныеРеквизиты Цикл
		Если СтрокаТЗ.ДополнительныйРеквизит.НаборСвойств <> НаборСвойств Тогда
			СтрокаТЗ.УдалитьСтроку = Истина;
		ИначеЕсли Не ЗначениеЗаполнено(СтрокаТЗ.ОсновнойРеквизит) И СтрокаТЗ.Очистить = Ложь Тогда
			СтрокаТЗ.УдалитьСтроку = Истина;
		ИначеЕсли ЗначениеЗаполнено(СтрокаТЗ.ОсновнойРеквизит) Тогда
			Попытка
				РеквизитСправочника = ЭлементСправочника[СтрокаТЗ.ОсновнойРеквизит];
				СтрокаТЗ.УдалитьСтроку = Ложь;
			Исключение
				Сообщить("Реквизит " + СтрокаТЗ.ОсновнойРеквизит + " не найден!"); 
				СтрокаТЗ.УдалитьСтроку = Истина;
			КонецПопытки;	
		Иначе
			СтрокаТЗ.УдалитьСтроку = Ложь;
		КонецЕсли;	
	КонецЦикла;
	
	Если УдалятьСтроки Тогда
		ТЗКопия = Новый ТаблицаЗначений;
		ТЗКопия = ДополнительныеРеквизиты.Выгрузить(Новый Структура("УдалитьСтроку", Ложь));
		ДополнительныеРеквизиты.Очистить();
		ДополнительныеРеквизиты.Загрузить(ТЗКопия);
	КонецЕсли;
	
	Если ДополнительныеРеквизиты.Количество() = 0 Тогда
		Сообщить("Не назначенны действия для обработки данных");
		Возврат Ложь;
	Иначе
		Возврат Истина;
	КонецЕсли;
	
КонецФункции

&НаСервере
Процедура ВыполнитьОбрабатываниеДанных()
		
	Запрос = Новый Запрос;
	Запрос.Текст = СтрШаблон( 
		"ВЫБРАТЬ %1
		|	ДополнительныеРеквизиты.Ссылка КАК Ссылка,
		|	ДополнительныеРеквизиты.Свойство КАК Свойство,
		|	ДополнительныеРеквизиты.Значение КАК Значение
		|ИЗ
		|	Справочник.%2.ДополнительныеРеквизиты КАК ДополнительныеРеквизиты
		|ГДЕ
		|	ДополнительныеРеквизиты.Свойство В(&Свойство)
		|
		|УПОРЯДОЧИТЬ ПО
		|	ДополнительныеРеквизиты.Ссылка.Наименование
		|ИТОГИ ПО
		|	Ссылка"
		,?(ЗначениеЗаполнено(КвоОбработать), "ПЕРВЫЕ " + Формат(КвоОбработать, "ЧГ=0"), ""), ИмяСправочника);
	
	Запрос.УстановитьПараметр("Свойство", ДополнительныеРеквизиты.Выгрузить(,"ДополнительныйРеквизит"));
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаСсылка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	
	Пока ВыборкаСсылка.Следующий() Цикл
		
		ОбъектРаботы = ВыборкаСсылка.Ссылка.ПолучитьОбъект();
		ОбъектМодифицирован = Ложь;
		
		ВыборкаДетальныеЗаписи = ВыборкаСсылка.Выбрать();
		
		Попытка
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
				
				ПараметрОтбора = Новый Структура;
				ПараметрОтбора.Вставить("ДополнительныйРеквизит", ВыборкаДетальныеЗаписи.Свойство);
				СтрокаТЗ = ДополнительныеРеквизиты.НайтиСтроки(ПараметрОтбора);
				
				ИмяРеквизита = СтрокаТЗ[0].ОсновнойРеквизит;
				
				Если ЗначениеЗаполнено(ИмяРеквизита) Тогда
				
					ЗначениеОсновногоРеквизита = ОбъектРаботы[ИмяРеквизита];
					
					//Здесь можно обработать значение дополнительного реквизита (ВыборкаДетальныеЗаписи.Значение), перед помещением в основной
					ОбъектРаботы[ИмяРеквизита] = ВыборкаДетальныеЗаписи.Значение;
					
					Если ОбъектРаботы[ИмяРеквизита] <> ЗначениеОсновногоРеквизита Тогда
						Если ПроверятьОсновнойРеквизит Тогда
							Если ЗначениеЗаполнено(ОбъектРаботы[ИмяРеквизита]) Тогда
								ОбъектМодифицирован = Истина;
							Иначе
								ТекстОшибки = "После переноса доп. реквизита, основной реквизит стал пустым. Обработка элемента прервана.";
								ЗаписьЖурналаРегистрации("Обработка доп. реквизитов", УровеньЖурналаРегистрации.Ошибка, ОбъектРаботы.Метаданные(), ОбъектРаботы.Ссылка, ТекстОшибки); 
								Если Останаливать Тогда 
									Сообщить("Обработка прервана по ошибке. Посмотрите журнал регистрации");
									Возврат; 
								Иначе Продолжить КонецЕсли;
							КонецЕсли;
						Иначе 
							ОбъектМодифицирован = Истина;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
				
				Если СтрокаТЗ[0].Очистить = Истина Тогда
					Строка = ОбъектРаботы.ДополнительныеРеквизиты.Найти(ВыборкаДетальныеЗаписи.Свойство, "Свойство");
					ОбъектРаботы.ДополнительныеРеквизиты.Удалить(Строка.НомерСтроки - 1);
					ОбъектМодифицирован = Истина;
				КонецЕсли;
				
			КонецЦикла;
			
			Если ОбъектМодифицирован Тогда
				ОбъектРаботы.ОбменДанными.Загрузка = Истина;
				ОбъектРаботы.Записать();
			КонецЕсли;
			
		Исключение
			ТекстОшибки = ОписаниеОшибки();
			ЗаписьЖурналаРегистрации("Обработка доп. реквизитов", УровеньЖурналаРегистрации.Ошибка, ОбъектРаботы.Метаданные(), ОбъектРаботы.Ссылка, ТекстОшибки); 
			Если Останаливать Тогда
				Сообщить("Обработка прервана по ошибке. Посмотрите журнал регистрации");
				Возврат; 
			КонецЕсли;	
		КонецПопытки;
		
	КонецЦикла;
	
	Сообщить("Обработка выполнена успешно");
		
КонецПроцедуры

 

обработка реквизиты дополнительные очистка перенос

См. также

SALE! 10%

Выборочное удаление организаций из баз (управляемые формы), с удалением всех ссылающихся на эти организации данных

Чистка данных Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Позволяет удалить организации из любых программ на управляемых формах (БП 3.0, УТ 11, КА 2, ERP 2, ЗУП 3.0, УНФ, Розница 2.0 и пр.). Главное требование - программа должна содержать справочник "Организации". Реализован самый быстрый алгоритм непосредственного удаления объектов. Работает даже на базах большого размера. Для ускорения работы алгоритма не запускается проверка контроля ссылочной целостности. Проверку учета можно запустить отдельно с помощью дополнительной обработки. Необходимо перед удалением самостоятельно проверить базу на наличие перекрестных ссылок разных организаций в одном документе. Эту дополнительную обработку проверки перекрестных ссылок по запросу предоставляем бесплатно нашим покупателям.

3980 3582 руб.

16.03.2015    110185    168    74    

204

Правильная свертка или свертка базы по правилам

Свертка базы Чистка данных Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Обработка "Свертка базы по правилам" предназначена для свертки информационных баз системы программ "1С:Предприятие" версии 8.2. Основой обработки являются специальные правила свертки, которые создаются индивидуально для каждой конфигурации информационной базы. Встроенный в обработку генератор правил позволяет быстро создать правила свертки для любой конфигурации. Например, для конфигурации "1С:Бухгалтерия 8, ред. 3.0" правила свертки были созданы за 15 минут!

2400 руб.

22.07.2013    160397    602    527    

392

Замена Номенклатуры+Характеристики

Чистка данных Логистика, склад и ТМЦ Платформа 1С v8.3 План видов характеристик 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Настраиваемая обработка, позволяющая заменить пару: Номенклатура+Характеристика в документах, их движениях и независимых регистрах сведений. Без перепроведения. Поможет, если вы по каким-то причинам решили отказаться от характеристик

3600 руб.

04.08.2015    40262    86    70    

47

Универсальное выборочное удаление данных из базы 1С (любые конфигурации на упр.формах: БП 3.0, УТ 11, КА 2, ERP, УНФ, ЗУП 3, Розница и т.д.)

Чистка данных Платформа 1С v8.3 Управляемые формы 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Платные (руб)

Обработка позволяет удобно выборочно удалить данные из базы 1С. Это могут быть как неиспользуемые элементы справочников, так и неактуальные организации. При этом есть возможность провести анализ пересечений документов с другими организациями и таким образом уберечься от того, что при удалении обороты по другой организации изменятся.

3350 руб.

28.11.2019    23032    38    16    

49

Универсальная обработка удаления данных

Чистка данных Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Россия Платные (руб)

Универсальная обработка удаления как помеченных, так и не помеченных объектов конфигураций 1С 7.7, 8.2, 8.3.

2000 руб.

05.02.2019    18693    18    0    

21

Удаление организаций из информационных баз 1С

Чистка данных Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Обработка предназначена для удаления организаций из любых информационных баз 1С, имеющих в своем составе справочник "Организации". Работает на обычных и управляемых формах, на базах любого формата и размера. Обработка проверялась на следующих типовых релизах 1С: БП 2.0.66.84, БП 3.0.71.77, БГУ 1.0.59.3, БГУ 2.0.65.17, УТ 10.3.55.3, УТ 11.4.10.57, ЗУП 3.1.11.106, ЗГУ 3.1.11.106, КА 2.4.9.98, УПП 1.3.126.1, УНФ 1.6.18.168, но должна работать и на более старых, так как обработке нужен только справочник "Организации".

3000 руб.

20.11.2019    26341    65    29    

70

Алгоритм перехода на учет без серий для программного продукта "Управление торговлей" редакция 11 или Комплексная Автоматизация редакция 2. (отказ от серий, удаление серий, отмена серий, без серий, УТ, КА)

Оптовая торговля Логистика, склад и ТМЦ Чистка данных Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Россия Управленческий учет Платные (руб)

Если вы начали работать в программном продукте Управление Торговлей, редакция 11 или Комплексная Автоматизация редакция 2 и включили механизм учёта серий, то перейти обратно в учёт без серий будет не так-то просто. Сложность заключается в том, что нужно очистить серии в табличной части документа, например, Реализация Товаров и услуг. Предлагаем алгоритм перехода на учет без серий для программного продукта «Управление торговлей» редакция 11. (Очистка серий.)

2400 руб.

09.04.2019    27821    36    14    

38

Удаление битых ссылок 1С в базе без монопольного режима

Чистка данных Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Если в вашей информационной базе крутится очень много данных, или база должна быть доступна 24/7 (как в моем случае), или же вы боитесь запускать тестирование и исправление, НО существует потребность удалить битые ссылки, тогда эта обработка сможет Вам помочь. Обработка выявляет битые ссылки как в самих объектах метаданных, так и в их табличных частях(!), а так же может их удалить.

1800 руб.

23.08.2021    8656    13    3    

18
Оставьте свое сообщение