Подбор свободного кода справочника "Номенклатура" #713527

Как можно осуществить подбор свободного кода справочника "Номенклатура" без захвата одного и того же кода несколькими операторами, подскажите, пожалуйста? Код для 7.7 есть, может кто адаптировать поможет? Процедура ВводНового(ПризнКопирования)             Процедура ПриЗаписи  и Процедура ПриЗакрытии или

для 8.0 УТ 10.3

это нужно, для того, чтобы занять ранее удаленные кода, а нам еще и для того, чтобы занять 10000 штук пропущенных ранее элементов

Или такое не возможно?

Создать регистр,где хранить данные о используемых номерах и по нему проверять

Можно конечно и по справочнику, но по регистру - быстрее

А как проверять по регистру? и главное как новому элементу присвоить старое значение?

Записать получить объект и затем изменить код?

Вопрос: а зачем тебе использовать пропущенные номера?

5 + регистр сведений нужен? А заполнять его вручную?

чтобы занять 10000 штук пропущенных ранее элементов Пропустили случайно при объединении двух баз

да погоди ты. Про регистр - это я так, шучу.

Может перенумеровать их просто?

+ Это если не считать, что пропустили - ну хрен с ними))

нельзя перенумеровать :-) кода на товаре висят по ним его пробивают

Мы делали такое со счетами-фактурами, чтобы нумерация была корректной. Маска была ГГГГММДДХХХ, т.е. в один день можно было выписать 10 тыс. счетов фактур и номер был уникальный. Выполняется поиск номера по коду только в том случае, если номер не уникальный. Если пока собирались проводить, номер кто-то занял, процедура повторялась. Проблем не было.

зачем вам эти 10000 пропущенных кодов?

Тут наоборот нужно сначала искать меньшие от максимального кода. а если нет то присваивать следующий

Выбрать все коды запросом, удаляем префиксы, преобразуем в число, сортируем по возрастанию, запускаем цикл от 1 по ТЗ.Количество, в цикле если не а = ТЗ.НомерСтроки Тогда это и есть пропущенный номер, может так...

уже 58000 использовали :( не хотелось бы менять разрядность

У вас разрядность номера - 5 цифр?

Да, вариант хороший. Только не знаю: 1.) как это сделать? 2.) как потом получить код, который он хочет присвоить 3.) как указать старый код элементу номенклатуры

да

Выбрать ВСЕ коды, а потом их перебирать, вдруг попадется неиспользуемый? Это сильно. Да и выбирать-то придется каждый раз, когда нужно новый присвоить.

Может и правда регистр? сделать обход заполнить а потом из него брать?

Раз уж пошла такая пьянка, может действительно завести регистр (на время, пока все пропущенные номера не заполнятся). Туда один раз выбрать все пропущенные номера, а потом при создании нового справочника искать номер сначала там, а уж если там нет, то добавлять новый.

Да :) 1.) как это сделать? 2.) как потом получить код, который он хочет присвоить 3.) как указать старый код элементу номенклатуры

О! Дельно. Спасибо большое а как указать старый код элементу номенклатуры?

и как получить код, который 1С хочет присвоить элементу?

в этот код можно использовать для заполнение временного регистра :)

метод объекта УстановитьНовыйКод

спасибо :) А старый просто перезаписываем?

а в объекте элемента в этой процедуре наверное Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) КонецПроцедуры это при создании нового, по поводу производительности должен за 0,2 сек выполнить

Большое спасибо :-) сейчас все опробую!!!!!

КонецПроцедуры может даже лучше так

Да, так лучше!!! :)

Смотри, по порядку: 1) Создаешь РС 2) Заполняешь его неиспользуемыми кодами в промежутке (от 00000 до максимального используемого значения для данного справочника) 3) При создании нового элемента берешь минимальный код из РС и присваиваешь его записываемому элементу. (можно руками: Элемент.Код = НашКодИзРегистра) 4) Если элемент успешно записан, удаляешь из РС использованный номер(чтоб второй раз потом его не использовать) 5) Если РС - пустой(т.е все пробелы в нумерации закончились), то новый код устанавливаешь методом УстановитьНовыйКод

Вот этого, если честно, не понял: Если а <> ТЗ.НомерСтроки Тогда

+ Даже, вернее, вот этого: Для а = 1 По ТЗ.Количество Цикл

Ага, понял. Щас посмотрю сколько по продолжительности код    PRO100 NigGaZ работает

Если код не равен отличается от числа строки то это то что нам нужно в идеале они все по порядку идут и равны

косяк Если а <> ТЗ[Формат(а-1, "ЧН=; ЧГ=0")].Код Тогда мы же сравниваем с кодом )))

ага. а то говорит что поле НомерСтроки не обнаружено :)

{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(2982)}: Поле объекта не обнаружено Если а <> ТЗ[Формат(а-1, "ЧН=; ЧГ=0")].Код Тогда

Для каждого СтрокаТЗ ИЗ ТЗ Цикл а может так )))

неее, возвращает "1" при условии что 00001 есть

А значение СтрокаТЗ.Код    "1    "    Строка тип

даже после преобразования в число?

С форматами нужно, видимо

да

может просто у тех номенклатур, которые после вбили поменять префикс. Тогда само будет браться из пропущенного диапазона..

С префиксом нельзя, их 30000 и они рабочие(ну некоторые из них)

+ Это если префиксов у кодов нет

префиксов нет

если рабочие, то сам бог велел префикс вставить.

Вру, есть ошибка

Пробую :-)

Что-то глючит при отправке

Проверяю.... Пожалуйста подождите... :-)

Ах, черт, и здесь ошибка)) В условии цикла ТекНомер надо не с количеством элементов выборки, а с максимальным кодом из выборки сравнивать

:) А еще +1 не надо прибавлять вроде

Где? во внутреннем цикле или внешнем?

то есть как будет правильно? :)

Во внутреннем

это как мне кажется :)

Нет, все нормально: ТекНомер изначально меньше Выборка.Код(или равен, но тогда сразу переходим к след коду из выборки). Поэтому, пока не сравняем ТекНомер с очередным кодом из выборки , во внутреннем цикле увеличиваем ТекНомер(и сохраняем его в регистре, т.к. в Выборке его нет). Как только сравнялся, "перескакиваем" на следующий код из Выборки и т.д., пока Выборка не закончится

не получается список нужных кодов попадают ненужные 00001 00005 00006 00085 00089 где 1 это существующая папка 5 - элемент, а вот 4 нету 6 папка, 84 нету 88 нету

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

+ Я надеюсь там префиксов нет?

Код для 7.7:

Один в один, только я почему-то коды как строки стал сравнивать, а не как числа))

А как чтобы на 8 работало? :)

я все таки его поменял чуть чуть щас покажу как, тогда список правильно формирует

Вот Промежут дает нужные значения :-)

Ну все правильно)) Ты код посмотри. Сначала заносится в регистр СтрНомер, ПОТОМ он увеличивается на один. В этот момент ты говоришь : Ага! А СтрНомер-1  -  это то, что нужно. Т.е. СтрНомер+1-1 - это то что нужно)) Поставь "Сообщить(СтрНомер)" перед "ТекНомер=ТекНомер+1" и увидишь чудо))

Вместо:

Ага))

:-) Промежут пошел в массы :)

И вообще, я бы в ТЗ загнал все номера, потом укладываешь эту ТЗ во временную таблицу, а потом: Выбрать Первые свНомер из ВсяТЗ Левое соединение Справочник.Номенклатура как Номенклатура ПО ВсяТЗ.Код=Номенклатура.Код Где Номенклатура.Код ЕСТЬ NULL Упорядочить ПО свНомер И все это еще бы один раз на сервер загнать, чтобы для каждого таблички не перекладывать.

...Первые 1... конечно же

и вместо свНомер -> ВсяТЗ.Код

О чудо!

Клево :))))))))

То есть каждый раз просматривать? Без регистра?

Так проще, да, но больно уж большую ТЗ загружать-соединять, это уж проще тогда просто перебором в цикле отсеивать ненужные номера, как в самом начале предлагалось

У меня файловая 10.3 и все на клиенте делает

Спасибо :-)

всем спасибо :)

А вы в сложных запросах разбираетесь?

напишите, что нибудь на shade84 собака bk точка ru, пожалуйста, есть предложение

Да не вопрос, создаем служебный Регистр сведений "Нумерация" с одним лишь полем "Код", которое заполняем всеми нужными числами. Потом останется только вызвать запрос: Выбрать Первые 1 Нумерация.Код из РегистрСведений.Нумерация КАК Нумерация Левое соединение Справочник.Номенклатура как Номенклатура ПО Нумерация.Код=Номенклатура.Код Где Номенклатура.Код ЕСТЬ NULL Упорядочить ПО Нумерация.Код