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

Спр         = СоздатьОбъект("Справочник.Номенклатура");

ФП        = СоздатьОбъект("Текст");

ТабКод      = СоздатьОбъект("ТаблицаЗначений");

ТабКод.НоваяКолонка("КодНом","Число");

Файл                  = ФС.НайтиПервыйФайл(КаталогИБ()+"*.nomer");

Пока   ПустаяСтрока(Файл) = 0 цикл

ТабКод.НоваяСтрока();

ТабКод.КодНом     = Число(СокрЛП(Лев(Файл,СтрДлина(СокрЛП(Файл))-6)));  

Файл              = ФС.НайтиСледующийФайл();

КонецЦикла;

Если ТабКод.КоличествоСтрок() > 0  Тогда  

ТабКод.ВыбратьСтроки();

Пока ТабКод.ПолучитьСтроку() = 1 Цикл

КН = Число(ТабКод.КодНом);

КонецЦикла;  

Иначе

КН = 0;

КонецЕсли;

Для К = КН + 1 ПО 99999 Цикл

Если (Спр.НайтиПоКоду(К) = 0)Тогда

Код=К;

Прервать;

КонецЕсли;

КонецЦикла;

ФП.Записать(КаталогИБ()+Код+".nomer");

//=========================================================================================================================

Процедура ПриЗаписи()  и Процедура ПриЗакрытии()

      // вставляем в конец процедур:

ФС.УдалитьФайл(КаталогИБ()+Код+".nomer");

или

Процедура ПрисвоитьНовыйКод(пКод)
    Спр=СоздатьОбъект("Справочник."+Вид());
    Для А=пКод По пКод+1000 Цикл
        Если (Спр.НайтиПоКоду(А)=1) И (Спр.ТекущийЭлемент()ТекущийЭлемент())  Тогда  
            // если такой есть и это ДРУГОЙ элемент
            Сообщить("Код " +А+" был занят","!");
            Продолжить;            
        Иначе
            Код=А;
            Записать();    
            Сообщить("Записан с кодом "+А,"i");  
            Прервать;  
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Процедура ПриЗаписи()
    ПрисвоитьНовыйКод(Число(Код));
КонецПроцедуры

для 8.0 УТ 10.3

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(20) да

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

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

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

Запрос = Новый Запрос("ВЫБРАТЬ
    Номенклатура.Код КАК Код
ИЗ
    Справочник.Номенклатура КАК Номенклатура");
ТЗ = Запрос.Выполнить().Выгрузить();
Для каждого СтрокаТЗ ИЗ ТЗ Цикл
СтрокаТЗ.Код = Число(СтрокаТЗ.Код);
КонецЦикла;
ТЗ.Сортировать("Код");
Для а = 1 По ТЗ.Количество() Цикл
Если а <> ТЗ.НомерСтроки Тогда
НужныйКод = а;
Прервать;
КонецЦикла;

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

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

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

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

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

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

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

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

Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
(26)
Если ЭтоНовый() Тогда
  Код = НужныйКод;
КонецЕсли;
КонецПроцедуры
может даже лучше так

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

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

(26)Вот этого, если честно, не понял:

Если а <> ТЗ.НомерСтроки Тогда

+(26) Даже, вернее, вот этого:

Для а = 1 По ТЗ.Количество() Цикл
Если а <> ТЗ.НомерСтроки Тогда
НужныйКод = а;
Прервать;
КонецЦикла;

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

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

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

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

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

Для каждого СтрокаТЗ ИЗ ТЗ Цикл
Если а <> СтрокаТЗ.Код Тогда
  НужныйКод = а;
  Прервать;
КонецЕсли;
КонецЦикла;
Код = НужныйКод;
а может так )))

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

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

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

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

(48) да

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

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Код КАК Код
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |
        |УПОРЯДОЧИТЬ ПО
        |    Код";

    Выборка = Запрос.Выполнить().Выбрать();
    ТекНомер = 0;  СтрНомер = "00000";
    Пока Выборка.Следующий() Цикл
        Пока СтрНомер<>Выборка.Код И ТекНомер<Выборка.Количество() Цикл
            <записываем СтрНомер в регистр>
            ТекНомер = ТекНомер+1;
            СтрНомер = Формат(ТекНомер, "ЧГ=0");
            Пока СтрДлина(СтрНомер)<5 Цикл
                СтрНомер = "0"+СтрНомер;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;

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

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

(54) префиксов нет

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

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

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Код КАК Код
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |
        |УПОРЯДОЧИТЬ ПО
        |    Код";

    Выборка = Запрос.Выполнить().Выбрать();
    ТекНомер = 0;  СтрНомер = "00000";
    Пока Выборка.Следующий() Цикл
        Пока СтрНомер<>Выборка.Код И ТекНомер<Выборка.Количество() Цикл
            
            ТекНомер = ТекНомер+1;
            СтрНомер = Формат(ТекНомер, "ЧГ=0");
            Пока СтрДлина(СтрНомер)<5 Цикл
                СтрНомер = "0"+СтрНомер;
            КонецЦикла;
        КонецЦикла;
        ТекНомер = ТекНомер+1;
        СтрНомер = Формат(ТекНомер, "ЧГ=0");
        Пока СтрДлина(СтрНомер)<5 Цикл
            СтрНомер = "0"+СтрНомер;
        КонецЦикла;           
    КонецЦикла;

(58) Пробую :-)

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

Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Код КАК Код
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |
        |УПОРЯДОЧИТЬ ПО
        |    Код";

    Выборка = Запрос.Выполнить().Выбрать();
    ТекНомер = 0;  СтрНомер = "00000";
    Пока Выборка.Следующий() Цикл
        Пока СтрНомер<>Выборка.Код И ТекНомер<Выборка.Количество() Цикл
            <заносим СтрНомер в регистр>
            ТекНомер = ТекНомер+1;
            СтрНомер = Формат(ТекНомер, "ЧГ=0");
            Пока СтрДлина(СтрНомер)<5 Цикл
                СтрНомер = "0"+СтрНомер;
            КонецЦикла;
        КонецЦикла;
        ТекНомер = ТекНомер+1;
        СтрНомер = Формат(ТекНомер, "ЧГ=0");
        Пока СтрДлина(СтрНомер)<5 Цикл
            СтрНомер = "0"+СтрНомер;
        КонецЦикла;           
    КонецЦикла;

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

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

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

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

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

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

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

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

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

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

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

Код для 7.7:

Процедура ПоКнопкеНайтиСвободныеКоды()
    
    ТаблицаСвободныхКодов.УдалитьСтроки();
    
    ТекКод = 1;
    
    Спр = СоздатьОбъект("Справочник.Номенклатура");
    Спр.ПорядокКодов();
    
    Спр.ВыбратьЭлементы(0);
    
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        
        СправКод = Число(Спр.Код);
        
        Пока ТекКод <> СправКод Цикл
            ТаблицаСвободныхКодов.НоваяСтрока();
            ТаблицаСвободныхКодов.ФрееКод = ТекКод;
            ТаблицаСвободныхКодов.ПредКод = СправКод;
            ТекКод = ТекКод + 1;
        КонецЦикла;
        
        ТекКод = ТекКод + 1;
    
    КонецЦикла;
    
КонецПроцедуры    // ПоКнопкеСформироватьПомеченныеНаУдаление

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

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

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

Если ЭтоНовый() Тогда
        
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    Номенклатура.Код КАК Код
        |ИЗ
        |    Справочник.Номенклатура КАК Номенклатура
        |
        |УПОРЯДОЧИТЬ ПО
        |    Код";

    Выборка = Запрос.Выполнить().Выбрать();
    ТекНомер = 0;  СтрНомер = "00000";
    Пока Выборка.Следующий() Цикл
        Пока СтрНомер<>Выборка.Код И ТекНомер<Выборка.Количество() Цикл
            //<заносим СтрНомер в регистр>
            //Код = СтрНомер;
            //Сообщить(Код) ;
            //Прервать;
            ТекНомер = ТекНомер+1;
              СтрНомер = Формат(ТекНомер, "ЧГ=0");
              
              Промежут = Формат(ТекНомер-1, "ЧГ=0");
            
            Пока СтрДлина(СтрНомер)<5 Цикл
                СтрНомер = "0"+СтрНомер;
            КонецЦикла;
            
             Пока СтрДлина(Промежут)<5 Цикл
                Промежут = "0"+Промежут;
            КонецЦикла;

              Сообщить(Промежут);
              
        КонецЦикла;
        ТекНомер = ТекНомер+1;
        СтрНомер = Формат(ТекНомер, "ЧГ=0");
        Пока СтрДлина(СтрНомер)<5 Цикл
            СтрНомер = "0"+СтрНомер;
        КонецЦикла;          
    КонецЦикла;
  
  //Код = СтрНомер;
КонецЕсли;

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

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

Вместо:
             Пока СтрДлина(Промежут)<5 Цикл
                Промежут = "0"+Промежут;
            КонецЦикла;

Проще

Промежут=Прав("00000"+Промежут,5);

(79) Ага))

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

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

Выбрать Первые свНомер из ВсяТЗ
Левое соединение Справочник.Номенклатура как Номенклатура ПО ВсяТЗ.Код=Номенклатура.Код
Где Номенклатура.Код ЕСТЬ NULL
Упорядочить ПО свНомер

И все это еще бы один раз на сервер загнать, чтобы для каждого таблички не перекладывать.

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

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

(78) О чудо!

(78) Клево :))))))))

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

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

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

(88) Спасибо :-)

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

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

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

(88) Да не вопрос, создаем служебный Регистр сведений "Нумерация" с одним лишь полем "Код", которое заполняем всеми нужными числами. Потом останется только вызвать запрос:

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