1cv77 как распровести документ кнопкой

Хитрая задачка. Как распровести ОТКРЫТЫЙ документ?

my1c/knowhow/skpblock.html<br>(9) Кажись ему надо, шобы форма осталась открытой.

У меня вот так.
Перем ТЗОтката;
Процедура СменитьДату(ДатаДокНовая,ТабличнаяЧасть,ТаблицаОтката)
Параметры = СоздатьОбъект(«СписокЗначений»);
Параметры.Установить(«КонтекстДокумента», Контекст);
Параметры.Установить(«НоваяДата»,ДатаДокНовая);
Параметры.Установить(«ТабличнаяЧасть»,ТабличнаяЧасть);
Параметры.Установить(«ТаблицаОтката»,ТаблицаОтката);

ОткрытьФорму(«Обработка.ИзменениеДаты», Параметры);
КонецПроцедуры
на кнопке «Обновить»
ЗаполнитьНаОсновании(ДокументОснование);
ТабЗн=СоздатьОбъект(«ТаблицаЗначений»);
ВыгрузитьТабличнуюЧасть(ТабЗн);
СменитьДату(ДатаДок,ТабЗн,ТЗОтката);
в обработке
Перем ТекДок, НоваяДата,ТабличнаяЧасть, ТаблицаОтката;
Процедура ПриЗакрытии()
Док = СоздатьОбъект(«Документ»);
Если Док.НайтиДокумент(ТекДок) = 1 Тогда
Если Док.Проведен() = 1 Тогда
Док.СделатьНепроведенным();
КонецЕсли;
Док.ДатаДок = НоваяДата;
Док.ЗагрузитьТабличнуюЧасть(ТабличнаяЧасть);
Док.Записать();
Док.Провести(«Программа»);
ОткрытьФорму(ТекДок,ТаблицаОтката);
КонецЕсли;
КонецПроцедуры
Процедура ПриОткрытии()
Если ТипЗначенияСтр(Форма.Параметр) = «СписокЗначений» Тогда
КонтекстДокумента = Форма.Параметр.Получить(«КонтекстДокумента»);
НоваяДата = Форма.Параметр.Получить(«НоваяДата»);
ТекДок = КонтекстДокумента.ТекущийДокумент();
ТабличнаяЧасть=Форма.Параметр.Получить(«ТабличнаяЧасть»);
ТаблицаОтката=Форма.Параметр.Получить(«ТаблицаОтката»);
КонтекстДокумента.Форма.Закрыть(0);
Иначе
СтатусВозврата(0);
КонецЕсли;
КонецПроцедуры
Изменяет ТЧ и возможен откат
(если где наврал исправишь, подглядел и добавил)