Ярлык на chdbfl на каждый рабочий стол в сети РИБ

18.04.13

База данных - Инструменты администратора БД

В сети РИБ из 40 баз нужно было на каждом компьютере сделать ярлык для тестирования файловой БД с помощью chdbfl. Как я это сделал автоматически.

В файловых базах данных постоянно что-то случается и требуется запускать тестирование и исправление базы с помощью chdbfl.

У меня был клиент с 40 файловыми базами-узлами РИБ. Раз в 2 дня требовалось запускать chdbfl.

Когда мне надоело по телефону рассказывать сотрудникам, как запускать эту программу (где ее найти, как выбрать каталог базы, поставить галочку исправлять), я решил создать каждому пользователю ярлык на эту программу.

 

Известно, что программа chdbfl не управляется через командную строку, но добрый программист coder1cv8 написал утилиту, которая позволяет запустить chdbfl автоматически, параметры передаются в командной строке.

Осталось только создать ярлык к этой программе Check1CD.exe.

Чтобы не мучаться с каждой базой отдельно – подключаться, настраивать ярлык и т.п., я написал скрипт на языке 1С. В этой системе уже существовала система удаленного запуска скриптов по расписанию, скрипт запускался раз в день и создавал ярлык.

В результате получался ярлык вида:

 

При запуске выглядит так:

 

Вот текст скрипта:

//Источник вдохновения: http://www.askit.ru/custom/progr_admin/m10/10_shortcuts.htm
ИмяИсполнимогоФайла = "Check1CD.exe"; //Имя стартера программы chdbfl
ИмяИсполнимогоФайла = "chdbfl.exe"; //Можно использовать другое имя файла, если есть ограничения на запуск
 
//Получаем каталог базы
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();//File="C:\1cv8\Base".
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "File=", "");
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", "");
СтрокаСоединения = СокрЛП(СтрокаСоединения);
Если Лев(СтрокаСоединения, 1) = """" Тогда
       СтрокаСоединения = Сред(СтрокаСоединения, 2);
КонецЕсли;
Если Прав(СтрокаСоединения, 1) = """" Тогда
       СтрокаСоединения = Сред(СтрокаСоединения, 1, СтрДлина(СтрокаСоединения) - 1);
КонецЕсли;

//Получаем короткий путь
СтрокаСоединения = СокрЛП(СтрокаСоединения);
Сообщить(СтрокаСоединения);
fso = Новый ComObject ("scripting.filesystemobject");
ОбъектФайл = fso.GetFolder(СтрокаСоединения);
СтрокаСоединения = ОбъектФайл.ShortPath;
Сообщить(СтрокаСоединения);

oShell = Новый ComObject ("WScript.Shell");

ПапкаМоиДокументы = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\personal");
ПапкаДесктоп = oShell.RegRead("HKCU\software\microsoft\windows\currentversion\explorer\shell folders\desktop");
Команда = """" + ПапкаМоиДокументы + "\" +  ИмяИсполнимогоФайла + """";
Аргументы = " 1 """ + СтрокаСоединения + "\1Cv8.1CD""";
 
//Для отладки
Сообщить(ПапкаМоиДокументы);
Сообщить(ПапкаДесктоп);
Сообщить(Команда);

//Извлекаем сохраненный в базе EXE-файл и копируем его в мои документы
ДвДанФайла = Справочники.СапКонстанты.НайтиПоКоду("Check1CD").ЗначениеХранилище.Получить();
ДвДанФайла.Записать(ПапкаМоиДокументы + "\" +  ИмяИсполнимогоФайла + "");
 
//Создаем ярлык на рабочий стол
oShortCut = oShell.CreateShortcut(ПапкаДесктоп + "\Проверить базу данных 1С на ошибки.lnk");
oShortCut.TargetPath = Команда;
oShortCut.Arguments = Аргументы;
oShortCut.Save();

 

Описание на человеческом языке:

  1. Определяем путь к базе.
  2. Программа Check1CD.exeне работает с каталогами на русском языке. Поэтому переделываем путь в формат 8.3 – он будет строго на латинском языке.
  3. Получаем путь к папкам «Мои документы» и «Рабочий стол».
  4. Извлекаем из константы с кодом Check1CD хранимый в ней файл и записываем его в папку «Мои документы» с именем файла для выполнения.

Создаем ярлык на рабочем столе. Отдельно указываем в TargetPathрасположение выполнимого файла и в Argumentsего аргументы.

См. также

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024    14358    109    46    

108

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

15000 руб.

10.11.2023    11912    45    27    

67

Инструменты администратора БД Роли и права Системный администратор Программист Пользователь 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 18.09.2024, версия 1.2

18000 руб.

06.12.2023    10689    47    8    

78

SALE! %

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

4800 3840 руб.

14.01.2013    191268    1152    0    

920

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтер Пользователь Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    33846    108    152    

75

Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 1C:Бухгалтерия Платные (руб)

Брандмауэр для сервера 1С включает в себя управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    32625    145    18    

51

Архивирование (backup) Инструменты администратора БД Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Данная разработка позволит решить вопрос с резервным копированием Ваших баз в автоматическом режиме, расположенных на сервере 1С. Система умеет ставить блокировки на вход, блокировать фоновые задания, принудительно отключать сеансы пользователей. И все это система делает в автоматически при создании бэкапа (или через команду). Выгрузка происходит в родной формат 1С - .dt. Так же система умеет архивировать данные выгрузки с установкой пароля. Умеет менять расширение файла zip или dt на любое указанное вами, что позволит сохранить выгрузки от шифровальщика. Может удалять старые копии выгрузок, оставляя указанное количество резервных копий, начиная с самой поздней. Только для WINDOWS!

6000 руб.

06.11.2012    73747    629    45    

88

Инструменты администратора БД Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Многие сталкиваются с проблемой когда изображения, находящиеся в базе разные по объему и размерам. Менеджеры могут добавить файлы в очень высоком разрешении, объемом свыше 20 Мегабайт. База данных становится слишком большой, выгрузка на сайт идёт медленно и требуется много место на хостинге. Как сжать картинки и уменьшить размер базы 1С? Это можно сделать с помощью данной обработки. Существует возможность выбрать различные варианты для того чтобы уменьшить картинки: в разы, в процентах от первоначального объема, а также сделать картинки одинаковой ширины. В результате размер базы 1С значительно сократится (в зависимости от количества и размера картинок), а изображения станут небольшого объема, равными по ширине, почти без потери качества. Работает на управляемых формах для УТ 11, КА, ERP.

3000 руб.

21.07.2022    10166    10    4    

18
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. CratosX 114 14.08.13 20:44 Сейчас в теме
велосипед без тормозов: про бэкапы забыл
2. fixin 4277 15.08.13 11:02 Сейчас в теме
(1) люблю советы молодых зеленых. Это мелкие РИБ базы, еще ни разу не было на моей памяти, чтобы чекдбфл убил базу. А запускается он скажем раз в день точно на одной из 70 баз. Мелковероятные события не принимаем к расчету.
3. CaSH_2004 373 19.08.13 22:10 Сейчас в теме
(2)
еще ни разу не было на моей памяти, чтобы чекдбфл убил базу

Ну по этому поводу у признанного спеца awa имеется противоположное мнение :) Так что я такие вещи без бэкапа не делаю вообще.
cleaner_it; +1 Ответить
4. fixin 4277 19.08.13 22:34 Сейчас в теме
5. andrewks 1375 19.08.13 23:05 Сейчас в теме
(4) а Вы, видимо, воинствующий оптимист
6. fixin 4277 19.08.13 23:21 Сейчас в теме
(5) у меня любой узел РИБ можно перевыгрузить за 2-4 часа. Так что не в напряг, если чек убьет.
Но практика показывает, что из 500 запусков чека ни разу база не была убита.
7. CaSH_2004 373 19.08.13 23:47 Сейчас в теме
(4)А зачем переходить на личности то? Есть объективная реальность, и если у вас маленькие базы и вам их не жалко, то бог с вами. А мне 10-15 Гиг как -то не хочется заново создавать и потом проверять что там я потерял.
(6)У каждого свой подход. Если вы так относитесь к данным клиента - то это проблемы только ваши и вашего клиента. Весьма жаль мне его.
ЗЫ: К тому же я не в курсе вашей ситуации, я просто говорю о том что не стоит всем вещать с трибуны что тестить базу утилитой chdbfl.exe абсолютно безвредно. То что вы не попали в проблемную ситуацию не значит что ее нет. Это аналогично как утверждать что переходить автомобильную дорогу абсолютно безопасно, раз вы переходили ее 100500 раз, однако, как все знают, некоторым не так повезло как нам.
cleaner_it; SerVer1C; mores; andrewks; +4 Ответить
8. fixin 4277 19.08.13 23:59 Сейчас в теме
(7) товарищ, жалко у пчелки.
Вы если перечитаете статью, то увидите, что речь идет о базах торговых точек, то бишь торговых фронтах.
Ну не надо быть семи пядей во лбу, чтобы понимать, что это маленькие базы.
Ну вот я вам сказал же, что по моей статистике, раз 500 были чеки и не разу базу не убивал этот чек.
У меня статистика, а у вас что?
Понятно, что если база большая, то её администрирование нельзя доверять пользователю.
А если копию базы можно поднять за 4-5 часов выгрузки из центра, то чекдбфл дешевле дать на использование пользователю.
Тем более что такие мелкие базы чеком не убиваются.

Отбросьте уже свои скрижали и посмотрите в глаза практике. Реальной практике, а не тому, чему вы напугались в талмудах, где требуют архив перед чеком.
9. CaSH_2004 373 20.08.13 00:24 Сейчас в теме
(8)Уважаемый вы загоняете! У каждого свои понятия о маленькой РИБ, у меня есть некоторые торговые точки где базы по 10-15 Гиг. И тут все ваши доводы рушатся. Я же говорим не про вашу конкретную ситуацию, а про глословный вывод сделанный на непонятной статистике из 500 раз. Повторяю - то что у вас не случалось не значит что не случалось ВООБЩЕ, или не может случится В ПРИНЦИПЕ. В данном случае идет речь о абсолютно четком факте что chdbfl.exe повреждает базу в некоторых случаях. Насколько часты эти случаи - возможно как раз и зависит от размера базы и ее эксплуатации. Я лично сам попадал на это буквально неделю назад. И awa тоже думаю не придумывает. А вот вы явно принимаете свою практику за аксиому.

ЗЫ: Вообще то недоверяю людям которые берутся доказать что чего то нет в природе, это делают либо твердолобые фанатики, либо недалекие люди. Не уподобляйтесь им. А то что проще скинуть на пользователей это верно подмечено :)
11. fixin 4277 20.08.13 08:36 Сейчас в теме
(9) я не знаю про вашу статистику, но чекдбфл на сети из 70 точек запускается хотя бы раз-два в день. В году 365 дней. Базы по 5-7 Гб. Никогда не падали после чека.
Опять же, бэкап не нужен, т.к. можно выгрузить из центра.

Я не утверждаю что чекдб - безопасная процедура. Но в конкретно случае, описанном мною в контексте, учитывая мою статистику она БЕЗОПАСНА.

(10) ок, вы предупредили новичков, теперь мы в курсе всех опасностей и приятностей использованя чекдбфл. Каждый имеет право взвесить риски и пользу от ее использования. Спасибо за уточнения.
10. CaSH_2004 373 20.08.13 00:32 Сейчас в теме
(8)Думаю не стоит сильно так огорчатся по поводу моих слов, и прекратить тут друг, другу доказывать. Как я понял у вас есть свое мнение которое вас вполне устраивает в силу того что оно лично ваше. Я собственно написал о проблемах тестирования не для вашего переубеждения, т.к. ни вы ни я в этом не нуждаемся. А для того чтобы "зеленые" спецы не сильно то полагались на данную утилиту и делали бэкапы. Так что не нужно мне ничего рассказывать в вашем "занятном" стиле общения.
12. fixin 4277 04.12.14 11:37 Сейчас в теме
Для 8.3 и 8.2 надо создавать еще символьную ссылку, т.к программа chkdbfl всегда ищется в каталоге C:\Program Files\1C81\bin

Система = Новый COMОбъект("WScript.Shell");
Команда = "mklink /D ""%ProgramFiles%\1cv81\bin"" """ + КаталогПрограммы() + """";
Сообщить(Команда);
Система.Run("cmd /C " + Команда, 0, 0); //первый 0 - невидимо, второй 0 - не ждать.
//Система.Run("cmd /K " + Команда, 1, 0); //первый 0 - невидимо, второй 0 - не ждать. для отладки /K

Для XP проще вручную скопировать в этот каталог.
Оставьте свое сообщение