Нумерация документов

Процедура УстановимСвойНомерПриУстановкеНовогоНомера(Источник, СтандартнаяОбработка, Префикс="БП") Экспорт
    
    //По умолчанию установим префикс "БП"
    НовыйПрефикс = Префикс;
    Если ПустаяСтрока(НовыйПрефикс) Тогда
        НовыйПрефикс = "БП";
    КонецЕсли; 
    
    //Подготовливаем переменные
    Таблица = Источник.Метаданные().Имя;
    Шаблон = НовыйПрефикс+Формат(Источник.Дата,"ДФ=yyyyMMdd");
    
    ДлиннаНомера = Источник.Метаданные().СтандартныеРеквизиты.Номер.Тип.КвалификаторыСтроки.Длина;
    ДлиннаНомера = ДлиннаНомера - СтрДлина(Шаблон);
    
    //Косяк - длина номера не может быть короче шаблона
    //останавливаемся
    Если ДлиннаНомера < 1 Тогда //Пусть отрабатывает типовой механизм...
        Возврат;
    КонецЕсли;
    
    //отменяем стандартную обработку
    СтандартнаяОбработка = Ложь;
    
    //Ищем последний номер
    
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
                   |    Номер КАК Номер
                   |ИЗ
                   |    Документ."+Таблица+"
                   |ГДЕ
                   |    Номер ПОДОБНО &Шаблон
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Номер УБЫВ";
                   
    Запрос.УстановитьПараметр("Шаблон", Шаблон+"%");
    Выборка = Запрос.Выполнить().Выбрать();
    
    //Нашли номер берем его числовую часть и добавляем еденицу
    Если Выборка.Следующий() Тогда
        
        Номер = СтрЗаменить(Выборка.номер, Шаблон,"");
        //обезопасимся что тут точно число
        Номер = ПолучитьЧислоИзНомера(Номер);
        
        //Тут 100% число можно увеличивать
        Если Не ПустаяСтрока(Номер) Тогда
            НомерЧислом = Число(Номер)+1;
        КонецЕсли;
 
        //Если числовую часть убили полностью, то отработай это исключение самостоятельно... Домашнее задание
        //Т.е. Если ПустаяСтрока(Номер) Тогда - возможно номер 1 уже занят и получить последнее число ты не моженшь...
        
        //И снова в строку
        НомерСтрока = Формат(НомерЧислом,"ЧЦ="+ДлиннаНомера+"; ЧВН=; ЧГ=");       
        
    Иначе
        //Такого шаблона не нашли, значит нумерация только началась...
        НомерСтрока = Формат(1,"ЧЦ="+ДлиннаНомера+"; ЧВН=; ЧГ=");
        
    КонецЕсли; 
    
    Источник.Номер = Шаблон+НомерСтрока;
    
КонецПроцедуры
 
Функция ПолучитьЧислоИзНомера(Знач Номер)
    
    НовыйНомер = "";
    числа = "0123456789";
    ДлиннаЧисла = СтрДлина(Номер);
    
    Для сч=0 По ДлиннаЧисла-1 Цикл
        
        Символ = Сред(Номер,ДлиннаЧисла-сч,1);
        
        Если Найти(числа, Символ) > 0 Тогда
            
            НовыйНомер = Символ+НовыйНомер;
            
        КонецЕсли; 
        
    КонецЦикла;
    
    Возврат НовыйНомер;
    
КонецФункции