Сначала вопрос старожилам форумов или модераторам: если возможность перекачать все вопросы или темы форумов на свой компьютер? (чтобы не задавать вопросы, которые уже обсуждались).<br><br>Теперь собственно задача: при работе в сети, некоторые пользователи оставляют программу в рабочем режиме. Для внесения изменений в конфигурацию приходится бегать по отделам и выходить из программы там, где пользователь оставил открытой 1С. Наконец, открытая программа при сбое электропитания, может привести к потере данных. Можно ли написать такую отслеживающую процедуру, которая по истечении определенного времени бездействия бухгалтера, сначала задает вопрос... ну, типа: "Вы работаете или нет? Через две минуты программа закроется". И через эти две минуты 1С автоматически завершает работу, корректно закрывая даже открытые документы или справочники.<br><br>Заранее спасибо. Если возможно, укажите примерное решение проблемы, пожалуйста.<br><br>
Сообщений: 8
Сообщений: 19
;
Сообщений: 8
Ага. Я примерно так и предпологал. Но я, как бы это сказать, "первокласник" в 1С. Поэтому у меня что-то не получатся написать такую процедуру. Может у кого уже написана подобная программулька, буду очень благодарен, если мне приведут её пример (там, может быть, всего-то несколько строк).
Сообщений: 140
"У меня сделано так:<br>Процедура ПpовеpкаБлокиpовки() Экспорт// пpовеpка блокиpовки доступа<br> Если ИмяПользователя()<>"Андрей" тогда // Админ может работать в любой момент<br> Если (ФС.СуществуетФайл(КаталогБазыДанных()+"Lock\NoDelete!!!")=1) тогда<br> если (ТаймерАварийногоВыхода = ИнтервалАварийногоВыхода) и<br> (ТаймерАварийногоВыхода <> 0) тогда // мин<br> ЗавершитьРаботуСистемы( 0 );<br> возврат;<br> конецесли;<br> если ТаймерАварийногоВыхода <> 0 тогда<br> ТаймерАварийногоВыхода = ТаймерАварийногоВыхода + 30;<br> сообщить("Внимание!!! Программа завершит работу через " +<br> строка(ИнтервалАварийногоВыхода - ТаймерАварийногоВыхода) + " секунд. ");<br> если ТаймерАварийногоВыхода = ИнтервалАварийногоВыхода тогда<br> ЗавершитьРаботуСистемы( 0 );<br> конецесли;<br> возврат;<br> конецесли; <br> <br> файл = ФС.НайтиПервыйФайл( КаталогБазыДанных()+"Lock\*.tmr");<br> поз = найти( файл, ".");<br> файл = лев( файл , поз - 1); // получили минуты<br> ТаймерАварийногоВыхода = 30;<br> ИнтервалАварийногоВыхода = число(файл) * 4 * 15;<br> СтатусВозврата(0);<br> Вопрос("Дорогая """""+ИмяПользователя()+"""""! "<br> """"<br> "Выйди пожалуйста из программы 1С.Зарплата и Кадры"+<br> "ненадолго! Пусть твои глазоньки отдохнут немножко!"+<br> "Через "+файл+" мин. программа закроется сама", 0,10);<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры<br><br>Далее в Процедуре ПриНачалеРаботыСистемы() вставил <br>ИнтервалАварийногоВыхода = 0;<br>ТаймерАварийногоВыхода = 0;<br>ОбработкаОжидания("ПpовеpкаБлокиpовки",15);<br><br>Теперь если удалить или переименовать файл NoDelete!!! будет насильственный выброс всех.<br>Да в каталоге Lock уще присутствует файл 1.tmr<br><br>"
Сообщений: 8
Андрей! Большое спасибо!<br>Сейчас внесем в нашу конфигурацию и попробуем. Чуть позже напишу отзыв.<br>Жалко, что только решена очень важная проблема "выброса" пользователей.<br>Однако, важно отключать пользователя, если он не работает в программе долгое время. Буквально вчера был в одной организации, где эксплуатируется 1С. Тамошний пользователь оставил программу открытой (сетки нет) и произошел скачок напряжений. При этом запортилась немного FAT таблица. И, хотя программный модуль не пострадал, но многие базы нарушились. Пришлось мне в ручную их восстанавливать, что удалось мне лишь отчасти. Понятно, что такая авария могла произойти и во время работы пользователя, но в том-то и дело, что бухгалтер ушел тогда на обед, а после уже "...базы запорчены".<br><br>
Вот и пообедали называется...<br>У меня в конфе, при выходе из программы, запрашивает архивирование базы для резервной копии. Из конфигуратора никто не хочет архивировать.<br>Говорят сильно замудрёно.<br>А на счет "глазоняк" мне понравилось. Надо будет себе в конфу сделать что-то подобное 
Только если открыт какой-то документ для редактирования, при закрытии, прога ведь скажет: "Сохранить изменения?" и будет ждать. Тайм-аута там нет. Или всетаки это можно както обойти?
Сообщений: 8
> Только если открыт какой-то документ для редактирования, при закрытии, прога ведь скажет: "Сохранить изменения?" и будет ждать. Тайм-аута там нет. Или всетаки это можно както обойти?<br><br>Вот именно. Как раз с такой проблемой я и столкнулся. Как должна вести себя программа при закрытии в рабочем режиме даже не одного окна или документа, а нескольких? Ладно, пусть ни один документ не запишется (сам виноват пользователь, что заснул), но как создать принудительный выход из программы по таймеру последней реакции пользователя?<br><br>
Сообщений: 71
"У меня в конфе, при выходе из программы, запрашивает архивирование базы для резервной копии".<br>Мне кажется, что архивирование по расписанию проще и надежнее. Тем более, что существуют хорошо работащие проги и утилиты для этой цели (в т.ч. бесплатные).
Сообщений: 8
> Мне кажется, что архивирование по расписанию проще и надежнее.<br>Архивацию мы делаем отдельно.Но это не решение проблемы, потому что база уже сейчас за три месяца работы достигла размера 350 мегабайт. Общее количество бухгалтеров у нас 11 плюс пользователи других отделов около восьми. Итого примерно 20 человек. Мы, конечно, ведем воспитательную работу по работе с программой, но, понятно, что люди есть люди и кто-нибудь обязательно оставляет 1С в рабочем состоянии.<br><br>То, что посоветовал Андрей, мы сделали - работает без проблем. Ещё раз большое спасибо.<br>