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

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    111695    176    75    

212

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

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

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

2400 руб.

22.07.2013    161866    609    527    

401

Удаление данных с отбором и построением дерева ссылок в базах 1С 8.1-8.3 (УТ 10.3, БП 2, ЗУП 2.5, КА 1.1, УТ 11, БП 3, УНФ 1.6/3.0, КА 2, ЗУП 3 и т.д.)

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

Данные обработки помогут Вам легко и, главное быстро, выполнить удаление любых данных в Ваших базах 1С на платформах 8.1-8.3. Обработки помогут легко просмотреть связи ссылок в виде дерева, выбрать что удалять, а что нет, используя любые отборы. Это позволит уменьшить объем лишней и не нужной информации в справочниках и документах, планах видов характеристик и др. объектах и облегчит работу с данными пользователям и Вам. Понятное расположение команд и настроек, в сочетании с описанием и справкой, еще упростят процесс. Если что-то будет неясно по работе с обработками – я готов Вам помочь. А так же обновления Вы получаете бесплатно в течение года с момента приобретения данных обработок! Данные обработки входят в ТОП-100 продаж за все время, что является залогом популярности, надежности в работе, и признанием других покупателей. (Обновление от 04.10.2023, версия 4.2)

8400 руб.

22.02.2013    134387    239    144    

411

Удаление организаций из информационных баз 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    26987    67    35    

72

Универсальное выборочное удаление данных из базы 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    23568    39    16    

50

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

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

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

2400 руб.

09.04.2019    28155    38    14    

40

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

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

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

1800 руб.

23.08.2021    9011    14    3    

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