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

Вариант решение проблемы нумерации,закиним сюда

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

      тевгуид = Результат.Ссылка.УникальныйИдентификатор(); 

      спНомеров.Добавить(Результат.Ссылка, Сред(тевгуид,10,9)+Сред(тевгуид,0,8));
 КонецЦикла; 
 спНомеров.СортироватьПоПредставлению(НаправлениеСортировки.Убыв);
 послНомер = спНомеров[0].Значение.Номер;
 ДлиНом=СтрДлина(СокрЛП(послНомер));
    Номер = Формат(Число(послНомер)+1,"ЧЦ="+ДлиНом+"; ЧВН=; ЧГ=0"); 
 КонецЕсли; 
КонецПроцедуры // ПередЗаписью