Удаление дублей штрихкодов

07.07.20

Еще одна обработка по удалению дублей штрихкодов.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Удаление дублей штрихкодов: .epf 14,75Kb 6	6	Скачать (1 SM)	Купить за 1 850 руб.

Есть возможность указания группы номенклатуры, части штрихкода.

Обработка тестировалась на конфигурации "Управление производственным предприятием, редакция 1.3 (1.3.49.1)", ""Управление торговлей", редакция 10.3 (10.3.45.2) "

Весь код обработки приведен здесь:


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

Процедура КоманднаяПанельТоварыЗаполнитьТоварыПоОтбору(Кнопка)
	
	Если Штрихкоды.Количество() > 0 Тогда
		Режим = РежимДиалогаВопрос.ДаНет;
		Ответ = Вопрос("Таблица ""Штрихкоды"" будет очищена. Продолжить?" , Режим, 0);
		Если Ответ = КодВозвратаДиалога.Нет Тогда
			Возврат;
		КонецЕсли; 		
	КонецЕсли;
	
	ОбновитьТаблицуШтрихкоды();
	
КонецПроцедуры

Функция ОбновитьТаблицуШтрихкоды()
	
	Штрихкоды.Очистить();
	
	Построитель.Выполнить();
	
	Выборка = Построитель.Результат.Выбрать();
	
	Пока Выборка.Следующий() Цикл
		НоваяСтрока = Штрихкоды.Добавить();
		ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка);
	КонецЦикла;
	
КонецФункции


Процедура ПриОткрытии()
	
	ИнициализацияПостроителя(); 
	
КонецПроцедуры

Процедура ИнициализацияПостроителя() Экспорт 
	
 	Построитель.Текст=
	"ВЫБРАТЬ
	|	ВложенныйЗапрос.Штрихкод КАК Штрихкод,
	|	Штрихкоды.Владелец КАК Владелец,
	|	Штрихкоды.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
	|	Штрихкоды.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
	|	Штрихкоды.СерияНоменклатуры КАК СерияНоменклатуры,
	|	Штрихкоды.ТипШтрихкода КАК ТипШтрихкода,
	|	Штрихкоды.Качество КАК Качество
	|{ВЫБРАТЬ
	|	Владелец,
	|	Штрихкод}
	|ИЗ
	|	(ВЫБРАТЬ
	|		Штрихкоды.Штрихкод КАК Штрихкод,
	|		СУММА(1) КАК КоличествоШтрихкодов
	|	ИЗ
	|		РегистрСведений.Штрихкоды КАК Штрихкоды
	|	
	|	СГРУППИРОВАТЬ ПО
	|		Штрихкоды.Штрихкод
	|	
	|	ИМЕЮЩИЕ
	|		СУММА(1) > 1) КАК ВложенныйЗапрос
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
	|		ПО ВложенныйЗапрос.Штрихкод = Штрихкоды.Штрихкод
	|{ГДЕ
	|	Штрихкоды.Владелец.* КАК Номенклатура,
	|	ВложенныйЗапрос.Штрихкод}
	|
	|УПОРЯДОЧИТЬ ПО
	|	Штрихкод";
	
	Если Построитель.Отбор.Найти("Номенклатура")=Неопределено Тогда
		Построитель.Отбор.Добавить("Номенклатура");
		Построитель.Отбор.Номенклатура.Значение = Справочники.Номенклатура.ПустаяСсылка();
		Построитель.Отбор.Номенклатура.Использование = Ложь;
		Построитель.Отбор.Номенклатура.ВидСравнения  = ВидСравнения.ВИерархии;
	КонецЕсли;
	
	Если Построитель.Отбор.Найти("Штрихкод")=Неопределено Тогда
		Построитель.Отбор.Добавить("Штрихкод");
		Построитель.Отбор.Штрихкод.Значение = "46";
		Построитель.Отбор.Штрихкод.Использование = Истина;
		Построитель.Отбор.Штрихкод.ВидСравнения  = ВидСравнения.Содержит;
	КонецЕсли;    
  
КонецПроцедуры

Процедура КоманднаяПанельШтрихкодыВыбратьВсе(Кнопка)
	
	Для Каждого СтрокаТаблицы из Штрихкоды Цикл
		 СтрокаТаблицы.Выбрать = Истина;
	КонецЦикла;
	
КонецПроцедуры

Процедура КоманднаяПанельШтрихкодыСнятьВсе(Кнопка)
	
	Для Каждого СтрокаТаблицы из Штрихкоды Цикл
		 СтрокаТаблицы.Выбрать = Ложь;
	КонецЦикла;
	
КонецПроцедуры

+12 –1

См. также

SALE! 15%

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

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

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

~~8400~~ 7140 руб.

20.08.2024 7763 55 22

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

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

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

3582 руб.

16.03.2015 171418 209 81

244

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

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

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

9600 руб.

22.02.2013 138398 258 144

429

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

Алгоритм перехода на учет без серий для УТ11.4 или КА 2.4 (отказ от серий, удаление серий, отмена серий, без серий)

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

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

2400 руб.

09.04.2019 29050 43 14

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

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

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

2400 руб.

23.08.2021 9930 19 3

Очистка регистров сведений от записей по помеченным на удаление элементам

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

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

1 стартмани

21.01.2022 7693 1 dmbal 6