7.7 Автоматическое изменение номеров документов

Диск ИТС. Устанавливаешь дополнительные обработки. Универсальная обработка подбора объектов. Делает несколько полезных операций, в том числе и ту которую ты хочешь.
Без проблем восстановишь нумерацию в любых документах с любого номера с префиксом и без... Да сам разберешься.

А бухгалтер не задумывался что это не с проста? Как он потом к примеру кассовую книгу сделает. Ну и на худой конец бух не сможет найти документ прошлого периода.

Ну если уж сильно приспичило:

Код:

//*******************************************
Процедура Сформировать() 
ДатаНач = Дата("01.01.2003");
ДатаКон = Дата("31.12.2003");
Док = СоздатьОбъект("Документ");
Для К = 1 По 2 Цикл 
Ном = 0;
Док.ВыбратьДокументы();
Пока Док.ПолучитьДокумент() = 1 Цикл
Если (Док.Вид() = "РасходныйОрдер") или (Док.Вид() = "ПриходныйОрдер") Тогда
Ном = Ном + 1;   
Номер = Строка(Ном);
Если К = 2 Тогда
Пока СтрДлина(Номер) < 8 Цикл
Номер = "0" + Номер;
КонецЦикла;                    
КонецЕсли;
Проведен = Док.Проведен();            
Пометка = Док.ПометкаУдаления();
Если Пометка = 1 Тогда
Док.СнятьПометкуУдаления();
КонецЕсли;
Док.НомерДок = Номер;                
Если Проведен = 1  Тогда
Док.Провести();
КонецЕсли;
Если Пометка = 1 Тогда
Док.Удалить(0);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
//*******************************************

Спасибо за "спасибо". Вот только я не понял, что невозможно в вашей глубинке: найти диск ИТС или сделать перенумерацию с помощью обработки?