Очистка кэша 1С из сеанса 1С Предприятие
Очистка кэша 1С из сеанса 1С Предприятие
Обработка для самостоятельной очистки пользователем кэша базы в которой он работает.
- Описание
- Подробнее
Описание
Многие сталкивались с тем, что при динамичесом обновлении новая версия конфигурации может работать с ошибками, причем ошибки могут быть совершенно не связаны с измененным объектом и даже не поддаваться никакому логическому объяснению как например ошибка формата потока. Для их устранения нужно всего-лишь отчистить кэш пользователя у которого она возникает. Было решено не чистить кэш при каждом динамическом обновлении, а чистить только тогда, когда это действительно необходимо, причем пользователь сам решит, когда ему удобно произвести очистку.
Есть много решений данной проблемы, и хочется добавить к ним еще один вариант решения, который успешно работает и для кого-то может быть более удобным.
Основное отличие обработки:
1. Очистка производится с помощью bat файла
2. Очищается только каталог в котором находится кэш текущего сеанса работы
3. При очистке кэша я столкнулся с тем, что простое удаление файлов кэша ничего не дает (windows умудряется их восстанавливать и ошибка возникает вновь), поэтому при очистке генерируется новый уникальный идентификатор базы, а старые файлы кэша удаляются вместе с каталогом в котором они находятся.
Разработка выполнялась для себя, поэтому предполагается, что пользователь работает с 1С8.2 и в клиент-серверном варианте работы программы.
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ
// Помещает в массив строки, которые разделены указанным символом
// Параметры
// Стр — строка, которую необходимо разложить
// Разделитель — строка, символ разделяющий строки
//
// Возвращаемое значение
// Массив строк
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = «,»)
МассивСтрок = Новый Массив();
Если Разделитель = » » Тогда
Стр = СокрЛП(Стр);
Пока 1=1 Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = СокрЛ(Сред(Стр,Поз));
КонецЦикла;
Иначе
ДлинаРазделителя = СтрДлина(Разделитель);
Пока 1=1 Цикл
Поз = Найти(Стр,Разделитель);
Если Поз=0 Тогда
МассивСтрок.Добавить(Стр);
Возврат МассивСтрок;
КонецЕсли;
МассивСтрок.Добавить(Лев(Стр,Поз-1));
Стр = Сред(Стр,Поз+ДлинаРазделителя);
КонецЦикла;
КонецЕсли;
КонецФункции // глРазложить
// Возвращает строку запуска 1С
// Параметры
// Нет
//
// Возвращаемое значение
// Строка для запуска 1С
//
Функция ПолучитьСтрокуЗапуска1С()
ПутьКФайлуЗапуска = «»;
Если КаталогИлиФайлСуществует(«C:\Program Files (x86)\1cv82\common\1cestart.exe») Тогда
ПутьКФайлуЗапуска = «»»C:\Program Files (x86)\1cv82\common\1cestart.exe»;
ИначеЕсли КаталогИлиФайлСуществует(«C:\Program Files\1cv82\common\1cestart.exe») Тогда
ПутьКФайлуЗапуска = «»»C:\Program Files\1cv82\common\1cestart.exe»;
Иначе
Возврат «»;
КонецЕсли;
ИмяИБ = «»;
ИмяСервера = «»;
ПодстрокиСтрокиСоединения = РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(),«;»);
Если ПодстрокиСтрокиСоединения.Количество()> 1 и Лев(ПодстрокиСтрокиСоединения[0], 5) = «Srvr=» и Лев(ПодстрокиСтрокиСоединения[1], 4) = «Ref=» Тогда
ИмяСервера = Сред(ПодстрокиСтрокиСоединения[0],7, СтрДлина(ПодстрокиСтрокиСоединения[0]) — 7);
ИмяИБ = Сред(ПодстрокиСтрокиСоединения[1],6, СтрДлина(ПодстрокиСтрокиСоединения[1]) — 6);
КонецЕсли;
ИмяТекПользователя = ?(ПользователиИнформационнойБазы.ТекущийПользователь().АутентификацияОС = Истина,«»,ИмяПользователя());
ПараметрыСтрокиЗапуска = «»;
Если ИмяСервера <> «» И ИмяИБ <> «» Тогда
ПараметрыСтрокиЗапуска = «»» ENTERPRISE» + » /S»»» + ИмяСервера + «\» + ИмяИБ + «»»/N»»» + ИмяТекПользователя + «»»»;
КонецЕсли;
Возврат ПутьКФайлуЗапуска + ПараметрыСтрокиЗапуска;
КонецФункции
// Проверяет существование каталога
// Параметры
// Путь — путь к проверяемому каталогу
//
// Возвращаемое значение
// Булево. Истина, если каталог существует, Ложь, если каталог не существует
//
Функция КаталогИлиФайлСуществует(Путь)
КаталогНаДиске = Новый Файл(Путь);
Если КаталогНаДиске.Существует() Тогда
Возврат Истина;
Иначе
Возврат Ложь;
КонецЕсли;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ — ДЕЙСТВИЯ ФОРМЫ
// Процедура вызывается при нажатии кнопки «Сформировать» командной панели формы
//
Процедура КнопкаСформироватьНажатие(Кнопка)
//Проверка штука хорошая, однако я столкнулся с ограничениями доступа пользователей. Для
//того, чтобы все было корректно необходимо положить ее в привелигированный модуль.
//
//МассивСоединений = ПолучитьСоединенияИнформационнойБазы();
//НомерТекущегоСоединения = НомерСоединенияИнформационнойБазы();
//ИмяТекПользователя = ИмяПользователя();
//
//Для каждого Соединение ИЗ МассивСоединений Цикл
// Если Соединение.ИмяПриложения <> «Designer»
// И Соединение.НомерСоединения <> НомерТекущегоСоединения
// И Соединение.Пользователь <> Неопределено
// И СокрЛП(Соединение.Пользователь.Имя) = ИмяТекПользователя
// Тогда
// Предупреждение(«Существует несколько сеансов работы с текущей базой. Закройте их.»);
// Возврат;
// КонецЕсли;
//КонецЦикла;
WSH=Новый COMobject(«wscript.shell»);
ПрофильПользователя = WSH.ExpandEnvironmentStrings(«%APPDATA%»);//Возвращает используемое по умолчанию размещение данных приложений
Каталог = ПрофильПользователя+«\1C\1CEStart\»;
КаталогСуществует = КаталогИлиФайлСуществует(Каталог);
Если КаталогСуществует = Ложь Тогда
Сообщить(«Не найден каталог инфрормационной базы. Очистка кеша невозможна. «);
Возврат;
КонецЕсли;
Каталог = Каталог + «ibases.v8i»;
Если КаталогИлиФайлСуществует(Каталог) Тогда
Текст = Новый ТекстовыйДокумент;
Текст.Прочитать(Каталог);
ТекстФайла = Текст.ПолучитьТекст();
Позиция = Найти(ТекстФайла,СтрокаСоединенияИнформационнойБазы());
Если Позиция = 0 Тогда
Сообщить(«GUID информационной базы не найден. Очистка кеша невозможна.»);
Возврат;
Иначе
ТекстФайла = Прав(ТекстФайла,СтрДлина(ТекстФайла) — Позиция + 1);
Позиция = Найти(ТекстФайла,«ID=»);
GUID = Сред(ТекстФайла, Позиция + 3, 36);
НовыйGUID = Новый УникальныйИдентификатор;
Пока Найти(ТекстФайла,НовыйGUID) > 0 Цикл
НовыйGUID = Новый УникальныйИдентификатор;
КонецЦикла;
Если Вопрос(«Необходимо перезагрузить программу. Перезагружаем?»,РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
//Присвоим базе новый УИД
ТекстФайла = Текст.ПолучитьТекст();
ТекстФайла = СтрЗаменить(ТекстФайла,GUID,НовыйGUID);
Текст.УстановитьТекст(ТекстФайла);
Текст.Записать(Каталог);
КонецЕсли;
Иначе
Сообщить(«Файл «»ibases.v8i»» не найден. Очистка кеша невозможна.»);
Возврат;
КонецЕсли;
Каталог = СтрЗаменить(Каталог,«1CEStart\ibases.v8i»,«») + «1Cv82\» + GUID + «\»;
Если КаталогИлиФайлСуществует(Каталог) Тогда
ПутьКФайлу = Каталог + «1Cv8.lck»;
ТекстBatФайла = «
|cd\
|cls
|rem Restart 1C
|@echo off
|rem Файл работает следующим образом:
|rem ждем пока удалится файл 1Cv8_1.lck (удаляется при закрытии 1С) и чистим кэш
|rem если файл не удаляется в течение 40 сек. завершаем работу программы
|set /a count=1
|:flag
|if %count% gtr 8 goto end
|if Not exist «»» + ПутьКФайлу + «»» goto go
|ping -n 5 127.0.0.1 > NUL
|call set /a count+=1
|goto flag
|:go
|rem Удаляем все файлы
|Del /F /Q «»» + Каталог + «*.*»»
|rem Удаляем все каталоги
|for /d %%i in («»»+ Каталог + «*»») do rmDir /s /q «»%%i»»
|rem Удаляем основной каталог
|rmDir «»» + Лев(Каталог,СтрДлина(Каталог)-1) + «»»
|:end
|rem Запускаем 1С
|» + ПолучитьСтрокуЗапуска1С() + «
|rem Удаляем этот файл
|del %0″;
Текст = Новый ТекстовыйДокумент;
Текст.УстановитьТекст(ТекстBatФайла);
Текст.Записать(КаталогВременныхФайлов() + «\ClearCache.bat»,КодировкаТекста.OEM);
ЗапуститьПриложение(«»»» + КаталогВременныхФайлов() + «\ClearCache.bat»»»);
ЗавершитьРаботуСистемы(Ложь);
Иначе
Сообщить(«Каталог с GUIDом «»» + GUID + «»» не найден. Очистка кеша невозможна.»);
Возврат;
КонецЕсли;
КонецПроцедуры
