Универсальная процедура для изменения набора записей регистра сведений НЕ только по измерениям, но и с отбором по реквизитам

06.04.22

Разработка - Универсальные функции

Попытка создать универсальную процедуру, которая в независимости от имени регистра сведений меняет набора записей с отбором не только по измерениям. Но и с последующей фильтрацией по реквизитам.

Иногда нужно перезаписать набор записей регистра сведений, неважно какого регистра, также еще и по реквизитам.  Предлагаю вашему вниманию мою скромную попытку реализовать функцию, которая на вход получает Имя регистра, структуру измерений для отбора, структуру реквизитов для дальнейшей фильтрации набора записей, какие реквизиты НЗ менять, на что менять. 

Иногда меня тянет к написанию универсальных методов. Зачем писать 5 функций под разные регистры, если по сути все 5 будут делать примерно одну и ту же операцию. Только имя регистров будет меняться, набор фильтров и набор изменяемых значений в наборах записей. 

И вот любопытный джун снова в действии)

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

КонецФункции

 

Регистры сведений наборы данных универсальные методы алгоритмы фильтрация

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2670    0    John_d    8    

54

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4608    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3961    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8822    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

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

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16144    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

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

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7243    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ixijixi 1775 06.04.22 12:20 Сейчас в теме
Я бы еще вместо КудаУстановить, ЧтоУстановить передавал СтруктураЗначений. Тогда можно было бы в пункте 3
Для Каждого Строка Из ТЗИтоговая Цикл
	Для Каждого КлЗн Из СтруктураЗначений Цикл
		Строка[КлЗн.Ключ] = КлЗн.Значение; 
	КонецЦикла;
КонецЦикла;
serverstar; SP2000; +2 Ответить
2. serverstar 62 06.04.22 15:15 Сейчас в теме
3. dhurricane 06.04.22 17:19 Сейчас в теме
1. Очевидно, что проверять количество записей в наборе следовало бы до поиска и замены значений, а не перед записью. Дабы не было лишних действий.

2. Фильтрация по значениям реквизитов и замена значений делается много проще:
СтрокиДляИзменения = ТЗ.НайтиСтроки(СтруктураРеквизитов);
Для каждого Строка Из СтрокиДляИзменений Цикл
   Строка[КудаУстановить] = ЧтоУстановить;
КонецЦикла;

3. Если уж замахнулись на универсальность, то объедините параметры отборов в один, пусть метод сам разделяет поля на измерения и прочее.
4. Rain_man 21.04.22 12:04 Сейчас в теме
Самый интересный вопрос: как быстро и эффективно (небыстро и неэффективно - и так все умеют) изменить ресурсы в наборе записей, который нельзя получить отбором по измерениям?
Предположим, у меня 10 млн. записей в регистре. Отбором по одному измерению отбирается 1млн., а перезаписать надо 100тыс. Эти 100тыс. есть только как список значений второго измерения. В приведённом выше коде, вроде как, перезапишется 1млн., и цикл - соответствующий.
Оставьте свое сообщение