Процедура получения свободных кодов

09.03.16

Разработка - Запросы

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

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

Наименование Файл Версия Размер
Обработка получения свободных кодов
.epf 8,91Kb
5
.epf 1.0 8,91Kb 5 Скачать

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

P.S. Файл с обработкой также прикладываю, но качать особого смысла нет, т.к. процедура будет полезна только в контексте какой-либо более глобальной задачи, например интеграции справочников и т.п.

ДлинаКода = Метаданные.Справочники.Номенклатура.ДлинаКода;
Префикс = "";
ДлПрефикса = СтрДлина(Префикс);
ДлЧЧ = ДлинаКода-СтрДлина(Префикс);

//получим последний элемент
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
| МАКСИМУМ(Номенклатура.Код) КАК Код
|ИЗ
| Справочник.Номенклатура КАК Номенклатура";

//если используется префикс БД тогда добавим отбор 
Если ДлПрефикса > 0 Тогда
Запрос.Текст = Запрос.Текст + Символы.ПС + 
"ГДЕ
| ПОДСТРОКА(Номенклатура.Код, 1, " + ДлПрефикса + ") = &Префикс";
Запрос.УстановитьПараметр("Префикс", Префикс);
КонецЕсли;

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Выборка.Следующий();
ПоследнийЭлемент = Число(Прав(Выборка.Код,ДлЧЧ));
//формируем все возможные комбинации
врТЗНумерация = Новый ТаблицаЗначений;
врТЗНумерация.Колонки.Добавить("Код", Новый ОписаниеТипов("Строка", Новый КвалификаторыСтроки(ДлинаКода)));

Для Счетчик = 1 По ПоследнийЭлемент Цикл
стрТЗ = врТЗНумерация.Добавить(); 
стрТЗ.Код = Префикс + Формат(Счетчик, "ЧЦ=" + ДлЧЧ + "; ЧВН=; ЧГ=0");
КонецЦикла;

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

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

Свободные коды свободные номера

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    122174    670    389    

714

Для чего используют конструкцию запроса "ГДЕ ЛОЖЬ" в СКД на примере конфигурации 1С:ERP

Запросы СКД Платформа 1С v8.3 Запросы Система компоновки данных 1С:ERP Управление предприятием 2 Бесплатно (free)

В типовых конфигурациях разработчики компании 1С иногда используют в отчетах, построенных на СКД, такую конструкцию, как "ГДЕ ЛОЖЬ". Такая конструкция говорит о том, что данные в запросе не будут получены совсем. Для чего же нужен тогда запрос?

13.02.2024    5746    KawaNoNeko    23    

23

Набор-объект для СКД по тексту или запросу

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

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    2000    2    Yashazz    0    

29

Запрос 1С copilot

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

Пишем на человеческом языке, что нам надо, и получаем текст запроса на языке 1С. Используются большие языковые модели (LLM GPT) от OpenAI или Яндекс на выбор.

5 стартмани

15.01.2024    6286    31    mkalimulin    25    

50

PrintWizard: поддержка представлений ЗУП в конструкторе

Инструментарий разработчика Запросы Платформа 1С v8.3 Бесплатно (free)

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

14.12.2023    1742    vandalsvq    7    

29

Объектная модель запроса "Схема запроса" 2

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

Далеко уже не новый тип данных "Схема запроса". Статья о том, как использовать его "попроще". Примеры создания текста запроса с нуля и изменение имеющегося запроса.

06.12.2023    5388    user1923546    26    

43

Начните уже использовать хранилище запросов

HighLoad оптимизация Запросы

Очень немногие из тех, кто занимается поддержкой MS SQL, работают с хранилищем запросов. А ведь хранилище запросов – это очень удобный, мощный и, главное, бесплатный инструмент, позволяющий быстро найти и локализовать проблему производительности и потребления ресурсов запросами. В статье расскажем о том, как использовать хранилище запросов в MS SQL и какие плюсы и минусы у него есть.

11.10.2023    16186    skovpin_sa    14    

98
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ildarovich 7850 10.03.16 09:32 Сейчас в теме
Тем, кого интересует данная тема, возможно будет также интересен чисто запросный метод решения этой задачи. Он описан в публикации: Поиск пропусков в нумерации документов запросом. Метод нетрудно применить и к кодам справочников и к артикулам. Вместо перечня свободных кодов там выдается диапазон пропущенных номеров.
2. hydro2588_2015 14 10.03.16 16:51 Сейчас в теме
(1) ildarovich, Да. Хороший способ. Единственное мне он показался немного трудным, поэтому и написал эту штуку. По скорости не сравнивал, запрос скорее всего быстрее будет работать.
3. AndreykO 6 11.03.16 06:47 Сейчас в теме
Спасибо. Очень помогло. Всё работает.
4. spec8s 825 14.03.16 00:32 Сейчас в теме
Неплохо было бы заменить строку
СтрДлина(Справочники.Номенклатура.СоздатьЭлемент().Код)

на
Метаданные.Справочники.Номенклатура.ДлинаКода;
5. hydro2588_2015 14 14.03.16 06:09 Сейчас в теме
(4) spec8s, согласен, спасибо за уточнение
Оставьте свое сообщение