Пропуски номеров

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

    Если ЭтоНовый()
        и (НачалоДня(ТекущаяДата()) = НачалоДня(Дата)) Тогда

        Номер = ПолныеПрава.ПолучитьНовыйНомерДокумента ("СчетНаОплату", ПИ.ТекущийПользователь(), 10);

    ИначеЕсли (Дата <> Ссылка.Дата) Тогда

        Режим = РежимДиалогаВопрос.ОКОтмена;
        Ответ = Вопрос("Изменена дата счета, попробовать изменить номер?", Режим, 0);
        Если Не Ответ = КодВозвратаДиалога.ОК Тогда
            Если Не ПараметрыСеанса.ЭтоАдминистраторБазы Тогда
                Отказ = Истина;
            КонецЕсли;
            Возврат;
        КонецЕсли;

        Если (НачалоДня(ТекущаяДата()) = НачалоДня(Дата)) Тогда
            Номер = ПолныеПрава.ПолучитьНовыйНомерДокумента ("СчетНаОплату", ПИ.ТекущийПользователь(), 10);
        Иначе
            Номер = ПолныеПрава.НайтиНомерДокументаВСквознойНумерации ("СчетНаОплату", ПИ.ТекущийПользователь(), Дата);
        КонецЕсли;

        Если не ЗначениеЗаполнено(Номер) Тогда
            Предупреждение("Не удалось установить номер документа");
            Отказ = Истина;
            Возврат;
        КонецЕсли;
    КонецЕсли;

КонецПроцедуры;

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

    мНомер = "00000000000";
    мИнкр = 1;
    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        мНомер = Выборка.Номер;
        мИнкр = Выборка.Инкремент;
    КонецЦикла;

    НовыйНомер = "";
    д = СтрДлина(мНомер);
    Для е = 1 по д Цикл
        мКод = КодСимвола(мНомер, е);
        Если (мКод >= 48) и (мКод <= 57) Тогда
            НовыйНомер = НовыйНомер + Символ(мКод);
        Иначе
            Прервать;
        КонецЕсли;
    КонецЦикла;
    НовыйНомер = Число(НовыйНомер) + мИнкр;
    НовыйНомер = Формат(НовыйНомер, "ЧГ=0");
    НовыйНомер = Прав("00000000000000" + НовыйНомер + СокрЛП(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(Ответственный, "Нумератор")), 12);

    Возврат НовыйНомер;
КонецФункции