Процедура ПриУстановкеНовогоНомераДокументаПриУстановкеНовогоНомера(Источник, СтандартнаяОбработка, Префикс) Экспорт
// ОбщегоНазначения.ДобавитьПрефиксОрганизации(Источник, Префикс); //15,08,11 Пушкарев
Если (Источник.Метаданные().Имя = "РеализацияТоваровУслуг") Или
(Источник.Метаданные().Имя = "ЗаказПокупателя") или
(Источник.Метаданные().Имя = "СчетФактураВыданный") Тогда //15,08,11 Пушкарев;
СтандартнаяОбработка = Ложь;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 30
| Документ.Номер КАК Номер
|ИЗ
| Документ.РеализацияТоваровУслуг КАК Документ
|
|УПОРЯДОЧИТЬ ПО
| Документ.Дата УБЫВ";
ТЗ = Запрос.Выполнить().Выгрузить();
Спс = Новый СписокЗначений;
Для ааа = 0 по ТЗ.Количество()-1 Цикл
Попытка
Если ЕстьНеЦифры(СокрЛП(Тз[ааа].Номер)) Тогда
Тз.Удалить(ааа);
ааа = ааа -1;
Иначе
Спс.Добавить(Число(СокрЛП(Тз[ааа].Номер)));
КонецЕсли;
Исключение
Прервать;
КонецПопытки;
КонецЦикла;
Спс.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
Номер = Спс[0].Значение +1;
Источник.Номер = одДополнитьСтроку(СтрЗаменить(СокрЛП(Номер),Символ(160),""),6);// пока поставили 6 символов
КонецЕсли;
ОбщегоНазначения.ДобавитьПрефиксУзла(Префикс);
КонецПроцедуры