Пример автоматической процедуры восстановления последовательности

// получим границу последовательности

ПозицияНач = СформироватьПозициюДокумента (Последовательность.ОсновнаяПоследовательность.ПолучитьПозицию(), 1);

Док = СоздатьОбъект("Документ");

// отберем док-ты посл-ти "ОсновнаяПоследовательность"

Док.ВыбратьПоПоследовательности(ПозицияНач, ПолучитьПозициюТА(), "ОсновнаяПоследовательность");

Пока Док.ПолучитьДокумент() = 1 Цикл

Док.Провести(); // перепроводим документы

Сообщить("Восстановление последовательности "+Док);

КонецЦикла;