Каталог решений - Автосохранение документа в 1С 7.7

Доброго всем времени суток. Иногда (может и частенько) возникает потребность в автосохранении документа. Бывают ситуации, когда набили кучу инфы в документ и бац… вырубили электричество, а у вас нет ИБП (источник бесперебойного питания). И вот начинается ВЕЛИКИЙ и МОГУЧИЙ РУССКИЙ ЯЗЫК! Возможны конечно другие, прочие потребности в автосохранении, но это уже у каждого свое. Итак,… приступим.

Мне была поставлена задача написать автосохранение документа на 1С 7.7 (Сельхозка). Имеется документ: Продажа товаров в розницу, его мы и будем автосохранять. (принцип одинаков, практически для всех конфиг на 7.7, возможны некоторые отличия, но не значительные).

Все выполняется в форме документа. Код изменненного документа:

//Общая переменная

Перем НадоЗаписать;

//Изменения в предопределенную процедуру, для сохранения

Процедура ПриЗакрытии()

Если НадоЗаписать=1 Тогда

Записать();

СтатусВозврата(0);

ОчиститьОкноСообщений();

Сообщить("Документ Автосохранен "+ТекущееВремя());

Возврат;

ИначеЕсли НадоЗаписать=0 Тогда

ОчиститьОкноСообщений();

глОткрытьЖурнал(Контекст, Новый);

КонецЕсли;

КонецПроцедуры // ПриЗакрытии()

 // Для корректного закрытия документа

Процедура ЗакрытьДокумент()

НадоЗаписать=0;

Форма.Закрыть(1);

КонецПроцедуры

//Процедура проверки на модификацию

Процедура АвтоЗапись()

Если (Модифицированность()=1) Тогда

НадоЗаписать=1;

Форма.Закрыть(0);

Иначе НадоЗаписать=0;

КонецЕсли;

КонецПроцедуры

//Вызов процедуры, через определнный интервал времени

Форма.ОбработкаОжидания(«АвтоЗапись»,180); //время в секундах 180 секунд

Повторюсь, в других конфигурациях аналогичные действия, может за исключением нескольких ньюансов, если таковые имеются!