Автомумерация сбилась везде

[ru78bin]

Доброго времени суток.
Сегодня случилась беда, автонумерация сбилась во всех документах (приход, реализация и так далее), т.е. в новых документах приходится вручную ставить номер документа. С самого утра читаю информацию, но никак не могу разобраться, как все исправить?
Подскажите, есть ли какой обработчик, который восстанавливает и включает автонумерацию? Очень прошу помощи.

[alexandr_ll]

Доброго времени суток.
Сегодня случилась беда, автонумерация сбилась во всех документах (приход, реализация и так далее), т.е. в новых документах приходится вручную ставить номер документа. С самого утра читаю информацию, но никак не могу разобраться, как все исправить?
Подскажите, есть ли какой обработчик, который восстанавливает и включает автонумерацию? Очень прошу помощи.

Можно использовать это:
https://infostart.ru/public/78569/
https://cloud.mail.ru/public/8AAX/DiVoKEqcn

[ru78bin]

а куда вставлять этот код? Инструкцию не нашел =(

[alexandr_ll]

а куда вставлять этот код? Инструкцию не нашел =(

Во втором файле все написано:
   // в предопределенной процедуре документа "ВводНового"
   //Добавляем строку следующего вида:
   // определение номера документа

Код Выделить Развернуть

НомерДок=ДатьНовыйНомер(Контекст);
   // а в глобальном модуле добавляем функцию
    // функция присвоения номера документу со сбитой нумерацией
// находит последний номер введенного документа и присваевает
// вновь вводимому документу номер на 1 больше

Код Выделить Развернуть

Функция ДатьНовыйНомер(Конт) Экспорт
Если (Метаданные.Документ(Конт.Вид()).ТипНомера="Текстовый") Тогда
ДлинаНомера = Метаданные.Документ(Конт.Вид()).ДлинаНомера ;
ПериодСменыНомера = Метаданные.Документ(Конт.Вид()).ПериодичностьНомера;
Если ПериодСменыНомера = "Год" Тогда
    НачалоНомера = НачГода(Конт.ДатаДок);
    КонецНомера = КонГода(Конт.ДатаДок);
ИначеЕсли ПериодСменыНомера = "Квартал" Тогда
    НачалоНомера = НачКвартала(Конт.ДатаДок);
    КонецНомера = КонКвартала(Конт.ДатаДок);
    ИначеЕсли ПериодСменыНомера = "Месяц" Тогда
    НачалоНомера = НачМесяца(Конт.ДатаДок);
    КонецНомера = КонМесяца(Конт.ДатаДок);
    ИначеЕсли ПериодСменыНомера = "День" Тогда
    НачалоНомера = Конт.ДатаДок;
    КонецНомера = Конт.ДатаДок;
    Иначе
    НачалоНомера = Дата(0);
    КонецНомера = Дата(0);
КонецЕсли;                 
ПредНомер=0;
Док=СоздатьОбъект("Документ."+Конт.Вид());
    Док.ОбратныйПорядок(1);
Док.ВыбратьДокументы(НачалоНомера,КонецНомера);                       
Пока Док.ПолучитьДокумент()=1 Цикл
     ПредНомер=Число(Док.НомерДок);
Прервать;
КонецЦикла;   
    НовыйНомер=ПредНомер+1;
НомерДок=Формат(НовыйНомер,"Ч(0)"+ДлинаНомера+".0");
Иначе
НомерДок=Конт.НомерДок;
КонецЕсли;

Возврат НомерДок;

КонецФункции


[ru78bin]

ммм... что-то такого пункта меню найти не могу.
Открыл я 1С 7.7, пролистал все верхнее меню, и нигде не нашел пункта меню "предопределенная процедура". Даже поискал в "Обработка". У меня такого нигде нет =( Может надо как-то включить?

[alexandr_ll]

ммм... что-то такого пункта меню найти не могу.
Открыл я 1С 7.7, пролистал все верхнее меню, и нигде не нашел пункта меню "предопределенная процедура". Даже поискал в "Обработка". У меня такого нигде нет =( Может надо как-то включить?

Предопределенная процедура ВводНового() находится в модуле формы соответствующего документа