Сообщения блогов группы "Блоги сотрудников про 1С" (www.miko.ru) http://www.miko.ru http://www.miko.ru ru http://backend.userland.com/rss092 Михаил Беляев: Файл базы данных поврежден. Повреждено содержимое внутреннего файла "Описание базы данных" "Не всё пропало" или Методика восстановления файловой базы, когда CHDBFL разводит руками

Привет!

Предыстория

В конце октября 2022 поступила задача на восстановление файловой базы, которая была разрушена в процессе обновления конфигурации ИБ с долгой реструктуризацией, прерванной аварийно... :/

CHDBFL после быстрой неуспешной попытки, сказал что "на этом его полномочия всё"

...Продолжение следует по ссылке https://telegra.ph/Fajl-bazy-dannyh-povrezhden-Povrezhdeno-soderzhimoe-vnutrennego-fajla-Opisanie-ba...


Подробнее...]]> http://www.miko.ru/blogs/metalblog/fayl-bazy-dannykh-povrezhden-povrezhdeno-soderzhimoe-vnutrennego-fayla/ Михаил Беляев: Внедрение подсистемы оценки производительности в старые конфигурации без БСП 2. Открываем конфигуратор анализируемой базы
3. Делаем "Сравнить/объединить с конфигурацией из файла...", указываем файл из п.1
4. Делаем "Отметить по подсистемам файла", отмечаем только ОценкаПроизводительности
5. В модуле сеанса дописываем в конец метода УстановитьЗначениеПараметраСеанса строки
====code==== 
// ОценкаПроизводительности
ОценкаПроизводительностиСлужебный.УстановкаПараметровСеанса(ИмяПараметра, УстановленныеПараметры);
// }
============= Также для удобного доступа к настройкам подсистемы из обычного приложения можно вынести куда то в интерфейс (например на форму параметров учёта) 3 новых константы
Либо они будут доступны сразу в управляемом режиме
6. Обновляемся, входим в пользовательский режим (1С:Предприятие), заполняем настройки
  • Взводим константу ВыполнятьЗамерыПроизводительности, другие 2 заполняем тоже ненулевыми значениями
  • В коде вписываем по шаблонам из соседних публикаций места в коде для сбора данных
  • Для сбора данных на клиенте еще потребуется заполнить регистр НастройкиКлючевыхОпераций
7. Собираем данные, смотрим в управляемом режиме отчёты

PS Прикладываю также расширение, через которое также можно подключить эту подсистему, НО есть минусы
А. Замеры в журнале регистрации будут выглядеть криво
Б. В модуль сеанса всё равно придётся прописать нужные строки из пункта 5
В. Регламентное задание на очистку старых замеров добавить через расширение не получится, придётся через конфигурацию
Подробнее...]]> http://www.miko.ru/blogs/metalblog/327/ Михаил Беляев: Шаблон замера длительной операции через БСП ====code==== 
// &ЗамерДлительнойОперации {
ОписаниеЗамера = ОценкаПроизводительности.НачатьЗамерДлительнойОперации("ИмяДлительнойКлючевойОперации");

// начало цикла/шага
ОценкаПроизводительности.ЗафиксироватьЗамерДлительнойОперации(ОписаниеЗамера, КоличествоДанныхНаШаге, ОписаниеШагаИлиИтератораЦикла, КомментарийШага);
// конец цикла/шага

ОценкаПроизводительности.ЗакончитьЗамерДлительнойОперации(ОписаниеЗамера, КоличествоДанныхВсего, НеобязательноОписаниеФинальногоШага, КомментарийЗамера);
// }
=============
Подробнее...]]> http://www.miko.ru/blogs/metalblog/326/ Михаил Беляев: Шаблон для обычного замера через БСП // &ЗамерПроизводительности {    ИмяКлючевойОперации = "ЧекККМ.WSПрокси.БонусныеКарты.ЗафиксироватьОплату";    #Если Клиент Тогда        Замер = ОценкаПроизводительностиРТКлиент.НачатьЗамер(Ложь, ИмяКлючевойОперации);    #КонецЕсли    #Если Сервер Тогда        ДатаНачалаЗамера = ОценкаПроизводительности.НачатьЗамерВремени();    #КонецЕсли        // САМО ЧУДНОЕ ДЕЙСТВИЕ!        #Если Клиент Тогда    // РАСКОММЕНТИРОВАТЬ ДЛЯ КОММЕНТАРИЯ К ЗАМЕРУ [простите за каламбур] Если Замер<>Неопределено Тогда ОценкаПроизводительностиКлиент.УстановитьКомментарийЗамера(Замер.Идентификатор, КомментарийЗамера); КонецЕсли;           ОценкаПроизводительностиРТКлиент.ЗакончитьЗамер(Замер);    #КонецЕсли    #Если Сервер Тогда        ОценкаПроизводительности.ЗакончитьЗамерВремени(ИмяКлючевойОперации, ДатаНачалаЗамера); // ВесЗамера = 1, Комментарий = Неопределено    #КонецЕсли    // } =============
ВАЖНО:
1. Замер НаСервере выполняется независимо от регистра НастройкиКлючевыхОпераций
2. Нужно помнить, что в файловом режиме выполнятся обе конструкции, и "#Клиент", и "#Сервер"
3. НаКлиенте есть возможность установить произвольный комментарий к замеру, для этого раскомментируйте соответствующую строчку
Подробнее...]]> http://www.miko.ru/blogs/metalblog/325/ Михаил Беляев: Методика восстановления файловых баз на низком уровне https://infostart.ru/public/182889/
Во вложении итоговая обработка с моими правками для 8.3 для лечения повреждения после динамического обновления

Инструкция коротко
1. Открыть приложенную обработку из управляемого приложения
2. Указать проблемную базу
3. Нажать "Очистить config save"
4. Прогнать проблемную базу через chdbfl.exe , вполне вероятно что при этом будет написано "Ошибок не обнаружено", несмотря на эту надпись - chdbfl.exe всё же что-то делает
5. Попробовать войти в конфигуратор проблемной базы, если всё ок - получится!
Подробнее...]]> http://www.miko.ru/blogs/metalblog/324/ Михаил Беляев: Если "умер" TEMPDB https://www.xtivia.com/start-sql-server-lost-tempdb-data-files/
Подробнее...]]> http://www.miko.ru/blogs/metalblog/esli-umer-tempdb/ Михаил Беляев: Версия MSSQL сервера запросом ====code==== 
--Version Number
select @@version

--Edition
select serverproperty('Edition')

--Service Pack
select serverproperty('ProductLevel')

--Version Number
select serverproperty('ProductVersion')
=============
Подробнее...]]> http://www.miko.ru/blogs/metalblog/versiya-mssql-servera-zaprosom/ Михаил Беляев: Программная работа с сетевыми картами Программно это можно сделать так
В консоли CMD выполнить ====code==== 
wmic nic get name, index
============= чтоб получить индекс сетевого адаптера

====code==== 
wmic path win32_networkadapter where index=7 call disable
============= чтоб отключить ненужный (7 поменять на индекс отключаемой карты из п.1)

====code==== 
wmic path win32_networkadapter where index=15 call enable
============= чтоб включить нужный (15 поменять на индекс подключаемой карты из п.1)


Подробно этот и другие варианты здесь: https://vynesimozg.com/kak-otklyuchit-vklyuchit-setevoj-adapter-v-windows/
Подробнее...]]> http://www.miko.ru/blogs/metalblog/programmnaya-rabota-s-setevymi-kartami/ Михаил Беляев: Как проверить успешно ли скопировался большой архив Занимает время. При использовании обычного копирования, а не специальных утилит (вроде Resilio Sync) - по пути может повредиться. Обнаруживается это только при восстановлении.
Исходим из того, что на сервере-отправителе архив целый (живой, восстановимый).
Проверить идентичность бэкапа без восстановления (либо ДО восстановления, если копированием и восстановлением занимаются разные люди) можно с помощью сравнения хэшей (например, MD5) исходного и скопированного файлов.
Сделать это проще всего с помощью утилитыhttps://www.winmd5.com/

UPD В новых версиях Windows появилась возможность посчитать хэш с помощью стандартных функций
Для этого запускаем консоль cmd
И пишем команду
====quote====
certutil -hashfile <имя_файла> md5
=============
Для удобства имя файла можно перетащить из Проводника через drag-n-drop  
Подробнее...]]> http://www.miko.ru/blogs/metalblog/320/ Михаил Беляев: Как закодировать строку в Base64 Сложность в том, что платформенные методы кодировки в base64 на входе не принимают строку, а только двоичные данные.
Соответственно, строку сперва необходимо превратить в двоичные данные, например через сохранение в файл.
Ниже пример кода - как именно сохранить текст в файл, чтобы правильно сработало преобразование

====code==== 
Функция Base64(ВходящаяСтрока)

   ВременныйФайл = ПолучитьИмяВременногоФайла("base64_txt");
   
   ЗаписьТекста = Новый ЗаписьТекста(ВременныйФайл, "CESU-8");
   ЗаписьТекста.Записать(ВходящаяСтрока);
   ЗаписьТекста.Закрыть();
   
   ДвоичныеДанные = Новый ДвоичныеДанные(ВременныйФайл);
   СтрокаBase64 = Base64Строка(ДвоичныеДанные);
   
   УдалитьФайлы(ВременныйФайл);
   
   Возврат СтрокаBase64;

КонецФункции  
=============
http://1centerprise8.blogspot.com/2015/03/binary-data-base64.html
Подробнее...]]> http://www.miko.ru/blogs/metalblog/319/